importer des image dans des label

Version imprimable

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:

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

17/05/2011, 09h47
casefayere

Bonjour,

Code:

...ActiveWorkbook.Path & "\images\" & Cells(i, 2) & ".jpg"

image est un dossier ?, dans ce cas, verifies que tu as bien un dossier 'images" en sous-répertoire dans "ActiveWorkbook.Path"
Vérifies également l'adresse de Cells(i, 2)
17/05/2011, 13h24
dodo69
Salut case fayere,
Non , l'image n'est pas un dossier, mais la "cells(i,2) représente le nom du l'image à importer.

J'ai mon fichier Excel qui se trouve dans
Code:

1 2 I:\autre\VBA
Code:

1 2 I:\autre\VBA\images
Et lorsque je lance la macro en mode pas a pas les dossier ou se situe les fichier image à importer sont les bons.

Bonjour
Essaies d'indiquer la feuille à laquelle les noms des images sont écrites. Par exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub importer()
Dim Chemin As String, Img As String
Dim i As Integer
 
With ThisWorkbook
    Chemin = .Path & "\images\"
    For i = 1 To 251
        Img = Chemin & .Worksheets("Feuil1").Cells(i, 2).Value & ".jpg"    'adapte le nom de la feuille
        UserForm1.Controls("Label" & i).Picture = LoadPicture(Img)
    Next i
End With
End Sub

18/05/2011, 22h03
dodo69

ca ne marche toujours pas :s

je n'arrive vraiment pas à comprendre d'ou vient le problème :s

les données qu'il est censé me ramener son bonne

C'est juste qu'il n'arrive pas à importer dans le label, et je ne comprend pas :'(
18/05/2011, 22h24
mercatog

Comment tu lance la procédure importer?
30/05/2011, 16h53
dodo69

Bonjour,

Pour vous dire que j'ai importer les images une par une du coup, c'était particulièrement long mais bon ca devennait urgent

Cependant pour essayer de comprendre le problème je reviens sur le topic si certains veulent élucider le problème.

Mercatog: je lance la procédure en me mettant sur ma macro et en appuyant sur F5 ...

Crée un Bouton sur ton userform et affect lui ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim Chemin As String, Img As String
Dim i As Integer
 
With ThisWorkbook
    Chemin = .Path & "\images\"
    For i = 1 To 251
        Img = Chemin & .Worksheets("Feuil1").Cells(i, 2).Value & ".jpg"    'adapte le nom de la feuille
        UserForm1.Controls("Label" & i).Picture = LoadPicture(Img)
    Next i
End With
End Sub

Si tu veux que tes images s'insèrent à l'initialisation de ton usf, utilise

Code:

1
2
3
Private Sub UserForm_Initialize()
 
End Sub