Parametrer via vba l'enregistrer sous'

[steph71]

Bonjour à tous,
et merci à ceux qui rendent ce forum si instructifs.
Voilà ce qui m'amène encore aujourd'hui et sur lequel je planche depuis quelques temps.

J'ai un fichier EXCEL prenant en charge les macros que je mets à disposition d'utilisateurs.

ces derniers choisissent, au travers d'un formulaire, une condition et mon code leur restitue des informations en fonction de leur choix.
Jusque là, tout va bien.

je voulais conclure ma macro en aidant l'utilisateur à sauvegarder son fichier avec :
- nom du fichier = 'TOTO 2012 + valeur saisie dans le formulaire,
- type de fichier = fichier excel simple .xls
- en évitant qu'il voit apparâitre la fameuse boîte de dialogue qui lui dit qu'il s'il clique sur NON le fichier sera
enregistré sans les macro.
- et enfin que le fichier se sauvegarde automatique sur le bureau de l'utilisateur Application.Dialogs(xlDialogSaveAs).Show afin que l'utilisateur enregistre son fichier

Pour le moment, et malgré l'enregisteur de macro, je ne trouve pas le bon code.
Et à défaut, je termine mon code par l'instruction

Voilà, j'espère avoir été clair dans l'expression de mon besoin

merci d'avance à tous

Steph71

 

[pierrejean]

Re : Parametrer via vba l'enregistrer sous'

Bonjour steph71

A tester:

chemin = ThisWorkbook.Path
    ActiveWorkbook.SaveAs Filename:=chemin & "\TOTO2012" & Range("A1") & ".xls"