Formulaire images

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:

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

Bonjour,

Pour des fins de tests ... il serait bien que tu fournisses un bout de fichier avec le formulaire en question.

Merci.

ric

Re,

Mon fichier

Je ne sais pas si le code est bien bon?

Tu as plus de connaissance que moi pour me le dire et je suis prêt à tous changer

A+

Max

Bonjour,

Quelque soit le nom des images dans le dossier ...

Un essai ...

Private Sub UserForm_Activate()
' adapté de Ole P Erlandsen
' necessite d'activer la reference Microsoft Scripting RunTime
Static FSO As FileSystemObject
Dim oSourceFolder As Scripting.Folder
Dim oFile As Scripting.File
Dim Chem As String

    Chem = "C:\Users\Max\Desktop\defiler_image\portraits\"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set oSourceFolder = FSO.GetFolder(Chem)
    lafin = False
    Do
        ind = 1
        Do
            For Each oFile In oSourceFolder.Files
                Image1.Picture = LoadPicture(oFile)
                Application.Wait (Now + TimeValue("00:00:02"))
                DoEvents
                ind = ind + 1
            Next oFile
        Loop Until ind > 5 Or lafin = True
        DoEvents
    Loop Until lafin = True
End Sub

ric

Re ric

Nickel sa fonctionne très bien, juste une petite chose que je ne comprend pas

Tant qu'il y a des images dans le dossier je ne peut pas l'arrêter sinon je doit arrêter et réinitialiser pourquoi Bof?

Je te remercie beaucoup et te souhaite une bonne soirée

Max

Bonjour,

Je ne sais pas.

Le mieux est de bien décrire ce que tu souhaites obtenir.

ric

Si j'arrête le formulaire avant la fin de toutes les images sa plante il faut je réinitialise

Est-il possible de mettre sur le bouton arrêt un code de réinitialiser?

Bonjour,

Ajout d'un bouton Pause/Reprendre ...

Un essai ...

ric

Salut ric

Nickel je te remercie beaucoup

Bon WE

Max

Bonjour ric

Si tu passe par la et que tu peu m'aider à trouver mon petit problème sa serai super.

Voila j'ai ajouté au programme ceci:

TextBox1 = oFile.Name 

pour avoir le nom de la photo dans un textBox sa fonctionne mais seul truc qui ne me convient pas est

ex. max dupont.jpg

et j'aimerai supprimer le .jpg et j'ai chercher mais rien trouver.

Je te remercie

Max

Bonjour,

TextBox1 = Left(oFile.Name, Len(oFile.Name) - 4)

Ce qui veut dire : à partir de la gauche du nom du fichier, le nombre de caractère = la longueur du nom - 4 caractères (.jpg)

ric

Re,

Nickel je te remercie beaucoup

Max