VBA - créer un dossier de sauvegarde et copier fichier

[pepsi]

Bonjour le forum


Je cherche à créer une macro pour :

1/ créer un répertoire de sauvegarde pour mon fichier (à la racine du dossier ou il se trouve) Le répertoire peut changer de nom

2/ Sauvegarder et créer une copie de mon fichier dans ce répertoire


Est ce possible dans excel sans saisir en dur le nom du répertoire et le nom du fichier ?

Merci pour votre aide

 

[tototiti2008]

Re : VBA - créer un dossier de sauvegarde et copier fichier

Bonjour pepsi,

Sub CreeDoss()
    If Dir(ThisWorkbook.Path & "\tototiti", vbDirectory) = "" Then MkDir ThisWorkbook.Path & "\tototiti"
    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\tototiti\testcopie" & format(date,"YYYYMMDD") & "_" & format(now,"HHMMSS") & "_" & sheets("Feuil1").range("A1").value & ".xls"
End Sub

 

[pepsi]

Re : VBA - créer un dossier de sauvegarde et copier fichier

Merci beaucoup tototiti2008 de ton aide
Ton code marche parfaitement
Merci encore !!!