XL 2013 Donnée un nom à une image sur Formulaire

[maval]

Bonjour

J'ai un formulaire pour visionner des photos sont code

Option Base 1

Public Lafin

Private Sub Cmd_Action_Click()
    If Lafin = False Then
        Lafin = True
        Me.Cmd_Action.Caption = "Reprendre"
    Else
        Me.Cmd_Action.Caption = "Pause"
        PresenteImages
    End If
End Sub



Private Sub UserForm_Activate()

    PresenteImages
End Sub

Sub PresenteImages()
' 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
                If Lafin = False Then
                    Image1.Picture = LoadPicture(oFile)
                    Application.Wait (Now + TimeValue("00:00:02"))
                    DoEvents
                    ind = ind + 1
                Else
                    Exit Sub
                End If
            Next oFile
        Loop Until ind > 5 Or Lafin = True
        DoEvents
    Loop Until Lafin = True
End Sub

J'aimerai dans un textbox ou un label lui ajouter le nom?

Je vous remercie d'avance

 

[ChTi160]

Bonjour Max
Tu as du te coucher tard ！ lol
toujours le meme probleme！
pas de fichier.
peux tu （et tu sais le faire） mettre un fichier representatif de ce que tu as et de ce que tu veux.
soit un userform avec un Control Image , ou tu charges tes images.
et que veux tu en faire , ou la , les mettre.
tu auras un des labels avec le nom de la photos ou de la personne sera ce le meme？ lol
on va y arriver .
jean marie

 

[maval]

Re, Jean Marie

Voila un fichier

 

[ChTi160]

Re
je poste depuis mon telephone（vacances pas trop d ordi lol）
je regarde （ce soir） si pas de reponse.
bonne journee
jean marie

 

[maval]

Ok Merci et bonne vacance

 

[job75]

Bonjour maval, salut Jean-Marie,

Curieux que vous ne trouviez pas tout seul :

TextBox1 = oFile.Name 'nom du fichier image

A+

 

[job75]

Application.Wait n'est pas une très bonne méthode, il vaut mieux utiliser :

'Application.Wait (Now + TimeValue("00:00:02"))
t = Timer + 2
If t < 86400 Then While Timer < t: DoEvents: Wend

Fichier (2).

 

[maval]

Bonjour Job

Je vous remercie et vous souhaite un bon WE

 

[patricktoulon]

le problème avec cette méthode (si je ne me trompe pas )c'est que pause réamorce la boucle dir et repart donc a la première photo au prochain démarrage c'a n'est donc pas une pause mais un recommencement

 

[maval]

Salut Patrick

Oui tu as raison mais comment Faire ?

 

[patricktoulon]

comme ceci
dans le mien le bouton démarrer devient le bouton pause et vice et versa
change le chemin pour le tien dans la constante chemin en haut du code du userform2
clique bouton V 3

 

[maval]

Re Patrick

Oui c'est vrai il repart ou tu l'arrête.
Peut tu me dire pourquoi avec le nom j'ai extention ex: .jpg ?

Merci

 

[ChTi160]

Re
toujours de mon telephone.
tu as le choix lol

Excel VBA récupérer nom du fichier sans l'extension

Bonsoir à tous, j'ai dans une macro besoin de récupérer le nom du fichier sans l'extension .xls. Est ce possible ? Actuellement, je recherche avec .name mais j'ai l'extension .xls Je vous joins mon fichier. D'avance merci de votre aide. Patsyl60

www.excel-downloads.com

jean marie

 

[patricktoulon]

Re Patrick

Oui c'est vrai il repart ou tu l'arrête.
Peut tu me dire pourquoi avec le nom j'ai extention ex: .jpg ?

Merci

ben c'est simple je boucle DIR sur chemin &"*.jpg" tu aura donc tout les jpg du dossier
pourquoi tu veux pas le ".jpg" dans le textbox?

si tu le veux pas l'extention
c'est :
TextBox1.Value = split(Mid(tablphoto(index), InStrRev(tablphoto(index), "\") + 1),".")(0)