Le portail francophone de la géomatique

Bonjour,

J'ai créé une barre d'outils personnalisée et y ai rajouté des UIControls. J'aimerais pouvoir changer l'image de l'un d'entre eux avec un code VBA.
En faisant des recherches j'ai trouvé ça : http://resources.esri.com/help/9.3/ArcG … FaceID.htm

Sub ChangeIcon()
   Dim pBar As ICommandBar
   Dim pItem As ICommandItem
   Set pBar = CommandBars.Find(ArcID.Standard_Toolbar)
   Set pItem = pBar.Find(ArcID.Help_ContextHelp)
   pItem.FaceID = UserForm1.Image1.Picture
End Sub

J'ai créé un formulaire bidon avec 2 images donc les "Picture" sont des bitmap.
J'ai récupéré (enfin je pense) l'UID de mon outils avec un affichage de "me.id" au click de cet outils et  j'ai donc changer le code précédent en ceci :

Dim pUID As New UID
    Dim pItem As ICommandItem
    pUID.Value = "{FD5DA16D-B9D0-411A-8140-8E4C778A4697}"
    Set pItem = Application.document.CommandBars.Find(pUID)
    pItem.FaceID = f_image.Image1.Picture

quand je lance la macro pour changer l'image il me donne une "erreur 91 variable objet ou du bloc with non définie" en surlignant la dernière ligne.

Les variables sont déclarées, le formulaire f_image existe, le control Image1 aussi et la propriété Picture est remplie (image bitmap). D'où vient le problème ?

Cordialement,

Nicolas