XlDialogSaveAs ==> Chemin par défaut

[FaridP]

Bonjour le Forum et Bonjour la Planète,

Dans le fichier joint, lorsque je clique sur le bouton 'exporter', cela m'ouvre la boite de dialogue 'Enregistrer sous...' mais mon problème c'est que je n'arrive pas à lui donner un chemin et un nom par défaut (par exemple C:\\Toto.xls).

Mais faut aussi dire que je ne suis pas très doué

Merci d'avance à chacun d'entre vous pour votre aide et je vous souhaite une excellente fin de journée.

A bientôt
Farid [file name=Exporter.zip size=39709]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Exporter.zip[/file]

 

[vekmort]

Bonjour,

Remplacer la ligne :
Koi = Application.Dialogs(xlDialogSaveAs).Show
Par :
Koi = Application.Dialogs(xlDialogSaveAs).Show('toto.xls')

Bonne continuation,

Vekmort

 

[FaridP]

Merci beaucoup pour ton aide Vekmort.

A bientôt
Et Que la Force soit avec Toi
Farid