VBS : Renommer un fichier à la date du jour

VBS : Renommer un fichier à la date du jour - VB/VBA/VBS - Programmation

Marsh Posté le 29-09-2008 à 17:38:15    

Bonjour,  
 
J'ai l'impression d'avoir tous les éléments mais je n'y arrive pas.
 
Je veux copié un fichier en le renommant avec la date du jour.
 
J'arrive a copié le fichier, j'arrive à récupérer la date du jour mais associé les deux impossibles.
Voici mon code  
 

Code :
  1. Dim madate
  2. madate = Date
  3. Set fso = CreateObject("Scripting.FileSystemObject" )
  4. fso.copyfile "C:\titi.xls", "C:\Archive\titi.xls"
  5. fso.movefile "C:\Archive\titi.xls", "C:\Archive\titi"&madate&".xls"


 
Ici j'ai décomposé pour essayer de trouver ou ca bloque. Au départ j'ai testé de renommer directement dans mon copyfile
Ca a planté.
J'ai essayé sans passé par la variable madate mais en mettant Date directement dans le chemin.
Ca a planté.
J'ai essayé sans mettre de date dedans.
Le renommage a fonctionné.
Le message d'erreur est path not found.
 
Merci par avance.

Reply

Marsh Posté le 29-09-2008 à 17:38:15   

Reply

Marsh Posté le 29-09-2008 à 18:00:12    

Et si tu fais ceci :

Code :
  1. workbook.open ("C:\titi.xls" ) 'ouvre le fichier
  2. activeworkbook.SaveAs ("C:\Archive\titi"&madate&".xls" ) 'l'enregistre a l'endroit où tu veux le copier, en le renommant
  3. activeworkbook.close 'ferme le fichier


J'espere que ca correspond à ta demande...


---------------
Si Le Travail C'est La Santé, Donnez Le Mien A Quelqu'un De Malade
Reply

Marsh Posté le 29-09-2008 à 20:18:22    

Penser aussi aux espaces devant et derrière les  & .

Reply

Marsh Posté le 30-09-2008 à 09:25:21    

Je sais pas pour le vbs, mais en vba, les espaces se font automatiquement, du coup, inutile de les mettre :)
Cependant, je le repete, je ne sais pas comment ça fait en vbs :whistle:  
 
Edit : bouh orthographe...


Message édité par Moonschild le 30-09-2008 à 09:26:01

---------------
Si Le Travail C'est La Santé, Donnez Le Mien A Quelqu'un De Malade
Reply

Marsh Posté le 01-10-2008 à 16:52:50    

Le slash ( / ) n'est pas un caractère reconnu pour les noms de répertoire ou de fichier sous Windows.
Et ta date me paraît être au format jj/mm/aaaa par défaut.

Reply

Marsh Posté le 01-10-2008 à 18:04:19    

Exact, dans ce cas, un bon vieux madate = format(madate, "jj-mm-yyyy" ) corrigeras l'erreur...


---------------
Si Le Travail C'est La Santé, Donnez Le Mien A Quelqu'un De Malade
Reply

Marsh Posté le 02-10-2008 à 17:35:17    

C'était tou betement ca. J'ai fini par m'en rendre compte et me jeter par la fenetre tellement c'etait evident.
Merci à vous

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed