petit bug macro

[Marion]

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

 

[dg62]

bonjour Marion


je viens de faire un essai et tout fonctionne correctement.
as-tu verifié l'orthographe des noms des feuilles ?

Message édité par: dg62, à: 24/04/2005 12:25

 

[Marion]

merci dg62 pour ta réponse mais les feuilles sont bien orthographiées dans la macro

merci quand même

A+Marion