Changer Nom par defaut boite de dialogue

Gorfael

XLDnaute Barbatruc

• 9 Août 2008

• #2

Re : Changer Nom par defaut boite de dialogue

Salut le forum

car2 à dit:

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

Cliquez pour agrandir...

Quelle boîte de dialogue ?
A+

 

Vote positif 0 Vote négatif

C

car2

Guest

• 9 Août 2008

• #3

Re : Changer Nom par defaut boite de dialogue

La boite de dialogue "enregistrer sous"

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 9 Août 2008

• #4

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

 

Pièces jointes

• Classeur1.xls

  21.5 KB · Affichages: 71
• Classeur1.xls

  21.5 KB · Affichages: 69
• Classeur1.xls

  21.5 KB · Affichages: 69

Vote positif 0 Vote négatif

C

car2

Guest

• 9 Août 2008

• #5

Re : Changer Nom par defaut boite de dialogue

merci a toi c nikel 😎

 

Vote positif 0 Vote négatif

C

car2

Guest

• 9 Août 2008

• #6

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

 

Vote positif 0 Vote négatif

C

car2

Guest

• 9 Août 2008

• #7

Re : Changer Nom par defaut boite de dialogue

A l'aide je m'arrache les cheveux 🙁

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 9 Août 2008

• #8

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

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 9 Août 2008

• #9

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

 

Vote positif 0 Vote négatif

C

car2

Guest

• 9 Août 2008

• #10

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😉

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 9 Août 2008

• #11

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

 

Vote positif 0 Vote négatif