Macro parcourir et enregistrer sous...

FaridP · 17 Mars 2006

Bonjour à Tous,

Je suis à la recherche du code permettant de générer une boite de dialogue type 'enregistrer sous...' qui me permettra lorsque je clique sur un bouton d'enregistrer mon classeur à l'endroit de mon choix.

Merci de votre Aide
Farid

Abel · 17 Mars 2006

Bonjour FaridP,

Regarde avec la méthode 'getsaveasfilename'.
Cela ouvre la boite de dialogue 'enregistrer sous'.

Exemple :

Code:

FichierEnregistrerSous = Application.GetSaveAsFilename(NomEtChemin, _
        fileFilter:='Fichiers Microsoft Excel (*.xls), *.xls')
ActiveWorkbook.SaveAs Filename:=FichierEnregistrerSous, FileFormat:=xlNormal, _
        Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
        CreateBackup:=True

'NomEtChemin' est facultatif. Il permet de 'forcer' un nom de fichier et un chemin.

Abel.

FaridP · 17 Mars 2006

Merci Beaucoup Abdel.
C'est exactement ce que je voulais.

Bonne Continuation
A bientôt
Farid

Macro parcourir et enregistrer sous...

FaridP

XLDnaute Occasionnel

Abel

XLDnaute Accro

FaridP

XLDnaute Occasionnel

Discussions similaires