Commande pour afficher la boite de dialogue "Sauvegarder sous"

[marmotte18]

Bonjour,

Quelle est la commande pour afficher la boite de dialogue "Sauvegarder sous" ?

Merci par avance

 

[Pierrot93]

Re : Commande pour afficher la boite de dialogue "Sauvegarder sous"

Bonjour,

essaye avec ceci :

Application.Dialogs(xlDialogSaveAs).Show

bon après midi
@+

 

[Hippolite]

Re : Commande pour afficher la boite de dialogue "Sauvegarder sous"

Bonjour,
avec nom et répertoire prérenseignés :

'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

A+
ajout : Bonjour Pierrrot

 

[marmotte18]

Re : Commande pour afficher la boite de dialogue "Sauvegarder sous"

Merci Pierrot93 et Hippolite, cela fonctionne très bien !