Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Assitant Modéle Pb Creation Nvle enregistrement

M

Marc

Guest
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
 
Z

Zon

Guest
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....
 

Discussions similaires

Réponses
27
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…