Personnaliser les icones d'une barre de taches

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

laurano

XLDnaute Junior
Bonjour,

Il y a quelques temps j'ai créé une barre de tâches avec des icones personnalisées au travers de copier-coller d'images avec le code suivant

Sheets("IMAGES").Select
Sheets("IMAGES").Pictures("Image 2").Select
Selection.Copy
Set MAJSTAT = CommandBars("PERF").Controls.Add(Type:=msoControlButton)
With MAJSTAT
.PasteFace
.OnAction = "FENETRE_MAJSTAT"
.Caption = "MISE A JOUR DES STATS"
End With

et ça avait marché

Je veux à présent faire la même chose mais au travers d'une macro complémentaire. J'ai donc tapé le code suivant :

Workbooks("MACRO MODELES.xla").Sheets("ICONES").Select
Workbooks("MACRO MODELES.xla").Sheets("ICONES").Pictures("HOMME").Select
Selection.Copy
Set majetat = CommandBars("SPMGH").Controls.Add(Type:=msoControlButton)
With majetat
.PasteFace
.OnAction = "FENETRE_IDENTITE"
.Caption = "MON IDENTITE"
End With

Et il plante sur la sélection de la feuille. Je me suis dit que je ne pouvais peut-être pas sélectioner une feuille présente dans le fichier de ma macro complémentaire et j'ai donc réécrit mon code comme suit pour copier directement l'image

Workbooks("MACRO MODELES.xla").Sheets("ICONES").Pictures("HOMME").copy
Set majetat = CommandBars("SPMGH").Controls.Add(Type:=msoControlButton)
With majetat
.PasteFace
.OnAction = "FENETRE_IDENTITE"
.Caption = "MON IDENTITE"
End With

Et là il plante sur la copie de l'image (erreur 1004 dans les deux cas).

Est-ce qu'il y a une erreur de code ou est-ce que je demande un truc impossible en VBA ?

Merci de vos réponses

Gilles
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 colorer une plage
Réponses
2
Affichages
872
Réponses
2
Affichages
2 K
Compte Supprimé 979
C
Retour