Faire apparaitre la boite de dialogue "enregistrer sous" à partir d'un bouton d'un formulaire
16 réponses
Bobby
Bonjour =E0 tous!
J'essaie de faire apparaitre la boite de dialogue "enregistrer sous" =E0
partir d'un bouton de mon formulaire.
Le code que j'ai attribu=E9 =E0 ce bouton est le suivant :
Private Sub Savepb_Click()
With Dialogs(wdDialogFileSaveAs)
.Name =3D "*.txt"
.Show
End With
End With
petite rectification mon code se termine bien par un "end sub" et non par "end with"...
Private Sub Savepb_Click()
With Dialogs(wdDialogFileSaveAs) .Name = "*.txt" .Show End With End Sub
Bonjour à tous!
J'essaie de faire apparaitre la boite de dialogue "enregistrer sous" à partir d'un bouton de mon formulaire. Le code que j'ai attribué à ce bouton est le suivant :
Private Sub Savepb_Click() With Dialogs(wdDialogFileSaveAs) .Name = "*.txt" .Show End With End With
Cela ne fonctionne pas...
Quelqu'un aurait-il une idée?
D'avance merci!
petite rectification mon code se termine bien par un "end sub" et non
par "end with"...
Private Sub Savepb_Click()
With Dialogs(wdDialogFileSaveAs)
.Name = "*.txt"
.Show
End With
End Sub
Bonjour à tous!
J'essaie de faire apparaitre la boite de dialogue "enregistrer sous" à
partir d'un bouton de mon formulaire.
Le code que j'ai attribué à ce bouton est le suivant :
Private Sub Savepb_Click()
With Dialogs(wdDialogFileSaveAs)
.Name = "*.txt"
.Show
End With
End With
petite rectification mon code se termine bien par un "end sub" et non par "end with"...
Private Sub Savepb_Click()
With Dialogs(wdDialogFileSaveAs) .Name = "*.txt" .Show End With End Sub
Bonjour à tous!
J'essaie de faire apparaitre la boite de dialogue "enregistrer sous" à partir d'un bouton de mon formulaire. Le code que j'ai attribué à ce bouton est le suivant :
Private Sub Savepb_Click() With Dialogs(wdDialogFileSaveAs) .Name = "*.txt" .Show End With End With
Cela ne fonctionne pas...
Quelqu'un aurait-il une idée?
D'avance merci!
Geo
Bonjour à tous!
J'essaie de faire apparaitre la boite de dialogue "enregistrer sous" à partir d'un bouton de mon formulaire. Le code que j'ai attribué à ce bouton est le suivant :
Private Sub Savepb_Click() With Dialogs(wdDialogFileSaveAs) .Name = "*.txt" .Show End With End With
Cela ne fonctionne pas...
C'est à dire ? la boite s'affiche ? Dans ce cas essayez de remplacer show par
-- A+
Bonjour à tous!
J'essaie de faire apparaitre la boite de dialogue "enregistrer sous" à
partir d'un bouton de mon formulaire.
Le code que j'ai attribué à ce bouton est le suivant :
Private Sub Savepb_Click()
With Dialogs(wdDialogFileSaveAs)
.Name = "*.txt"
.Show
End With
End With
Cela ne fonctionne pas...
C'est à dire ?
la boite s'affiche ?
Dans ce cas essayez de remplacer show par
J'essaie de faire apparaitre la boite de dialogue "enregistrer sous" à partir d'un bouton de mon formulaire. Le code que j'ai attribué à ce bouton est le suivant :
Private Sub Savepb_Click() With Dialogs(wdDialogFileSaveAs) .Name = "*.txt" .Show End With End With
Cela ne fonctionne pas...
C'est à dire ? la boite s'affiche ? Dans ce cas essayez de remplacer show par
-- A+
Bobby
Bonsoir Geo,
La boite ne s'affiche pas avec mon code. Il ne se passe rien, pas de message d'erreur, pas de boite de dialogue. Tu me proposes quoi? Je n'ai pas compris... A+
Bonjour à tous!
J'essaie de faire apparaitre la boite de dialogue "enregistrer sous" à partir d'un bouton de mon formulaire. Le code que j'ai attribué à ce bouton est le suivant :
Private Sub Savepb_Click() With Dialogs(wdDialogFileSaveAs) .Name = "*.txt" .Show End With End With
Cela ne fonctionne pas...
C'est à dire ? la boite s'affiche ? Dans ce cas essayez de remplacer show par
-- A+
Bonsoir Geo,
La boite ne s'affiche pas avec mon code. Il ne se passe rien, pas de
message d'erreur, pas de boite de dialogue.
Tu me proposes quoi? Je n'ai pas compris...
A+
Bonjour à tous!
J'essaie de faire apparaitre la boite de dialogue "enregistrer sous" à
partir d'un bouton de mon formulaire.
Le code que j'ai attribué à ce bouton est le suivant :
Private Sub Savepb_Click()
With Dialogs(wdDialogFileSaveAs)
.Name = "*.txt"
.Show
End With
End With
Cela ne fonctionne pas...
C'est à dire ?
la boite s'affiche ?
Dans ce cas essayez de remplacer show par
La boite ne s'affiche pas avec mon code. Il ne se passe rien, pas de message d'erreur, pas de boite de dialogue. Tu me proposes quoi? Je n'ai pas compris... A+
Bonjour à tous!
J'essaie de faire apparaitre la boite de dialogue "enregistrer sous" à partir d'un bouton de mon formulaire. Le code que j'ai attribué à ce bouton est le suivant :
Private Sub Savepb_Click() With Dialogs(wdDialogFileSaveAs) .Name = "*.txt" .Show End With End With
Cela ne fonctionne pas...
C'est à dire ? la boite s'affiche ? Dans ce cas essayez de remplacer show par
J'avais testé également le Display à la place de Show, mais ça ne fonctionne pas...
Anacoluthe
Bonjour !
'Bobby' nous a écrit ...
J'avais testé également le Display à la place de Show, mais ça ne fonctionne pas...
Oui c'était prévisible. Votre code Show est en effet correct.
S'il ne s'exécute pas c'est que le code est bloqué comme j'ai dit ou que votre bouton est encore en mode création, ou que vous ne l'exécutez pas dans Word...
Anacoluthe « L'amour, c'est comme le potage : les premières cuillerées sont trop chaudes, les dernières sont trop froides. » - Jeanne MOREAU
Bonjour !
'Bobby' nous a écrit ...
J'avais testé également le Display à la place de Show, mais ça ne
fonctionne pas...
Oui c'était prévisible. Votre code Show est en effet correct.
S'il ne s'exécute pas c'est que le code est bloqué comme j'ai dit
ou que votre bouton est encore en mode création, ou que
vous ne l'exécutez pas dans Word...
Anacoluthe
« L'amour, c'est comme le potage : les premières cuillerées
sont trop chaudes, les dernières sont trop froides. »
- Jeanne MOREAU
J'avais testé également le Display à la place de Show, mais ça ne fonctionne pas...
Oui c'était prévisible. Votre code Show est en effet correct.
S'il ne s'exécute pas c'est que le code est bloqué comme j'ai dit ou que votre bouton est encore en mode création, ou que vous ne l'exécutez pas dans Word...
Anacoluthe « L'amour, c'est comme le potage : les premières cuillerées sont trop chaudes, les dernières sont trop froides. » - Jeanne MOREAU
Bobby
mon code n'a pas l'air d'etre bloqué, puisque mes autres boutons fonctionnent... je ne suis pas en mode creation... bon... la nuit porte conseil comme on dit! merci en tout cas
Bonjour !
'Bobby' nous a écrit ...
J'avais testé également le Display à la place de Show, mais ça ne fonctionne pas...
Oui c'était prévisible. Votre code Show est en effet correct.
S'il ne s'exécute pas c'est que le code est bloqué comme j'ai dit ou que votre bouton est encore en mode création, ou que vous ne l'exécutez pas dans Word...
Anacoluthe « L'amour, c'est comme le potage : les premières cuillerées sont trop chaudes, les dernières sont trop froides. » - Jeanne MOREAU
mon code n'a pas l'air d'etre bloqué, puisque mes autres boutons
fonctionnent...
je ne suis pas en mode creation...
bon...
la nuit porte conseil comme on dit!
merci en tout cas
Bonjour !
'Bobby' nous a écrit ...
J'avais testé également le Display à la place de Show, mais ça ne
fonctionne pas...
Oui c'était prévisible. Votre code Show est en effet correct.
S'il ne s'exécute pas c'est que le code est bloqué comme j'ai dit
ou que votre bouton est encore en mode création, ou que
vous ne l'exécutez pas dans Word...
Anacoluthe
« L'amour, c'est comme le potage : les premières cuillerées
sont trop chaudes, les dernières sont trop froides. »
- Jeanne MOREAU
mon code n'a pas l'air d'etre bloqué, puisque mes autres boutons fonctionnent... je ne suis pas en mode creation... bon... la nuit porte conseil comme on dit! merci en tout cas
Bonjour !
'Bobby' nous a écrit ...
J'avais testé également le Display à la place de Show, mais ça ne fonctionne pas...
Oui c'était prévisible. Votre code Show est en effet correct.
S'il ne s'exécute pas c'est que le code est bloqué comme j'ai dit ou que votre bouton est encore en mode création, ou que vous ne l'exécutez pas dans Word...
Anacoluthe « L'amour, c'est comme le potage : les premières cuillerées sont trop chaudes, les dernières sont trop froides. » - Jeanne MOREAU
Tisane
Bonjour Bobby,
J'essaie de faire apparaitre la boite de dialogue "enregistrer sous" à partir d'un bouton de mon formulaire. Le code que j'ai attribué à ce bouton est le suivant : Private Sub Savepb_Click() With Dialogs(wdDialogFileSaveAs) .Name = "*.txt" .Show End With End With
Peux-tu essayer ceci :
Sub Savepb_Click() With Dialogs(wdDialogFileSaveAs) .Format = wdFormatText .Show End With End Sub
(Lignes 1 et 3 modifiées).
-- Tisane
Bonjour Bobby,
J'essaie de faire apparaitre la boite de dialogue "enregistrer sous" à
partir d'un bouton de mon formulaire.
Le code que j'ai attribué à ce bouton est le suivant :
Private Sub Savepb_Click()
With Dialogs(wdDialogFileSaveAs)
.Name = "*.txt"
.Show
End With
End With
Peux-tu essayer ceci :
Sub Savepb_Click()
With Dialogs(wdDialogFileSaveAs)
.Format = wdFormatText
.Show
End With
End Sub
J'essaie de faire apparaitre la boite de dialogue "enregistrer sous" à partir d'un bouton de mon formulaire. Le code que j'ai attribué à ce bouton est le suivant : Private Sub Savepb_Click() With Dialogs(wdDialogFileSaveAs) .Name = "*.txt" .Show End With End With
Peux-tu essayer ceci :
Sub Savepb_Click() With Dialogs(wdDialogFileSaveAs) .Format = wdFormatText .Show End With End Sub