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 +