Bonjour a tous,

J'ai un dossier avec 251 images... Et une feuille ou chacun des noms des images est inscrit...
Sur un UserForm j'ai des Label qui se nomment de Label1 à Label251

J'aimerai mettre chacune des images dans les Labels...

J'ai déjà ce code.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Sub importer()
 
Dim i As Integer
 
For i = 1 To 251
 
UserForm1.Controls("Label" & i).Picture = LoadPicture(ActiveWorkbook.Path & "\images\" & Cells(i, 2) & ".jpg")
 
Next i
 
End Sub
Le module s'execute mais n'importe pas les image dans les Label

Merci de m'aider
Cdt
DoDo
Je ne trouve pas pourquoi