M
Marion
Guest
boujour au forum
des soucis et encore des soucis
le code ci-dessous bug au niveau de Sheets('MENU IMPRESSION').Select
ça me prend la tête car je ne comprends pas pourquoi?
s'il vous plait une aide serait la bien venue
merci
A+Marion
Sub imprimer_rm()
res = MsgBox('avez vous pensez a tout', vbYesNocancel)
If res = vbNo Then
Sheets('planning').Select
Range('b97').Select
ElseIf res = vbCancel Then
Exit Sub
ElseIf res = vbYes Then
Application.ScreenUpdating = False
Sheets('planning').Select
ActiveWindow.SmallScroll ToRight:=3
ActiveSheet.PageSetup.PrintArea = '$A$2:$L$20'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets('MENU IMPRESSION').Select
End If
End Sub
des soucis et encore des soucis
le code ci-dessous bug au niveau de Sheets('MENU IMPRESSION').Select
ça me prend la tête car je ne comprends pas pourquoi?
s'il vous plait une aide serait la bien venue
merci
A+Marion
Sub imprimer_rm()
res = MsgBox('avez vous pensez a tout', vbYesNocancel)
If res = vbNo Then
Sheets('planning').Select
Range('b97').Select
ElseIf res = vbCancel Then
Exit Sub
ElseIf res = vbYes Then
Application.ScreenUpdating = False
Sheets('planning').Select
ActiveWindow.SmallScroll ToRight:=3
ActiveSheet.PageSetup.PrintArea = '$A$2:$L$20'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets('MENU IMPRESSION').Select
End If
End Sub