Macro récupérer images

[Harold]

Bonjour à tous,

Voilà, j'ai récupérer une partie de macro qui me permet de récupérer une image dans un dossier de mon ordinateur, elle fonctionne sur 1 image, seulement je vais devoir mettre plusieurs images dans la même UserForm, comment puis-je faire pour que cette macro fonctionne sur plusieurs image dont le début du nom est le même
ici "Acteur", qui va chercher l'image dans "Pictures\Acteurs"

Nom = Me.Acteur1.Caption
On Error Resume Next
Fichier = "C:\Users\Harold\Pictures\Acteurs" & "\" & Nom & ".jpg"
Me.Acteur1.Picture = LoadPicture(Fichier)

Merci d'avance de vos réponses

 

[Claudy]

Re : Macro récupérer images

Bonjour,
j'ai pas testé mais je crois que ça devrait aller...

en faisant une boucle dans le genre:

For i=1 to 100'ici le nombre d'images
Nom = Me.Acteur1.Caption
On Error Resume Next
Fichier = "C:\Users\Harold\Pictures\Acteurs" & "\" & Nom & i & ".jpg"
Me.Acteur1.Picture = LoadPicture(Fichier)
next
A+
Claudy

 

[Harold]

Re : Macro récupérer images

Bonjour Claudy,

Mais la partie où c'est marqué "Acteur1", je vois que tu l'aurai laissé dans le code, ça ne va pas dérangé? ou faudrait pas un truc général?

 

[Claudy]

Re : Macro récupérer images

A toi d'essayer...on verra
a+

 

[Harold]

Re : Macro récupérer images

Ok J'essai ce midi, et je dis quoi,

Merci