Nom de Fichier avec macro "Enregistrer sous"

[Bradvid]

Bonjour le Forum,

J'ai actuellement un macro qui fait apparaître la boite de dialogue "Enregister sous" avec dans le même temps une copie valeur d'une cellule.

Je souhaiterai savoir s'il est possible que le nom de fichier qui apparaît par défaut dans la boite de dialogue "enregistrer sous" fasse référenvce à une cellule spécifique du document.

Pour info voilà ma macro :

Sub Macro1()
Application.ScreenUpdating = False
Sheets("BDC").Select
Range("B13").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Application.ScreenUpdating = True
Application.Dialogs(xlDialogSaveAs).Show
Sheets("BDC").Range("B13").Select

Merci.

 

[Pierrot93]

Re : Nom de Fichier avec macro "Enregistrer sous"

Bonjour Bradvid

essaye le code ci dessous :

Application.Dialogs(xlDialogSaveAs).Show Range("A1").Value & ".xls"

bon après midi
@+

 

[Bradvid]

Re : Nom de Fichier avec macro "Enregistrer sous"

Salut Pierrot,

Quoi Dire..... c'est Nickel comme dab!!!!

Merci à toi Pierrot et à bientôt....