Bonjour toutes et tous,
La macro suivante charge tous les fichiers d'un r=E9pertoire=20
dans un ListBox. Ca marche parfait, mais je souhaite=20
limiter le type de fichiers a charger au fichiers *.txt.
Une id=E9e ? Merci, Benoit,
Private Sub UserForm_Initialize()
Dim fs, f, f1, fc, s
Set fs =3D CreateObject("Scripting.FileSystemObject")
Set f =3D fs.GetFolder
("c:\Donnees\BB_Ben\Report\Historique")
Set fc =3D f.Files
For Each f1 In fc
=20
If f1.Name =3D "Historique.xls" Then GoTo suivant
ListBox1.AddItem f1.Name
suivant:
Next
End Sub
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
Clément Marcotte
Bonjour,
À première vue, et pas envie de tester:
Private Sub UserForm_Initialize() Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder ("c:DonneesBB_BenReportHistorique") Set fc = f.Files For Each f1 In fc
if instr(ucase(f1),"TXT") >0 then ListBox1.AddItem f1.Name end if Next
End Sub
"Benoit" a écrit dans le message de news:21e901c3e06b$4a3c8ab0$ Bonjour toutes et tous, La macro suivante charge tous les fichiers d'un répertoire dans un ListBox. Ca marche parfait, mais je souhaite limiter le type de fichiers a charger au fichiers *.txt. Une idée ? Merci, Benoit,
Private Sub UserForm_Initialize() Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder ("c:DonneesBB_BenReportHistorique") Set fc = f.Files For Each f1 In fc
If f1.Name = "Historique.xls" Then GoTo suivant ListBox1.AddItem f1.Name suivant: Next End Sub
Bonjour,
À première vue, et pas envie de tester:
Private Sub UserForm_Initialize()
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder
("c:DonneesBB_BenReportHistorique")
Set fc = f.Files
For Each f1 In fc
if instr(ucase(f1),"TXT") >0 then
ListBox1.AddItem f1.Name
end if
Next
End Sub
"Benoit" <Benoit.cornille@worldonline.be> a écrit dans le message de
news:21e901c3e06b$4a3c8ab0$a601280a@phx.gbl...
Bonjour toutes et tous,
La macro suivante charge tous les fichiers d'un répertoire
dans un ListBox. Ca marche parfait, mais je souhaite
limiter le type de fichiers a charger au fichiers *.txt.
Une idée ? Merci, Benoit,
Private Sub UserForm_Initialize()
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder
("c:DonneesBB_BenReportHistorique")
Set fc = f.Files
For Each f1 In fc
If f1.Name = "Historique.xls" Then GoTo suivant
ListBox1.AddItem f1.Name
suivant:
Next
End Sub
Private Sub UserForm_Initialize() Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder ("c:DonneesBB_BenReportHistorique") Set fc = f.Files For Each f1 In fc
if instr(ucase(f1),"TXT") >0 then ListBox1.AddItem f1.Name end if Next
End Sub
"Benoit" a écrit dans le message de news:21e901c3e06b$4a3c8ab0$ Bonjour toutes et tous, La macro suivante charge tous les fichiers d'un répertoire dans un ListBox. Ca marche parfait, mais je souhaite limiter le type de fichiers a charger au fichiers *.txt. Une idée ? Merci, Benoit,
Private Sub UserForm_Initialize() Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder ("c:DonneesBB_BenReportHistorique") Set fc = f.Files For Each f1 In fc
If f1.Name = "Historique.xls" Then GoTo suivant ListBox1.AddItem f1.Name suivant: Next End Sub
j
c'est bizarre, chez moi, ça prend aussi le fichier contxte.xls, c'est pas normal !
"Clément Marcotte" a écrit dans le message de news:
Bonjour,
À première vue, et pas envie de tester:
Private Sub UserForm_Initialize() Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder ("c:DonneesBB_BenReportHistorique") Set fc = f.Files For Each f1 In fc
if instr(ucase(f1),"TXT") >0 then ListBox1.AddItem f1.Name end if Next
End Sub
"Benoit" a écrit dans le message de news:21e901c3e06b$4a3c8ab0$ Bonjour toutes et tous, La macro suivante charge tous les fichiers d'un répertoire dans un ListBox. Ca marche parfait, mais je souhaite limiter le type de fichiers a charger au fichiers *.txt. Une idée ? Merci, Benoit,
Private Sub UserForm_Initialize() Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder ("c:DonneesBB_BenReportHistorique") Set fc = f.Files For Each f1 In fc
If f1.Name = "Historique.xls" Then GoTo suivant ListBox1.AddItem f1.Name suivant: Next End Sub
c'est bizarre, chez moi, ça prend aussi le fichier contxte.xls, c'est pas
normal !
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news: uBymVyG4DHA.1728@TK2MSFTNGP09.phx.gbl...
Bonjour,
À première vue, et pas envie de tester:
Private Sub UserForm_Initialize()
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder
("c:DonneesBB_BenReportHistorique")
Set fc = f.Files
For Each f1 In fc
if instr(ucase(f1),"TXT") >0 then
ListBox1.AddItem f1.Name
end if
Next
End Sub
"Benoit" <Benoit.cornille@worldonline.be> a écrit dans le message de
news:21e901c3e06b$4a3c8ab0$a601280a@phx.gbl...
Bonjour toutes et tous,
La macro suivante charge tous les fichiers d'un répertoire
dans un ListBox. Ca marche parfait, mais je souhaite
limiter le type de fichiers a charger au fichiers *.txt.
Une idée ? Merci, Benoit,
Private Sub UserForm_Initialize()
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder
("c:DonneesBB_BenReportHistorique")
Set fc = f.Files
For Each f1 In fc
If f1.Name = "Historique.xls" Then GoTo suivant
ListBox1.AddItem f1.Name
suivant:
Next
End Sub
c'est bizarre, chez moi, ça prend aussi le fichier contxte.xls, c'est pas normal !
"Clément Marcotte" a écrit dans le message de news:
Bonjour,
À première vue, et pas envie de tester:
Private Sub UserForm_Initialize() Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder ("c:DonneesBB_BenReportHistorique") Set fc = f.Files For Each f1 In fc
if instr(ucase(f1),"TXT") >0 then ListBox1.AddItem f1.Name end if Next
End Sub
"Benoit" a écrit dans le message de news:21e901c3e06b$4a3c8ab0$ Bonjour toutes et tous, La macro suivante charge tous les fichiers d'un répertoire dans un ListBox. Ca marche parfait, mais je souhaite limiter le type de fichiers a charger au fichiers *.txt. Une idée ? Merci, Benoit,
Private Sub UserForm_Initialize() Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder ("c:DonneesBB_BenReportHistorique") Set fc = f.Files For Each f1 In fc
If f1.Name = "Historique.xls" Then GoTo suivant ListBox1.AddItem f1.Name suivant: Next End Sub
papou
Bonjour Benoit Utilise simplement l'opérateur Like : If f1.Name Like "*.txt" Then Cordialement Pascal
"Benoit" a écrit dans le message de news:21e901c3e06b$4a3c8ab0$ Bonjour toutes et tous, La macro suivante charge tous les fichiers d'un répertoire dans un ListBox. Ca marche parfait, mais je souhaite limiter le type de fichiers a charger au fichiers *.txt. Une idée ? Merci, Benoit,
Private Sub UserForm_Initialize() Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder ("c:DonneesBB_BenReportHistorique") Set fc = f.Files For Each f1 In fc
If f1.Name = "Historique.xls" Then GoTo suivant ListBox1.AddItem f1.Name suivant: Next End Sub
Bonjour Benoit
Utilise simplement l'opérateur Like :
If f1.Name Like "*.txt" Then
Cordialement
Pascal
"Benoit" <Benoit.cornille@worldonline.be> a écrit dans le message de
news:21e901c3e06b$4a3c8ab0$a601280a@phx.gbl...
Bonjour toutes et tous,
La macro suivante charge tous les fichiers d'un répertoire
dans un ListBox. Ca marche parfait, mais je souhaite
limiter le type de fichiers a charger au fichiers *.txt.
Une idée ? Merci, Benoit,
Private Sub UserForm_Initialize()
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder
("c:DonneesBB_BenReportHistorique")
Set fc = f.Files
For Each f1 In fc
If f1.Name = "Historique.xls" Then GoTo suivant
ListBox1.AddItem f1.Name
suivant:
Next
End Sub
Bonjour Benoit Utilise simplement l'opérateur Like : If f1.Name Like "*.txt" Then Cordialement Pascal
"Benoit" a écrit dans le message de news:21e901c3e06b$4a3c8ab0$ Bonjour toutes et tous, La macro suivante charge tous les fichiers d'un répertoire dans un ListBox. Ca marche parfait, mais je souhaite limiter le type de fichiers a charger au fichiers *.txt. Une idée ? Merci, Benoit,
Private Sub UserForm_Initialize() Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder ("c:DonneesBB_BenReportHistorique") Set fc = f.Files For Each f1 In fc
If f1.Name = "Historique.xls" Then GoTo suivant ListBox1.AddItem f1.Name suivant: Next End Sub
Benoit
Merci des réponses, je vais essayer tout ça au boulot. Au cas ou ..
Benoit,
-----Message d'origine----- c'est bizarre, chez moi, ça prend aussi le fichier contxte.xls, c'est pas
normal !
"Clément Marcotte" a écrit dans le message
de news:
Bonjour,
À première vue, et pas envie de tester:
Private Sub UserForm_Initialize() Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder ("c:DonneesBB_BenReportHistorique") Set fc = f.Files For Each f1 In fc
if instr(ucase(f1),"TXT") >0 then ListBox1.AddItem f1.Name end if Next
End Sub
"Benoit" a écrit dans le message de
news:21e901c3e06b$4a3c8ab0$ Bonjour toutes et tous, La macro suivante charge tous les fichiers d'un répertoire
dans un ListBox. Ca marche parfait, mais je souhaite limiter le type de fichiers a charger au fichiers *.txt. Une idée ? Merci, Benoit,
Private Sub UserForm_Initialize() Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder ("c:DonneesBB_BenReportHistorique") Set fc = f.Files For Each f1 In fc
If f1.Name = "Historique.xls" Then GoTo suivant ListBox1.AddItem f1.Name suivant: Next End Sub
.
Merci des réponses, je vais essayer tout ça au boulot.
Au cas ou ..
Benoit,
-----Message d'origine-----
c'est bizarre, chez moi, ça prend aussi le fichier
contxte.xls, c'est pas
normal !
"Clément Marcotte" <clement.marcotte@sympatico.ca> a
écrit dans le message
de news: uBymVyG4DHA.1728@TK2MSFTNGP09.phx.gbl...
Bonjour,
À première vue, et pas envie de tester:
Private Sub UserForm_Initialize()
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder
("c:DonneesBB_BenReportHistorique")
Set fc = f.Files
For Each f1 In fc
if instr(ucase(f1),"TXT") >0 then
ListBox1.AddItem f1.Name
end if
Next
End Sub
"Benoit" <Benoit.cornille@worldonline.be> a écrit dans
le message de
news:21e901c3e06b$4a3c8ab0$a601280a@phx.gbl...
Bonjour toutes et tous,
La macro suivante charge tous les fichiers d'un
répertoire
dans un ListBox. Ca marche parfait, mais je souhaite
limiter le type de fichiers a charger au fichiers *.txt.
Une idée ? Merci, Benoit,
Private Sub UserForm_Initialize()
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder
("c:DonneesBB_BenReportHistorique")
Set fc = f.Files
For Each f1 In fc
If f1.Name = "Historique.xls" Then GoTo suivant
ListBox1.AddItem f1.Name
suivant:
Next
End Sub
Merci des réponses, je vais essayer tout ça au boulot. Au cas ou ..
Benoit,
-----Message d'origine----- c'est bizarre, chez moi, ça prend aussi le fichier contxte.xls, c'est pas
normal !
"Clément Marcotte" a écrit dans le message
de news:
Bonjour,
À première vue, et pas envie de tester:
Private Sub UserForm_Initialize() Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder ("c:DonneesBB_BenReportHistorique") Set fc = f.Files For Each f1 In fc
if instr(ucase(f1),"TXT") >0 then ListBox1.AddItem f1.Name end if Next
End Sub
"Benoit" a écrit dans le message de
news:21e901c3e06b$4a3c8ab0$ Bonjour toutes et tous, La macro suivante charge tous les fichiers d'un répertoire
dans un ListBox. Ca marche parfait, mais je souhaite limiter le type de fichiers a charger au fichiers *.txt. Une idée ? Merci, Benoit,
Private Sub UserForm_Initialize() Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder ("c:DonneesBB_BenReportHistorique") Set fc = f.Files For Each f1 In fc
If f1.Name = "Historique.xls" Then GoTo suivant ListBox1.AddItem f1.Name suivant: Next End Sub
