Personnaliser les icones d'une barre de taches

[laurano]

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

 

[laurano]

Re : Personnaliser les icones d'une barre de taches

Si ma question pouvait ne pas passer aux oubliettes....