renommer un fichier

renommer un fichier - VB/VBA/VBS - Programmation

Marsh Posté le 12-04-2005 à 18:33:28    

Bonjour à tous. :hello:  
 
J'aimerais renommer un fichier zip avec la date du jour.
 
 Sub Macro1()
  Set fs1 = CreateObject("scripting.filesystemobject" )
  fs1.copyfile "a:BddOutils.zip", "C:\WINNT\Profiles\admin\Bureau\A+M56\xxxxxx.zip
 End Sub
 
xxxxxx est la date du jour en format jjmmaaaa
J'ai essayé avec AUJOURDHUI() mais ça marche pas.
Je ne veux pas d'un lien vers une sheet mais bien une date automatique.
 
Merci d'avance. :sol:  


---------------
FoH
Reply

Marsh Posté le 12-04-2005 à 18:33:28   

Reply

Marsh Posté le 12-04-2005 à 21:05:39    

J'ai trouvé la réponse sur http://www.excelabo.net :sol:  
 
Public Sub Saveascopy()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, "dd-mm-yy" ) & " " & Format(Time, "h-mm-ss" )
ThisWorkbook.SaveCopyAs filename:=Name & strDate & ".xls"
End Sub  
 
Merci à tous les programmeurs de ce site qui est une vraie mine d'or! :love:


---------------
FoH
Reply

Sujets relatifs:

Leave a Replay

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