SOS

[SYLVAIN]

Bonjour,

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.

 

[tontoncarton]

Bonjour ,

Peut etre qu'un simple

on error resume next

au debut de ta procedure reglerai ton probleme

 

[Hervé]

Bonsoir sylvain, tonton carton , le forum

En complément de la proposition de tonton carton , une synthaxe possible, sans avoir fait de test :

Private Sub CommandButton1_Click()

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

Exit Sub
pasbondutout:
MsgBox 'la semaine n'existe pas'

End Sub

salut à vous deux

 

[Hervé]

re tout le monde

oups, j'avais pas vu que l'ami michel avait apporté une solution sur ce fil :

Lien supprimé

Sylvain tu me copiera 100 fois (sans copié collé) : je ne dois pas doubler mes posts.

salut

 

[SYLVAIN]

Bonsoir,

encore des excuse de ma part,
promis hervé je copirai 100 fois 'je ne dois pas doubler mes posts' (sans copié collé).
je voulais juste m'excusé, mais je ne sais pas si on peut retirer les question que l'on pose sur le forum.

Bonne soirée a tous.