Photo extension userforme

bonjour

dans mon userforme j'ai ce code la qui vient chercher les photos je n'arrive pas a mettre plusieurs extension pourtant ça devrez etre simple..

répertoirePhoto = "c:\photos"

If Dir(répertoirePhoto & "\" & Me.ComboBox1 & ".jpg") <> "" Then

Me.Image3.Picture = LoadPicture(répertoirePhoto & "\" & ComboBox1 & ".jpg")

Else

Me.Image3.Picture = LoadPicture

j'ai essaié en mettant jpg.gif.png ça ne marche pas

merci

bonne journée

Bonjour,

Il te faut changer l'extension dans le test :

Dim Fichier As String

répertoirePhoto = "c:\photos"

'changer l'extension ici seulement !
Fichier = répertoirePhoto & "\" & Me.ComboBox1 & ".jpg"

If Dir(Fichier) <> "" Then
    Me.Image3.Picture = LoadPicture(Fichier)
Else
    Me.Image3.Picture = LoadPicture
End If

bonjour Theze

merci de ta reponse j'essayer se soir ce que tu ma dit !

j'aimerai pouvoir lire tous les fichier image que se sois du png jpeg raw ou autre former (les plus courants)

bonjour Theze

j'ai essayer mais ça ne fonctionne pas j'aimerai pouvoir lire n'importe quelle photo que ce sois du format TIFF, JPEG JPG, GIF PNG BMP

merci pour ton aide

Il te suffit de changer l’extension

LoadPicture() attend un chemin et nom de fichier exact donc, si tu veux avoir le nom du fichier avec plusieurs extensions (image enregistrée dans divers formats) il te faut passer par exemple par une ListBox qui liste les fichiers portant les mêmes noms mais avec les extensions différentes et choisir dans cette ListBox celui que tu veux afficher

merci Theze pour toute c'est information car je ne connais vraiment pas userforme

Bonjour,

Un fichier exemple où tu dois adapter le remplissage du ComboBox dans le code pour les noms de tes images :

bonjour,

merci pour cette exemple