excuse pour SOS, mon probleme est avec ON ERROR

  • Initiateur de la discussion Sylvain
  • Date de début
S

Sylvain

Guest
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

XLDnaute Barbatruc
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
 

Statistiques des forums

Discussions
299 914
Messages
1 980 042
Membres
206 963
dernier inscrit
julien183645