Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

maval

XLDnaute Barbatruc
Bonjour

J'ai un formulaire pour visionner des photos sont code
VB:
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

XLDnaute Barbatruc
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
 
Dernière édition:

job75

XLDnaute Barbatruc
Bonjour maval, salut Jean-Marie,

Curieux que vous ne trouviez pas tout seul :
VB:
TextBox1 = oFile.Name 'nom du fichier image
A+
 

Pièces jointes

  • defilement_d'images(1).xlsm
    22.1 KB · Affichages: 5

job75

XLDnaute Barbatruc
Application.Wait n'est pas une très bonne méthode, il vaut mieux utiliser :
VB:
'Application.Wait (Now + TimeValue("00:00:02"))
t = Timer + 2
If t < 86400 Then While Timer < t: DoEvents: Wend
Fichier (2).
 

Pièces jointes

  • defilement_d'images(2).xlsm
    24 KB · Affichages: 4

patricktoulon

XLDnaute Barbatruc
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
 

patricktoulon

XLDnaute Barbatruc
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
 

Pièces jointes

  • defilement_d'images V3.xlsm
    24.5 KB · Affichages: 5

patricktoulon

XLDnaute Barbatruc
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)
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…