Discussion :

[Ragnart]

Bonjour,

j'ai une macro avec un bouton reset qui efface l'ensemble des cellules et qui enregistre automatiquement avant d'effacer jusqu'ici tout va bien
Cependant, j'aimerai qu'il sauvegarde dans un dossier précis, comment créer une ligne de commande avec le chemin du dossier ? merci pour votre aide
Je vous joins la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub RESET()
Dim NumCom As String
Dim Num As Integer
 
With Feuil1
    NumCom = .Range("H9")
    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "/" & Replace(NumCom, "/", "-") & ".xlsm"
    .Range("A4").MergeArea.ClearContents
    .Range("A14:H31").ClearContents
    Num = Mid(NumCom, InStrRev(NumCom, "/") + 1)
    .Range("H9") = Left(NumCom, InStrRev(NumCom, "/")) & Format(Num + 1, "000")
End With
End Sub

[SfJ5Rpw8]

bonsoir,

essai de comprendre ton code ....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Path

représente le chemin du fichier contenant ton code..

[kiki29]

Salut, @Ragnart ... et la syntaxe en plus qui est défaillante, bref toujours utile : Manipulation des fichiers en VBA

[graphikris]

Bonjour,

Dans une de mes macros, j'ai mis ça dans Thisworkbook (Before Close)
A copier et a adapter
sauvegarde auto à la fermeture d'Excel indiquant le nom du fichier + date + heure
Vu que la date change a chaque sauvegarde, celles ci n'écrasent pas les anciennes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim nom As String
'Attention à la fin de la ligne suivante, se trouve l'extention XLSXM du fichier, vous pouvez la modifier    
nom = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & " - svg du " & Format(Date, "dd mmm yyyy") & " à " & Format(Time, "hh") & " h " & Format(Time, "mm") & " mm " & Format(Time, "ss") & " sec" & ".xlsxm"
'Endroit ou va s'enregistrer la sauvegarde
ThisWorkbook.SaveCopyAs "C:\Sauvegardes\Base de donnees\" & nom
ThisWorkbook.Save
'Message d'avertissement
rep = MsgBox("Une sauvegarde supplémentaire a été transmise vers C:\Base de donnees, sous le nom suivant : " & nom, vbYes + vbInformation, "Compilation des données pour sauvegarde...")
End Sub