Image en PNG

Bonjour,

j'ai un USF qui recherche dans un fichier d'un même classeur des images avec se code qui marche très bien avec des images JPG

Fichier = ActiveWorkbook.Path & "\Blason_départements_et_régions\" & Nom & ".jpg"
    If Dir(Fichier) <> "" Then
        Me.Image1.Picture = LoadPicture(Fichier)
            Else
        On Error Resume Next: Me.Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\Blason_départements_et_régions\" & "vide.jpg")                       
    End If
    'Stop

J'ai changer l’extension des images pour avoir du PNG et j'ai changer dans mon code en mettant comme ceci:

Fichier = ActiveWorkbook.Path & "\Blason_départements_et_régions\" & Nom & ".png"

    If Dir(Fichier) <> "" Then
        Me.Image1.Picture = LoadPicture(Fichier)
            Else
        On Error Resume Next: Me.Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\Blason_départements_et_régions\" & "vide.png")
    End If
    'Stop

Message d'erreur : image incorrect

Merci de votre aide

Cordialement

max

Re

Personne a une idée?

@+

Bonjour,

Certains formats d'images ne sont pas reconnus (PNG, TIF....)

Je crains que ce ne soit pas possible....

Bon courage

Re-,

Personne a une idée?

Ben, si, j'en ai eu une, mais tu semblais bien plus pressé de réitérer ta question (02 Heures entre la question et la relance.....) que de faire suite à mon idée.....

Mais peut-être qu'icelle ne t'a pas plu.....

Bon courage