Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2776 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  renommer un fichier

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

renommer un fichier

n°1044655
FannyOnHea​t
Posté le 12-04-2005 à 18:33:28  profilanswer
 

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
mood
Publicité
Posté le 12-04-2005 à 18:33:28  profilanswer
 

n°1044903
FannyOnHea​t
Posté le 12-04-2005 à 21:05:39  profilanswer
 

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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  renommer un fichier

 

Sujets relatifs
Renommer un fichier Excel sous VBA AccessRenommer un fichier dont on ne connait pas le nom exact
Methode la plus rapide pour renommer un fichier en C sous UNIXrenommer un fichier avec url
[ASP 3.0] FSO + Probleme pour renommer un fichierRenommer "un" fichier avec un .bat
Renommer plusier meme fichier se trouvant dans different repertoirenewbie : boucle pour renommer liste de fichier
renommer nom fichier avec espace 
Plus de sujets relatifs à : renommer un fichier


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR