XL 2013 Formulaire image

[maval]

Bonjour

J'ai un formulaire avec un défilement d'images qui fonctionne .

Mon problème est qu'il faut que mes images se nomme Image1.jpg, Image2.jpg ect...
Alors que mes images se nomme par leur Nom Pierre, Paul ect..
Y a t-il un moyen?
Mon Code:

Private Sub UserForm_Activate()
    chem = "C:\Users\Max\Desktop\defiler_image\portraits\"
    lafin = False
    Do
        ind = 1
        Do
            img = "image" & ind & ".jpg"
            Image1.Picture = LoadPicture(chem & img)
            
            Application.Wait (Now + TimeValue("00:00:02"))
            DoEvents
            ind = ind + 1
        Loop Until ind > 3 Or lafin = True
        DoEvents
    Loop Until lafin = True
End Sub

Je vous remercie

 

[sousou]

Bonjour
La solution serait de lire tous les noms d'image du dossier "protraits" avec dir par exemple, de les mettre dans un tableau ou une collection, puis de lire avec l'index du tableau

 

[maval]

Bonjour Sousou

Le problème est qu'il y a environ 600images?

 

[sousou]

Le nombre d'images ne pose pas de problème.
ou sans tableau.
Sub testimges()
chemin = "C:\Users\bas\Documents\exceldwnload\photos\" 'chemin de tesimgaes
img = Dir(chemin & "*.gif") 'filtre des extensions
While img <> ""
MsgBox img 'ici tu mets l'afficgie de l'image et l'attente
img = Dir()
Wend
End Sub

 

[maval]

Re,

Je te remercie mais il faut que mette toujours Image1.jpg, Image2.jpg ect...

 

[job75]

Bonjour maval, sousou,

Private Sub UserForm_Activate()
Dim chemin$, fichier$, n%
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "*.jpg")
On Error Resume Next 's'il n'y a pas assez de contrôles images
While fichier <> ""
   n = n + 1
   Me("Image" & n).Picture = LoadPicture(chemin & fichier)
   fichier = Dir
Wend
End Sub