Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonsoir,
Private Sub UserForm_Initialize() repertoire = "C:TOTO" nf = Dir(repertoire & "*.*") ' premier fichier Do While nf <> "" Me.ListBox1.AddItem nf nf = Dir ' fichier suivant Loop End Sub
JB http://boisgontierjacques.free.fr/
Bonsoir,
Private Sub UserForm_Initialize()
repertoire = "C:TOTO"
nf = Dir(repertoire & "*.*") ' premier fichier
Do While nf <> ""
Me.ListBox1.AddItem nf
nf = Dir ' fichier suivant
Loop
End Sub
Private Sub UserForm_Initialize() repertoire = "C:TOTO" nf = Dir(repertoire & "*.*") ' premier fichier Do While nf <> "" Me.ListBox1.AddItem nf nf = Dir ' fichier suivant Loop End Sub
JB http://boisgontierjacques.free.fr/
Alain Lebayle
Bonsoir JB, Un très grand merci à toi. Bravo pour ta célérité. Alain
JB a écrit :
Bonsoir,
Private Sub UserForm_Initialize() repertoire = "C:TOTO" nf = Dir(repertoire & "*.*") ' premier fichier Do While nf <> "" Me.ListBox1.AddItem nf nf = Dir ' fichier suivant Loop End Sub
JB http://boisgontierjacques.free.fr/
Bonsoir JB,
Un très grand merci à toi.
Bravo pour ta célérité.
Alain
JB a écrit :
Bonsoir,
Private Sub UserForm_Initialize()
repertoire = "C:TOTO"
nf = Dir(repertoire & "*.*") ' premier fichier
Do While nf <> ""
Me.ListBox1.AddItem nf
nf = Dir ' fichier suivant
Loop
End Sub
Bonsoir JB, Un très grand merci à toi. Bravo pour ta célérité. Alain
JB a écrit :
Bonsoir,
Private Sub UserForm_Initialize() repertoire = "C:TOTO" nf = Dir(repertoire & "*.*") ' premier fichier Do While nf <> "" Me.ListBox1.AddItem nf nf = Dir ' fichier suivant Loop End Sub