Discussion :

[Ozabois]

Bonjour à la communauté
Je souhaiterais incruster un logo (enregistré en tant qu'image png) dans un UserForm
J'ai bien tenté une approche mais sans parvenir au résultat. Cependant une zone grisée apparait sur mon Userform à l'emplacement du Logo (c'est bon signe). Une extension jpg donne le même résultat

Ci dessous mon code. Quand je lance la macro, l'erreur se produit au niveau de la ligne 16. (pour info, je travaille sur Windows10)
Une âme bienfaisante aurait-elle une idée ?

Merci à tous pour votre attention
Ozabois

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub UserForm_Activate()
    Me.Top = 300
    Me.Left = 70
 
    ' Insérer l'image dans la boîte de dialogue
    Dim img As Image
    Set img = Me.Controls.Add("Forms.Image.1", "Image1")
 
    ' Définir les propriétés de l'image
    With img
        .Left = 15
        .Top = 275
        .Width = 40
        .Height = 40
        .PictureSizeMode = fmPictureSizeModeStretch
        .Picture = LoadPicture("D:\Fichiers\Brasserie\Etiquette\Logo BLP.png")
    End With
 
End Sub

[Franc]

Bonjour, de quelle erreur s'agit-il ?
A priori le code est correct, la seule possibilité d'erreur que je vois à la ligne mentionnée, ce serait un chemin d'accès incorrect ou inexistant.

[Ozabois]

Bonsoir Franc
Merci beaucoup pour ta relecture
L'erreur renvoyée est "Erreur d'exécution 481 - Image non valide"
L'image est une forme ppt dessinée à la main mais j'ai aussi essayé avec une image (photo) et le résultat est le même

[Franc]

Il me semble que le format .PNG n'est pas accepté par LoadPicture, mais bien BMP, JPEG, GIF, WMF et ICO.

[Ozabois]

Merci Franc pour ton retour
En fait, il y avait un problème sur le nom du fichier. Ca s'importe bien désormais, il me reste juste à faire disparaitre le cadre de l'image. Je devrais pouvoir m'en sortir
Encore merci et bonne journée