Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro récupérer images

  • Initiateur de la discussion Initiateur de la discussion Harold
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Harold

XLDnaute Junior
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"

Code:
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
 
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
 
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?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
252
Réponses
4
Affichages
741
Réponses
1
Affichages
611
Compte Supprimé 979
C
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…