Sub Enregistrement() Dim Chemin1$, Client$, Fichier$
' macro pour sauvegarder sous a l'aide d'un bouton formulaire
' les trois variables
'1er variable emplacement du futur dossier
If Range("A1") = "toto" Then Chemin1 = "C:\Users\GRANBY1\Documents\"
If Range("A1") = "tata" Then Chemin1 = "C:\Users\GRANBY2\Documents\"
' Etc ...
'2eme variable nom du dossier
Client = Range("F6")
' 3eme variable nom du fichier excel
Fichier = Range("F7")
If Dir(Chemin1 & Client, 16) = "" Then MkDir Chemin1 & Client
' Supprimer l'alerte de sauvegarde
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Chemin1 & Client & "\" & Fichier
Application.DisplayAlerts = True
End Sub