code avec commandbutton

[laplayast]

Bonsoir,
Sur le code suivant à la ligne 5 j'ai une erreur,et je ne sais pas pourquoi;quand je clique sur le bouton"erreur 1004".
merci à vous,pour votre correction.


Private Sub CommandButton3_Click()
ThisWorkbook.Sheets("peinture").Activate
ActiveWindow.WindowState = xlMaximized
Application.DisplayFullScreen = False
Range("a1").Select
End Sub

 

[bbb38]

Re : code avec commandbutton

Bonsoir Laplayast, le forum,

Regardes si le fichier ci-joint répond à ta demande.
Cordialement,
Bernard