XL 2013 Formulaire image

maval · 8 Août 2019

Bonjour

J'ai un formulaire avec un défilement d'images qui fonctionne .

Mon problème est qu'il faut que mes images se nomme Image1.jpg, Image2.jpg ect...
Alors que mes images se nomme par leur Nom Pierre, Paul ect..
Y a t-il un moyen?
Mon Code:

VB:

Private Sub UserForm_Activate()
    chem = "C:\Users\Max\Desktop\defiler_image\portraits\"
    lafin = False
    Do
        ind = 1
        Do
            img = "image" & ind & ".jpg"
            Image1.Picture = LoadPicture(chem & img)
            
            Application.Wait (Now + TimeValue("00:00:02"))
            DoEvents
            ind = ind + 1
        Loop Until ind > 3 Or lafin = True
        DoEvents
    Loop Until lafin = True
End Sub

Je vous remercie

sousou · 8 Août 2019

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

maval · 8 Août 2019

Bonjour Sousou

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

sousou · 8 Août 2019

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

maval · 8 Août 2019

Re,

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

job75 · 8 Août 2019

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

XL 2013 Formulaire image

maval

XLDnaute Barbatruc

sousou

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

sousou

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires