XL 2013 Impression de plusieur page avec confirmation

[Matpo]

Bonjour a tous,

Voila j'ai fait un bouton pour imprimer plusieurs feuille en même temps

voici la macro

Sub Macro2()
Sheets(Array("017", "019", "036", "045", "046", "048")).PrintOut copies:=1
End Sub

je voudrais avoir une fenêtre qui s’ouvre quand je clic sur ce bouton pour demander une confirmation par oui ou non

d'avance merci pour votre aide.

 

[Staple1600]

Bonjour le fil, Matpo

=>Matpo
Une façon de faire

Sub Fenetre_Ouverte()
Select Case MsgBox("Ici mettre le texte de son choix", vbYesNo + vbQuestion, "Titre de la fentre")
Case 6
Call macro2
Case Else
End Select
End Sub

 

[Matpo]

bonjour JM
Merci pour ta reponse, je dois incere ta commande juste après la mienne ?

 

[Staple1600]

Re

Non, puisque tu parles de bouton, tu mets le code VBA dans le code de celui-ci.

 

[Matpo]

la je suis perdu

 

[Staple1600]

Re

Ou plus simple
Tu remplaces ta macro Macro2 par celle-ci

Sub Macro2()
Select Case MsgBox("Ici mettre le texte de son choix", vbYesNo + vbQuestion, "Titre de la fenêtre")
Case 6
Sheets(Array("017", "019", "036", "045", "046", "048")).PrintOut copies:=1
Case Else
End Select
End Sub

 

[Matpo]

merci bien par contre la a tète de il y a moyen de la changer ?

 

[Staple1600]

Re

Je n'ai pas compris ta dernière phrase.
Si il s'agit de changer le texte qui s'affiche la réponse est évidente, non ?

 

[Matpo]

non désoler,
quand j'ouvre la fenêtre il y a une tète de martien
comment faire pour l'enlever ?

 

[Staple1600]

Re

??? Une tête martien ???
Il s'agit d'un point d'interrogation !!!
Comme celui-ci

Sub Cété_écrit_dedans_non()
Select Case MsgBox("Come on you target for faraway laughter", vbYesNo + vbQuestion, "Shine on your crazy diamonds")
Case 6
ThisWorkbook.FollowHyperlink "https://www.youtube.com/watch?v=7Tc6RM7ZkWQ"
Case Else
End Select
End Sub

 

[Matpo]

merci pour ton aide problème résolue juste en changent de pc

 

[Staple1600]

Re

Tu peux faire une copie d'écran de ta tête de martien, stp ?
Et la poster ici.
Merci.

 

[Matpo]

 

[Staple1600]

Re

Tu peux faire ce test et dire quelles "têtes" s'affichent ?

Sub TeteAtete()
WTF = Array(vbCritical, vbExclamation, vbQuestion)
For i = 0 To UBound(WTF)
MsgBox Date + i, WTF(i)
Next
End Sub

 

[Matpo]

j'ai rien