Y
Yvon
Guest
Bonjour à tous,
voila le problème, j'ai userform qui sert de menu d'impression, et un msgbox qui demande si l'impression est ok, le souci est que je n'arrive pas à rappeler le userform initial, si la réponse est non, je vous livre le code tel quel.
Par avance merci du coup de main et essayez de m'expliquer pourquoi cela ne marche pas, faire faire c'est bien comprendre c'est mieux
Private Sub OK_Click()
'impression systematique des Feuil1 synthèseX2, CGV
Sheets(Array(6)).PrintOut copies:=2
Sheets(Array(17)).PrintOut
'impression conditionnelle en fonction des Checkboxs pauses, prise en charge
If menuimpression2.CheckBox1 = True Then Sheets(16).PrintOut
If menuimpression2.CheckBox2 = True Then Sheets(8).PrintOut
menuimpression2.Hide
'message d'impression correcte'
intresponse = MsgBox('L 'impression est elle correcte ?', vbYesNo + vbQuestion + vbDefaultButton2, 'Impression')
If vbYes1 Then End
If vbno2 Then menuimpression2.Show
voila le problème, j'ai userform qui sert de menu d'impression, et un msgbox qui demande si l'impression est ok, le souci est que je n'arrive pas à rappeler le userform initial, si la réponse est non, je vous livre le code tel quel.
Par avance merci du coup de main et essayez de m'expliquer pourquoi cela ne marche pas, faire faire c'est bien comprendre c'est mieux
Private Sub OK_Click()
'impression systematique des Feuil1 synthèseX2, CGV
Sheets(Array(6)).PrintOut copies:=2
Sheets(Array(17)).PrintOut
'impression conditionnelle en fonction des Checkboxs pauses, prise en charge
If menuimpression2.CheckBox1 = True Then Sheets(16).PrintOut
If menuimpression2.CheckBox2 = True Then Sheets(8).PrintOut
menuimpression2.Hide
'message d'impression correcte'
intresponse = MsgBox('L 'impression est elle correcte ?', vbYesNo + vbQuestion + vbDefaultButton2, 'Impression')
If vbYes1 Then End
If vbno2 Then menuimpression2.Show