Bonsoir à tous,
Je fais des test pour la création d'une appli sur "enregistrer sous" en vba.
J'ai le code suivant :
Sub EnregistrerSous()
Dim NomFichier, x As String, w As String, NomDefaut As String
x = ThisWorkbook.Worksheets("feuil1").Range("a1").Value
w = " "...