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