ouvrir boite de dialogue dans une macro

Bonjour
Il faut penser à tester si l'opération est annulée :
If Application.Dialogs(xlDialogSaveAs).Show = False Then
MsgBox "Action annulée"
End If

Cordialement
Pascal

"dub" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:3ff101c47301$b0869cb0$a401280a@phx.gbl...
Bonjour,

Dans une macro, j'aimerai ouvrir une demande de saisie
pour donner un nom à "enregistrement sous: ???", avant de
passer à la suite de la macro.

Comment faire ?

Merci d'avance.
R-J

Bonjour,

Voici un bout de code que j'ai utilisé pour demander un
intitulé lorsque l'on coche une case à cocher.

Message = "Entrez une raison : "
titre = "Définition d'une nouvelle raison"
Rais6.Caption = InputBox(Message, titre)
If NumQuestion.Caption <> "1" Then
Sheets(sOnglet).Range("L6").FormulaR1C1 = Rais6.Caption
End If

Tu peux t'en inspirer pour renseigner une variable.
J'espère que cela te conviendra.

FRVN

-----Message d'origine-----
Bonjour,

Dans une macro, j'aimerai ouvrir une demande de saisie
pour donner un nom à "enregistrement sous: ???", avant
de

passer à la suite de la macro.

Comment faire ?

Merci d'avance.
R-J
.

adapte et essaie ceci :

Sub inter()
'Début de ta macro eemple :
MsgBox "Début de ma macro"
If Application.Dialogs(xlDialogSaveAs).Show = False Then
Exit Sub
End If
'suite de ta macro
MsgBox "Le fichier est enregistré"
MsgBox "suite du code"
End Sub

Salutations

-----Message d'origine-----
Bonjour
Il faut penser à tester si l'opération est annulée :
If Application.Dialogs(xlDialogSaveAs).Show = False Then
MsgBox "Action annulée"
End If

Cordialement
Pascal

"dub" <anonymous@discussions.microsoft.com> a écrit dans
le message de

news:3ff101c47301$b0869cb0$a401280a@phx.gbl...
Bonjour,

Dans une macro, j'aimerai ouvrir une demande de saisie
pour donner un nom à "enregistrement sous: ???", avant de
passer à la suite de la macro.

Comment faire ?

Merci d'avance.
R-J


.