Bonjour à tous.  
 
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.  

J'ai trouvé la réponse sur http://www.excelabo.net  
 
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!