marmotte18
XLDnaute Impliqué
Bonjour,
Quelle est la commande pour afficher la boite de dialogue "Sauvegarder sous" ?
Merci par avance
Quelle est la commande pour afficher la boite de dialogue "Sauvegarder sous" ?
Merci par avance
Application.Dialogs(xlDialogSaveAs).Show
'Définition du nom et de l'emplacement
oNom = Range("D5").Value & ".xls"
oChemin = ThisWorkbook.Path & "\" ' à remplacer éventuellement par un autre répertoire
'Enregistre sous
Application.Dialogs(xlDialogSaveAs).Show oChemin & oNom