XL 2016 code VBA

lynyrd à dit:

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

Cliquez pour agrandir...

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

lynyrd à dit:

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

Cliquez pour agrandir...