Bonjour a tous,

J'utilise le bout de code suivant pour afficher une image sur un bouton qui apparaît dans une barre d'outil:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
With Bouton
            .Caption = "Impression feuille de debit cote fini"
            .FaceId = 0
            Worksheets("Paramètre").DrawingObjects("Image 17").Copy
            .PasteFace
            .OnAction = "imp_feuil"
        End With
Par contre en passant par un copier coller, ça me provoque quelques petites perturbations pour l'utilisation du fichier.
Y a-t-il un moyen d'arriver a un résultat similaire sans passer par un copier coller.
Merci d'avance