affichage de fichier

[gildas lechat]

Bonjour le forum🙂,

Vous trouverez ci joint un extrait d'une macro me permettant d'afficher sur le label3 le chemin d'acces d'un fichier.
Ca fonctionne bien😀.

J'aimerai pouvoir afficher en plus dans un listbox1 l'ensemble des fichiers existant dans le dossier "(DossierRapportDeContolefinal & TextBox1.Value )"

Public DossierChoisi
Private Sub CommandButton1_Click()
DossierRapportDeContolefinal = "\\ml350\production\Atelier CONTROLES\Rapport de controle final\" 'Remplacer le dossier source de recherche de rapport

NOMREP = Dir(DossierRapportDeContolefinal & TextBox1.Value & "\a-*")
If NOMREP = "" Then
Label3.Caption = "Pas de dossier correspondant au nom specifie"
Else
Label3.Caption = "\\ML350\Production\Atelier CONTROLES\Rapport de controle final\" & TextBox1.Value & "\" & NOMREP 'A adapter
Found = True
End If
End Sub

Merci pour votre aide
Gildas

 

[James007]

Re : affichage de fichier

Bonjour,

A tester et à adapter ...

Private Sub UserForm_Initialize()
 Dim strDirectory As String
 Dim strFile As String
 Dim lb As MSForms.ListBox
 Dim i As Integer
 strDirectory = InputBox("Choisir le Répertoire", "Fichiers", "\\ml350\production\Atelier CONTROLES\Rapport de controle final\")
 If strDirectory = "" Then Exit Sub
    ChDrive Left(strDirectory, 1)
    ChDir strDirectory
    strFile = Dir("*.xls")
 Set lb = UserForm1.ListBox1
    Do Until strFile = ""
        i = i + 1
        lb.AddItem strFile
        strFile = Dir()
    Loop
End Sub

A +