Bouton imprimer

Bonjour.

J'ai mis en place un bouton "imprimer" dans mon document.

Voici le code d'une des pages :

Private Sub CommandButton1_Click()
Dim plage As String
    plage = "$a$3:$m$35"
    ActiveSheet.PageSetup.PrintArea = plage
    PrintOut
    ActiveSheet.PageSetup.PrintArea = ""
End Sub

Il marche très bien.

Problème :

A l'usage, après avoir cliqué sur le bouton, ce dernier reste sélectionné. Je ne sais pas si cela a un rapport avec le fait que la page soit protégé.
C'est génant car pour utiliser les autres objets et outils automatisé sur la feuille, il faut "déselectionner" le bouton imprimer en faisant un double clique sur une cellule vierge...

Je n'arrive pas à contourner le problème.

Ma solution : créer un objet en forme de bouton, avec une macro affectée au bouton.

Je n'arrive pas à adapter mon code...

Je le copie colle grosse modo comme tel :

Sub imprimer_devis_smartphone()
Dim plage As String
    plage = "$a$3:$m$35"
    ActiveSheet.PageSetup.PrintArea = plage
    PrintOut
    ActiveSheet.PageSetup.PrintArea = ""

End Sub

Mais j'ai une erreur de compilation à l'exécution... Il ne comprend pas le "printout"

Une idée?

bonsoir,

Faire un clic droit sur le bouton puis Propriétés Mettre la propriété

TakeFocusOnClick = False

C'est tout

A+

Au top merci ! =D