XL 2016 code VBA

[lynyrd]

Bonsoir le forum
J'ai un formulaire pour gérer mes films
Avant toutes les images trouvées sur le net pour format "jpg",maintenant ca change il y a du format "jfif".

Comment faire pour ajouter le format "jfif" a ce bout de code.

For x = 0 To 13
Next x
Me.Image1.Picture = LoadPicture(Chemin & Me.ListBox1 & ".jpg")

Merci

 

[Gégé-45550]

Bonsoir le forum
J'ai un formulaire pour gérer mes films
Avant toutes les images trouvées sur le net pour format "jpg",maintenant ca change il y a du format "jfif".

Comment faire pour ajouter le format "jfif" a ce bout de code.

For x = 0 To 13
Next x
Me.Image1.Picture = LoadPicture(Chemin & Me.ListBox1 & ".jpg")

Merci

Bonsoir,
Peut-être en testant préalablement l'extension de l'image à charger puis une condition :

if ext="jpg" then
    Me.Image1.Picture = LoadPicture(Chemin & Me.ListBox1 & ".jpg")
elseif ext = "jfif" then
    Me.Image1.Picture = LoadPicture(Chemin & Me.ListBox1 & ".jfif")
end if

Cordialement ... skynyrd

 

[lynyrd]

Bonjour Gégé-45550
Chez moi ça bug
Merci quand meme

 

[Gégé-45550]

Bonjour Gégé-45550
Chez moi ça bug
Merci quand meme

Autre solution, convertir vos jfif en jpg ; il y a plein de sites qui le font