Commande pour afficher la boite de dialogue "Sauvegarder sous"

Pierrot93

XLDnaute Barbatruc

• 23 Février 2011

• #2

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

Bonjour,

essaye avec ceci :

Code:

Application.Dialogs(xlDialogSaveAs).Show

bon après midi
@+

 

Vote positif 0 Vote négatif

Hippolite

XLDnaute Accro

• 23 Février 2011

• #3

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

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

Code:

'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

 

Vote positif 0 Vote négatif

marmotte18

XLDnaute Impliqué

• 23 Février 2011

• #4

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

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

 

Vote positif 0 Vote négatif