Enregistrement nom + destination
E
Bonjour à tous,
Je sais qu'énormément de Post existent sur ma question, mais je n'arrive en aucun cas à l'adapter à mon cas ..
J'aimerai tout simplement en cliquant sur une commande que:
Le fichier dans lequel je travail (Tour Sécurité Vierge.xls) soit enregistré dans le dossier Z:\Tour\Archivage, avec la date contenu dans la cellule B5. me permettant ainsi de conservé mon fichier vierge d'une part et d'autres part l'enregistrement à telle date dans le dossier archive.
Merci d'avance
Enzo
Hello,
Le code suivant créera ton fichier au format
d-m-yyyy.xls
Ex: 1-4-2016.xls
Sub doublage()
Dim monRepertoire As String, cheminComplet As String
monRepertoire = "Z:\Tour\Archivage\"
Dim maDate As Date
maDate = Sheets("Feuil1").Range("B5")
cheminComplet = monRepertoire & Day(maDate) & "-" & Month(maDate) & "-" & Year(maDate) & ".xls"
ActiveWorkbook.SaveAs Filename:=cheminComplet, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End SubE
Merci beaucoup et désolé pour la réponse tardive