XL 2013 Formulaire image

sousou

XLDnaute Barbatruc

• 8 Août 2019

• #2

Bonjour
La solution serait de lire tous les noms d'image du dossier "protraits" avec dir par exemple, de les mettre dans un tableau ou une collection, puis de lire avec l'index du tableau

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 8 Août 2019

• #3

Bonjour Sousou

Le problème est qu'il y a environ 600images?

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 8 Août 2019

• #4

Le nombre d'images ne pose pas de problème.
ou sans tableau.
Sub testimges()
chemin = "C:\Users\bas\Documents\exceldwnload\photos\" 'chemin de tesimgaes
img = Dir(chemin & "*.gif") 'filtre des extensions
While img <> ""
MsgBox img 'ici tu mets l'afficgie de l'image et l'attente
img = Dir()
Wend
End Sub

 

Dernière édition: 8 Août 2019

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 8 Août 2019

• #5

Re,

Je te remercie mais il faut que mette toujours Image1.jpg, Image2.jpg ect...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Août 2019

• #6

Bonjour maval, sousou,

VB:

Private Sub UserForm_Activate()
Dim chemin$, fichier$, n%
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "*.jpg")
On Error Resume Next 's'il n'y a pas assez de contrôles images
While fichier <> ""
   n = n + 1
   Me("Image" & n).Picture = LoadPicture(chemin & fichier)
   fichier = Dir
Wend
End Sub

 

Vote positif 0 Vote négatif