Assitant Modéle Pb Creation Nvle enregistrement

[Marc]

Bon jour,
j'ai utilisé l'assistant modèle ( Excel 2002 ) pour créer un formulaire et remplir une base de donnée. Pour sauvegarder et envoyer ce formulaire en pièce jointe, j'utilise une macro pour sauvegarder automatiquement et envoyer le fichier. Lors de l'utilisation de la fonction " ActiveWorkbook.SaveAs Filename:=nomfic " la fenetre pour demander la création d'un nouvel enregistrement ou une mise à jour ne s'ouvre pas et la base de donnée n'esta pas mise à jour .Existe t'il un moyen pour faire cela automatiquement ? ou autre solution moins souhaitable : faire apparaitre la fenetre "enregister sous" avec les infos de path et du nom du fichier mais avec une validation manuelle ?

Merci

 

[Zon]

Bonsoir,


Pour faire apparaître la commande Enregistrer sous tu peux utiliser la commande getsaveasfilename qui simule un "enregistrer sous" mais qui permet de récupérer le path dans lequel l'utilisateur veut sauvegarder son fichier.


sauvefichier=application.getsaveasfilename(,"Fichiers Excel (*.xls), *.xls")

activeworkbook.Saveas filename:=sauvefichier


A+++


PS Je suis sous XL 2000, regarde l'aide VBA 2002 voir si cette fonction n'a pas été améliorer....