Il y a 44 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici

 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet :

Comment enregistrer un fichier à 2 endroits....

 
n°30386
The_Elmins​ter
Archimage archiconnu
Posté le 03-11-2005 à 19:28:13  profilanswer
 

.... automatiquement. Staill fichier Excel avec la compta de l'année qui se corrompt et que le backup date d'il y a 1 mois, donc la grosse merde.  
 
Y a t'il moyen logiciel, sous Excel for example, de sauvegarder le fichier mais qu'il s'enregistre à deux place différentes.  
 
Non, pas de solution Raid :non:


---------------
[:the_elminster:4] "Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."  
[:the_elminster:6] Générateur naturel de gaz à effet de serre
n°30387
LostSoul
Manieur de hache
Posté le 03-11-2005 à 19:47:53  profilanswer
 

mmm .... pas à ma connaissance ... ptet en codant une macro en VBA alors


---------------
In Girum Imus Nocte Et Consumimur Igni
In-Wonderland - Blog - Start64
n°30388
The_Elmins​ter
Archimage archiconnu
Posté le 03-11-2005 à 20:16:52  profilanswer
 

Tu m'fais ca pour demain ?  [:mup:8]


---------------
[:the_elminster:4] "Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."  
[:the_elminster:6] Générateur naturel de gaz à effet de serre
n°30389
LostSoul
Manieur de hache
Posté le 03-11-2005 à 20:28:07  profilanswer
 

j'connais pas VBA :D d'ailleurs je connais pas excel non plus :p


---------------
In Girum Imus Nocte Et Consumimur Igni
In-Wonderland - Blog - Start64
n°30392
Youri
Mac user
Posté le 03-11-2005 à 21:23:52  profilanswer
 

euh a tout hasard, sans passer par le programme en lui meme tu ne peux pas l enregistrer dans un répertoire qui lui même est toujours recopier ailleurs et mis à jour tous les X temps ? style 5minutes ou en permanence pareil.


---------------
Think Apple !
n°30396
sebx
boulet cherche canon
Posté le 03-11-2005 à 23:08:03  profilanswer
 

ouaip, une tâche planifiée qui s'exécute régulièrement et qui copie un dossier vers un autre   :spamafote:


---------------
Célibataire & béhémiste de service
Gentil Organisateur des rencontres matbe
JH 27 ans, bon salaire, propriétaire, roulant en berline Allemande cherche femme pour mariage, bébés et + si affinités
n°30397
Arl-Guhr
kan g faim je mange
Posté le 04-11-2005 à 01:16:25  profilanswer
 

et si le premier fichier se coromp le 2eme le sera tout de suite après :/


---------------
il s'appel le ronge me doute
n°30400
sebx
boulet cherche canon
Posté le 04-11-2005 à 08:07:23  profilanswer
 

pô con   :D


---------------
Célibataire & béhémiste de service
Gentil Organisateur des rencontres matbe
JH 27 ans, bon salaire, propriétaire, roulant en berline Allemande cherche femme pour mariage, bébés et + si affinités
n°30401
sebx
boulet cherche canon
Posté le 04-11-2005 à 08:13:46  profilanswer
 

allez, chuis sympa, j'ai fait la macro :
 

Code :
  1. Sub doubleEnregistrement()
  2.     ChDir "C:\Documents and Settings\[ton nom]\Desktop"
  3.    
  4.     Application.ActiveWorkbook.SaveAs ("test3.xls" )
  5.    
  6.     Application.ActiveWorkbook.SaveAs ("test4.xls" )
  7.    
  8. End Sub


 
à adapter bien sûr   ;)


Message édité par sebx le 04-11-2005 à 08:14:01

---------------
Célibataire & béhémiste de service
Gentil Organisateur des rencontres matbe
JH 27 ans, bon salaire, propriétaire, roulant en berline Allemande cherche femme pour mariage, bébés et + si affinités
n°30407
Vilver
Redemarre, ca ira mieux
Posté le 04-11-2005 à 08:59:32  profilanswer
 

>>Sebx : A adapter et à coller dans ThisWorkBook en section Workbook / Open et/ou dans le Beforeclose
 

n°30408
sebx
boulet cherche canon
Posté le 04-11-2005 à 09:00:28  profilanswer
 

moi j'avais fait dans une macro mais ça marche aussi comme tu dis   :)


---------------
Célibataire & béhémiste de service
Gentil Organisateur des rencontres matbe
JH 27 ans, bon salaire, propriétaire, roulant en berline Allemande cherche femme pour mariage, bébés et + si affinités
n°30409
LostSoul
Manieur de hache
Posté le 04-11-2005 à 09:03:43  profilanswer
 

Je propose une variante


    * Sub doubleEnregistrement()
    *     ChDir "C:\Documents and Settings\[ton nom]\Desktop"
    *      
    *     Application.ActiveWorkbook.SaveAs ("test3.xls" )
    *      
    *     Application.ActiveWorkbook.SaveAs ("test3-" & Now & ".xls" )
    *      
    * End Sub


 
De cette manière la copie 2 est "timestampée" et donc tu retiens chaque génération

n°30411
Vilver
Redemarre, ca ira mieux
Posté le 04-11-2005 à 09:07:48  profilanswer
 

Bien vu Lostsoul, mais il veut une sauvegarde, pas un archivage.
 
Seb : La modif de ton code que je propose est aussi une macro mais qui n'a pas besoin de l'utilisateur. ( qui est généralement un con :) )
 
 
Au fait la bonne question ne devrait pas être : Pourquoi ton fichier est vérolé, comment y remédier ?

n°30423
The_Elmins​ter
Archimage archiconnu
Posté le 04-11-2005 à 11:01:59  profilanswer
 

Aucune idée... Lorsque j'ai essayé de l'ouvrir, il a indiqué que le fichier était endommagé. No idea.
 
Le style de sauvegarde auto ne m'arrange pas car si le fichier primaire se vérole à un moment, l'autre le deviendra. Je voyais plutot une sauvegarde au moment ou je l'enregistre.


---------------
[:the_elminster:4] "Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."  
[:the_elminster:6] Générateur naturel de gaz à effet de serre
n°30425
LostSoul
Manieur de hache
Posté le 04-11-2005 à 11:07:40  profilanswer
 

un fichier qui se vérole y'a pas des masses de raisons. La plupart du temps c'est une erreur d'écriture disque ou un bad sector ...
 
Anyway la macro proposée me semble bien dans ton cas, ca va sauver deux copies à partir du contenu Excell et pas un exemplaire + une copie de l'exemplaire.

n°30426
The_Elmins​ter
Archimage archiconnu
Posté le 04-11-2005 à 11:22:12  profilanswer
 

et on met ca en musique comment ? :D
 
J'ai laché la programmation à partir du Turbo Pascal mwa :D


---------------
[:the_elminster:4] "Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."  
[:the_elminster:6] Générateur naturel de gaz à effet de serre
n°30427
LostSoul
Manieur de hache
Posté le 04-11-2005 à 11:24:15  profilanswer
 

Faut demander à sebx il donne des formations :D
 
je suppose qu'il y a moyen d'ajouter un bouton dans une toolbar lié à une macro qui va te faire ca.

n°30428
sebx
boulet cherche canon
Posté le 04-11-2005 à 11:28:10  profilanswer
 

tu fais afficher la Visual Basic Toolbar et tu cliques sur "play" il te proposera la macro  


---------------
Célibataire & béhémiste de service
Gentil Organisateur des rencontres matbe
JH 27 ans, bon salaire, propriétaire, roulant en berline Allemande cherche femme pour mariage, bébés et + si affinités
n°30429
The_Elmins​ter
Archimage archiconnu
Posté le 04-11-2005 à 11:28:37  profilanswer
 

LostSoul a écrit :

Faut demander à sebx il donne des formations :D
 
je suppose qu'il y a moyen d'ajouter un bouton dans une toolbar lié à une macro qui va te faire ca.


 
Il serait encore bien capable de m'accueillir à pwal :/
 
la macro directement dans Xls ?


---------------
[:the_elminster:4] "Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."  
[:the_elminster:6] Générateur naturel de gaz à effet de serre
n°30430
sebx
boulet cherche canon
Posté le 04-11-2005 à 11:29:22  profilanswer
 

ouaip  :)


---------------
Célibataire & béhémiste de service
Gentil Organisateur des rencontres matbe
JH 27 ans, bon salaire, propriétaire, roulant en berline Allemande cherche femme pour mariage, bébés et + si affinités
n°30437
The_Elmins​ter
Archimage archiconnu
Posté le 04-11-2005 à 12:10:10  profilanswer
 

ET cette macro va s'executer à quel moment ?


---------------
[:the_elminster:4] "Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."  
[:the_elminster:6] Générateur naturel de gaz à effet de serre
n°30438
LostSoul
Manieur de hache
Posté le 04-11-2005 à 12:12:29  profilanswer
 

quand tu cliqueras sur le bouton.
Sinon y'a probablement un évènement OnSave ou qqch du genre qui pourrait l'exécuter automatiquement mais je connais pas assez VBA pour te dire ca

n°30439
LostSoul
Manieur de hache
Posté le 04-11-2005 à 12:19:26  profilanswer
 

Y'a effectivement un évènement utilisable ...
 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,Cancel as Boolean)
   
 ...
 
End Sub


 
Ce truc est appelé avant la sauvegarde donc tu peux y mettre simplement le code de la sauvegarde de la copie.

n°30441
The_Elmins​ter
Archimage archiconnu
Posté le 04-11-2005 à 12:55:08  profilanswer
 

euh... marche pô


---------------
[:the_elminster:4] "Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."  
[:the_elminster:6] Générateur naturel de gaz à effet de serre
n°30442
castor@mat​be
Mutafukaz !
Posté le 04-11-2005 à 12:55:38  profilanswer
 

noob :o

n°30443
LostSoul
Manieur de hache
Posté le 04-11-2005 à 12:57:14  profilanswer
 

sebx !!! help !!! :lol: the El a besoin d'une chèv... euh... d'un coup de main !

n°30444
sebx
boulet cherche canon
Posté le 04-11-2005 à 13:10:54  profilanswer
 

okay, pas à pas détaillé !!
 
dans ton classeur Excel : menu Outils/Macro/Visual Basic Editor
 
là, tu double-clic sur "thisWorkbook" dans l'arbre de gauche
dans la liste déroulante de gauche tu sélectionnes "workbook" et dans celle de droite "BeforeClose"
 
il t'inscrit ça :
 

Code :
  1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  2. End Sub


 
entre ces deux lignes, tu colles :
 

Code :
  1. ChDir "[chemin du fichier original]"
  2. Application.ActiveWorkbook.SaveAs ("[nom du fichier original].xls" )
  3. ChDir "[chemin du fichier de sauvegarde]"
  4. Application.ActiveWorkbook.SaveAs ("[nom du fichier de sauvegarde].xls" )


 
et hop, dès que tu vas fermer ton classeur il va tout faire tout seul, même plus besoin de cliquer sur la petite disquette   :)


Message édité par sebx le 04-11-2005 à 13:11:20

---------------
Célibataire & béhémiste de service
Gentil Organisateur des rencontres matbe
JH 27 ans, bon salaire, propriétaire, roulant en berline Allemande cherche femme pour mariage, bébés et + si affinités
n°30446
LostSoul
Manieur de hache
Posté le 04-11-2005 à 13:17:38  profilanswer
 

oui le beforeclose() est pas con non plus
mais bon pas besoin de faire le saveas du fichier original, il le fait après l'exécution du onclose() non ? c'est le même principe que le beforeSave le beforeClose ...
 
On est bons quand même :D

n°30447
sebx
boulet cherche canon
Posté le 04-11-2005 à 13:18:57  profilanswer
 

ben avec cette macro il te casse même pas les couilles à te demander si tu veux sauvegarder puisque c'est déjà fait   :D


---------------
Célibataire & béhémiste de service
Gentil Organisateur des rencontres matbe
JH 27 ans, bon salaire, propriétaire, roulant en berline Allemande cherche femme pour mariage, bébés et + si affinités
n°30448
LostSoul
Manieur de hache
Posté le 04-11-2005 à 13:20:25  profilanswer
 

Et le pire c'est que tout ca se trouve dans le fichier d'aide d'Excel :p

n°30449
sebx
boulet cherche canon
Posté le 04-11-2005 à 13:22:43  profilanswer
 

ben ouais  :D


---------------
Célibataire & béhémiste de service
Gentil Organisateur des rencontres matbe
JH 27 ans, bon salaire, propriétaire, roulant en berline Allemande cherche femme pour mariage, bébés et + si affinités
n°30450
The_Elmins​ter
Archimage archiconnu
Posté le 04-11-2005 à 13:56:49  profilanswer
 

Ok, ca fonctionne effectivement, sauf pour la seconde sauvegarde ou il reste dans le répertoire de la première. Impossible de le faire sauvegarder ailleurs :/


---------------
[:the_elminster:4] "Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."  
[:the_elminster:6] Générateur naturel de gaz à effet de serre
n°30451
LostSoul
Manieur de hache
Posté le 04-11-2005 à 13:57:24  profilanswer
 

met le path complet dans la fonction SaveAs()

n°30453
castor@mat​be
Mutafukaz !
Posté le 04-11-2005 à 14:09:14  profilanswer
 

Me.SaveAs "d:\test" & Format(Now, "yymmdd-HHMM" ) & ".xls"

n°30454
The_Elmins​ter
Archimage archiconnu
Posté le 04-11-2005 à 14:22:17  profilanswer
 

LostSoul a écrit :

met le path complet dans la fonction SaveAs()


 
T'es trop bon :love:  T'as pas envie de laisser tomber Alcyone pour moi ? Bhêêêêêêêêê :D
 
 


---------------
[:the_elminster:4] "Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."  
[:the_elminster:6] Générateur naturel de gaz à effet de serre
n°30459
sebx
boulet cherche canon
Posté le 04-11-2005 à 14:30:45  profilanswer
 

si t'avais fait tourner ton neurone t'aurais essayé tout seul   :o


---------------
Célibataire & béhémiste de service
Gentil Organisateur des rencontres matbe
JH 27 ans, bon salaire, propriétaire, roulant en berline Allemande cherche femme pour mariage, bébés et + si affinités
n°30463
LostSoul
Manieur de hache
Posté le 04-11-2005 à 14:36:04  profilanswer
 

le ChDir faut pas utiliser ctemerde paske si tu changes de drive faut faire un ChDrive avec

n°30466
The_Elmins​ter
Archimage archiconnu
Posté le 04-11-2005 à 14:39:20  profilanswer
 

sebx a écrit :

si t'avais fait tourner ton neurone t'aurais essayé tout seul   :o


 
stoi l'expert :kaola:
 
Mais merci, ca fonctionne nickel :)


---------------
[:the_elminster:4] "Je suis un serviteur du feu secret, détenteur de la flamme d'Anor. Le feu sombre ne vous servira à rien, flamme D'Udûn. Repartez dans l'ombre."  
[:the_elminster:6] Générateur naturel de gaz à effet de serre

Aller à :
Ajouter une réponse