excuse pour SOS, mon probleme est avec ON ERROR

[Sylvain]

ReBonjour,

Excuser moi pour le SOS, je viens juste de comprendre la charte, j'avais lue qu'il fallais note en sujet soit 'Urgent', soit SOS' ect...

mon problème se trouve dans un bouton que j'ai créer pour imprimer une feuille du classeur excel, mais des fois la feuille est encore inexistante dans le classeur, comment je pourais faire pour qu'un message me disant 'la semaine 22 n'existe pas ', et qui annule l'imprésion.

voici le code de mon bouton:

Private Sub CommandButton1_Click()

Sheets('22').Activate
ActiveSheet.PageSetup.PrintArea = '$A$1:$I$62'
ActiveSheet.PrintOut
Range('A1').Select
Unload IMPRIMER
Sheets('MENU').Activate

Else
MsgBox 'la semaine n'existe pas'
End If

End Sub


Merci beaucoup de votre aide!!!! Vous êtes génial sur ce site.

 

[MichelXld]

bonsoir Sylvain

tu peux tester cette adaptation

Private Sub CommandButton1_Click()
Dim Ws As Worksheet

On Error Resume Next
Set Ws = Sheets('22')

If Not Ws Is Nothing Then
With Sheets('22')
.PageSetup.PrintArea = '$A$1:$I$62'
.PrintOut
End With

Range('A1').Select
Unload Imprimer
Sheets('MENU').Activate

Else
MsgBox 'la semaine n'existe pas'
End If

End Sub


bonne soiree
MichelXld

 

[SYLVAIN]

Merci beaucoup!!!!!
tu me sauve, ton code fonctionne a mervielle, je te souhaite une très bonne soirée, et encore merci