Changer Nom par defaut boite de dialogue

[car2]

Bonjour,

Je cherche à modifier le nom par defaut inscrit dans la boite de dialogue "enregistrer sous" lors de l'enregistrement par un nom déterminé.
Pouvez vous m'apporter votre aide.🙂

merci

 

[Gorfael]

Re : Changer Nom par defaut boite de dialogue

Salut le forum

Bonjour,
Je cherche à modifier le nom par defaut de la boite de dialogue enregistrer sous par un nom déterminé.
Pouvez vous m'apporter votre aide.🙂
merci

Quelle boîte de dialogue ?
A+

 

[car2]

Re : Changer Nom par defaut boite de dialogue

La boite de dialogue "enregistrer sous"

 

[Catrice]

Re : Changer Nom par defaut boite de dialogue

Bonjour,

Tu peux faire ce que tu souhaites avec ce code :
Sub Test()
Application.Dialogs(xlDialogSaveAs).Show "Monchoix.xls"
End Sub

...que tu peux executer à partir d'un bouton ou affecter au menu Fichier/Enregistrer sous.

Voir le fichier joint

 

[car2]

Re : Changer Nom par defaut boite de dialogue

merci a toi c nikel 😎

 

[car2]

Re : Changer Nom par defaut boite de dialogue

sous excel je n'ai aucun aucun problème cependant en essayant de l'adapter sous word avec ce code:

Sub ShowSaveASDialog()
Dim Nom_Fichier As String
Nom_Fichier = "monchoix" & ".doc"
Application.Dialogs(wdDialogFileSaveAs).Show Nom_Fichier
End Sub

la fenetre s'ouvre mais le nom par défaut n'est pas changer.
😕

 

[car2]

Re : Changer Nom par defaut boite de dialogue

A l'aide je m'arrache les cheveux 🙁

 

[Catrice]

Re : Changer Nom par defaut boite de dialogue

Bonsoir,

Petite variante trouvée dans l'aide de Word :

Sub ShowSaveASDialog()
Dim Nom_Fichier As String
Nom_Fichier = "monchoix" & ".doc"
With Dialogs(wdDialogFileSaveAs)
.Name = Nom_Fichier
.Show
End With
End Sub

 

[jeanpierre]

Re : Changer Nom par defaut boite de dialogue

Bonsoir car2, Catrice et Gorfael,

VBA sous Word a quelques similitudes avec celui d'Excel...

Mais pas pour tout. Perso. je ne connais rien du Vba de Word....

Donc, pour toi, quelques cheveux en moins, mais économie de coiffeur....

C'était pour ne pas te laisser seul.

Bonne soirée.

Jean-Pierre

 

[car2]

Re : Changer Nom par defaut boite de dialogue

Merci à vous avec vos infos j'ai réussi à me débrouiller et garder quelques cheveux lol😉

 

[jeanpierre]

Re : Changer Nom par defaut boite de dialogue

Re,

Si tu nous disais comment cela peut intéresser nombre de questionneurs pour un problème identique.

A te lire.

Jean-Pierre