Macro parcourir et enregistrer sous...

[FaridP]

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]

Bonjour FaridP,

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

Exemple :

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]

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

Bonne Continuation
A bientôt
Farid