Affichage images externe avec variable dans le nom

[SAMWRC]

Bonjour a tous,

J'essaie d'afficher des images dans mon fichier excel.
Toutes les images sont stockees dans un dossier avec un nom precis.

Lorsque je veux afficher une image particuliere dont je connais le nom, aucun probleme :

Sub CommandButton1_Click()
Feuille1.Image1.Picture = LoadPicture("M:\PICTURE1.JPG")

' Redimensionner l'image
Feuille1.Image1.Picture.Height = 150
Feuille1.Image1.Picture.Width = 190
End Sub

Par contre, lorsque je veux utiliser la variable i dans l'adresse de ma variable, ca se complique ... J'ai essaye ca, mais ca ne marche pas :

Private i As Integer

Sub CommandButton1_Click()
i = i+1
Feuille1.Image1.Picture = LoadPicture("M:\PICTURE" & i & ".JPG")

' Redimensionner l'image
Feuille1.Image1.Picture.Height = 150
Feuille1.Image1.Picture.Width = 190
End Sub

De meme, la methode de redimensionnement avec la forme image VBA n'est pas optimum.

Quelqu'un a-t-il une idee ?

Merci d'avance

Sam

 

[SAMWRC]

Re : Affichage images externe avec variable dans le nom

aaaaaaaaaaa