Bonjour à tous
mon probléme, lorsque que j'actionne mon bouton Exit, un msgbox apparait, ("voulais vous imprimer feuille de report journalier") quand je clic sur Oui un message d'erreur n°9 apparait et dans VB elle me met la ligne ( sheets (" report journalier").select en jaune😡
Quelqu'un aurait il une réponse a ce soucis.🙂
Private Sub CommandButton1_Click()
Dim msg, style, title, réponse
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
WS1.AutoFilterMode = False
ActiveSheet.Protect Password:="tony", DrawingObjects:=True, Contents:=True, Scenarios:=True
Unload Me
'***********************************************************
msg = "Voulez-vous imprimer la feuille report journalier"
style = vbYesNo + vbQuestion + vbDefaultButton2
title = "Imprimer"
réponse = MsgBox(msg, style, title)
If réponse = vbYes Then
Sheets("report journalier").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'**********************************************************************
Sheets("selections").Select
End Sub
merci d'avance
papattts
L'expérience de chacun est le trésor de tous
mon probléme, lorsque que j'actionne mon bouton Exit, un msgbox apparait, ("voulais vous imprimer feuille de report journalier") quand je clic sur Oui un message d'erreur n°9 apparait et dans VB elle me met la ligne ( sheets (" report journalier").select en jaune😡
Quelqu'un aurait il une réponse a ce soucis.🙂
Private Sub CommandButton1_Click()
Dim msg, style, title, réponse
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
WS1.AutoFilterMode = False
ActiveSheet.Protect Password:="tony", DrawingObjects:=True, Contents:=True, Scenarios:=True
Unload Me
'***********************************************************
msg = "Voulez-vous imprimer la feuille report journalier"
style = vbYesNo + vbQuestion + vbDefaultButton2
title = "Imprimer"
réponse = MsgBox(msg, style, title)
If réponse = vbYes Then
Sheets("report journalier").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'**********************************************************************
Sheets("selections").Select
End Sub
merci d'avance
papattts
L'expérience de chacun est le trésor de tous