Discussion :

[Harry Covair]

Bonjour le forum,
Dans un UserForm, je souhaite insérer une image. J'ai donc dessiné un rectangle avec le controle "image". Définie manuellement dans les propriétés, l'image se charge sans problème.
Par contre, pour faire la même chose en VBA, la fonction "loadpicture" ne semble pas connue (elle reste en minuscule). Pas de trace dans l'aide, pas de trace dans l'explorateur d'objets.
Y aurait-il une référence spécifique à activer?
Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
UF_Pict.Caption = Cells(Row_Target, 2).Value 'OK
UF_Pict.Image1.Picture = loadpicture(Cells(Row_Target, 1).Value & "\" & Cells(Row_Target, 2).Value) 'NOK
UF_Pict.Show 'OK

Un membre du forum aurait-il une idée pour m'aider à résoudre ce problème?

D'avance merci

Harry

[Invité]

Salut,

Le problème est que tout est caché, alors on ne peux pas voir ce qu'il y a dans le LoadPicture pour vérifier les erreurs.

Cette fonction ne charge pas les png par exemple.

[Harry Covair]

Bonjour Nouveau2,
Merci pour la réponse.
LoadPicture ne donne pas d'erreur. C'est VBA qui ne connait pas la fonction.
D'où la question: faut-il une référence spécifique, une dll, .....?
Bonne journée

[Invité]

Re,

D'où la question: faut-il une référence spécifique, une dll, .....?

Oui, mais c'est assez bizarre, en principe OLE Automation est directement
chargé avec les 3 autres références par défaut (Excel, VBA et Office).

P.S.:
Cette simple macro te trouvera la référence si elle est coché

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Test()
    Dim Item
    For Each Item In ThisWorkbook.VBProject.References
        If Item.Name = "stdole" Then MsgBox "Trouvé"
    Next
End Sub

Sinon, a cocher.

[Harry Covair]

Re,

La référence OLE Automation n'était pas cochée.
Tout fonctionne comme je le souhaite.
Grand merci pour l'aide pertinente

Harry