FAIRE APPARAITRE LE FENETRE "ENREGISTRER SOUS"

[juliette]

Bonjour à toutes et à tous,

je sollicite votre aide pour écrire un code.

en fait, je souhaiterai faire apparaitre la fenêtre "Enregistrer sous..." en code VBA.
je souheterai indiquer le bon chemin voire une partie du nom de fichier...

y'a t-il une solution?

merci d'avance

Juliette

 

[Billnanard]

Bonjour Juliette,

Essaye ligne de macro qui fait apparaître la fenêtre "Enregistrer sous"

Sub Macro2()

fName = Application.GetSaveAsFilename

End Sub

Salut
A+

 

[Michel]

Bonjour le forum
Un truc que Ti m'avait envoyé :
CommandBars.FindControl(ID:=748).Execute
@ plus
Michel

 

[juliette]

bonjour,

je vous remercie pour les réponses apportées.

elle fonctionne toutes les 2!



dites moi, comment puis-je faire ajouter le chemin désiré?

par exemple: c:\mes documents


merci encore...

 

[michel]

bonjour Juliette ,Billnanard ,Michel

tu peux tester la macro ci dessous
pour indiquer le repertoire , et le nom du classseur par defaut

Sub FenetreEnrgistrerSous()
ChDir "C:\Mes documents" 'définit le répertoire de la boite de dialogue
Application.Dialogs(xlDialogSaveAs).Show "NomDeMonFichier"
End Sub


bonne journée
michel

 

[juliette]

bonjour Michel...

je te remercie pour la rapidité de ta réponse...

oups... je ne parviens pas à faire apparaitre le bon chemin.

la fenêtre enregsitrer-sous s'ouvre bien, elle indique bien le nom du fichier mais pour le chemin, elle reste bloquée sur le bureau...

puis-je ajouter un paramètre?
je souhaiterai que le nom du fichier affiche la date qui figure ds le feuille 1 en B1.
Par exemple: aujourd'hui en B1, j'ai novembre 2003
En activant la macro, je souhaiterai que le fichier s'enregistre sous "sport novembre 2003.xls"

et le mois prochain il s'enregistrera sous "sport décembre 2003.xls".

as-tu éventuellement une solution?

Merci encore

 

[michel]

rebonjour Juliette

je ne comprends pas ton soucis quand tu dis : ... pour le chemin, elle reste bloquée sur le bureau...
si tu remplaces "c:\Mes documents" par un autre répertoire , la boite de dialogue devrait s'ouvrir sur ce répertoire ... à moins que ton probleme soit tout autre ...


pour completer le nom du fichier , avec la valeur de la cellule B1 de la feuille 1 , tu peux utiliser la procedure ci dessous

Sub FenetreEnrgistrerSous()
ChDir "C:\Mes documents" 'définit le répertoire de la boite de dialogue
Application.Dialogs(xlDialogSaveAs).Show "Sport " & Sheets(1).Range("B1")
End Sub


une autre version pour afficher directement la date du mois en cours

Sub FenetreEnrgistrerSous()
ChDir "C:\Mes documents" 'définit le répertoire de la boite de dialogue
Application.Dialogs(xlDialogSaveAs).Show "Sport " & Format(Date, "mmmm yyyy")
End Sub


bon apres midi
michel

 

[juliette]

Bonjour Michel...

Je te remercie beaucoup pour toute l'aide que tu me fournies.

Je dois avoir un problème avec les chemins car la boite de dialogue "enregistrer sous..." qui s'ouvre à pour chemin le bureau et ce peu importe ce que je tape dans le code.

merci encore

 

[Yves]

j'ai eu le même problème mais en plus je voudrais que le fichier généré soit un fichier au format CSV (.CSV)

pouvez vous m'aider
merci