Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Mettre fichier d'un repertoire dans une Combobox

Mettre fichier d'un repertoire dans une Combobox

10 réponses
Avatar
Michel HOLDERITH
Bonjour tout le monde,

Je voudrais savoir s'il y possibilite de lister certains fichiers d'un
repertoire pour les mettre dans une combobox ?

Exemple :

Dans le repertoire il y a plein de fichiers dont "prk_5600 " + date + ".txt"
.....
prk_5600 230204.txt
prk_5600 240204.txt
prk_5600 250204.txt
.....

Comment mettre dans une Combobox uniquement les dates ?

pour l'exemple :

230204
240204
250204

Merci d'avance,

@+
Michel.
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
Avatar
papou
Bonjour Michel
Par exemple sur un bouton de Userform :
Dim fs As FileSearch
Set fs = Application.FileSearch
With fs
.NewSearch
.LookIn = "D:Mes Documents"
.Filename = "*.txt"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Me.ListBox1.AddItem Right(Left(.FoundFiles(i),
Len(.FoundFiles(i)) - 4), 6)
Next i
Else
MsgBox "Pas de fichier trouvé."
End If
End With
Cordialement
Pascal


"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:OplYF54%
Bonjour tout le monde,

Je voudrais savoir s'il y possibilite de lister certains fichiers d'un
repertoire pour les mettre dans une combobox ?

Exemple :

Dans le repertoire il y a plein de fichiers dont "prk_5600 " + date +
".txt"

.....
prk_5600 230204.txt
prk_5600 240204.txt
prk_5600 250204.txt
.....

Comment mettre dans une Combobox uniquement les dates ?

pour l'exemple :

230204
240204
250204

Merci d'avance,

@+
Michel.







Avatar
Philippe.R
Bonjour Michel,

=LEFT(RIGHT(RC[-1],LEN(RC[-1])-FIND("" "",RC[-1])),LEN(RC[-1])-FIND("" "",RC[-1])-4)

convient il ?
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:OplYF54%
Bonjour tout le monde,

Je voudrais savoir s'il y possibilite de lister certains fichiers d'un
repertoire pour les mettre dans une combobox ?

Exemple :

Dans le repertoire il y a plein de fichiers dont "prk_5600 " + date + ".txt"
.....
prk_5600 230204.txt
prk_5600 240204.txt
prk_5600 250204.txt
.....

Comment mettre dans une Combobox uniquement les dates ?

pour l'exemple :

230204
240204
250204

Merci d'avance,

@+
Michel.







Avatar
Michel HOLDERITH
Salut,
merci pour cette reponse, mais je l'avais vu sur Excelabo, mais ma macro
plante au niveau :
.Filename = "*.txt" et je ne sais pas pourquoi.....
Version Excel 97... avec la 2000 ca marche bien....
Une idee ?
Merci,
Michel.

"papou" <DesolePasDeMail> wrote in message
news:Ooh9QK6%
Bonjour Michel
Par exemple sur un bouton de Userform :
Dim fs As FileSearch
Set fs = Application.FileSearch
With fs
.NewSearch
.LookIn = "D:Mes Documents"
.Filename = "*.txt"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Me.ListBox1.AddItem Right(Left(.FoundFiles(i),
Len(.FoundFiles(i)) - 4), 6)
Next i
Else
MsgBox "Pas de fichier trouvé."
End If
End With
Cordialement
Pascal


"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:OplYF54%
Bonjour tout le monde,

Je voudrais savoir s'il y possibilite de lister certains fichiers d'un
repertoire pour les mettre dans une combobox ?

Exemple :

Dans le repertoire il y a plein de fichiers dont "prk_5600 " + date +
".txt"

.....
prk_5600 230204.txt
prk_5600 240204.txt
prk_5600 250204.txt
.....

Comment mettre dans une Combobox uniquement les dates ?

pour l'exemple :

230204
240204
250204

Merci d'avance,

@+
Michel.











Avatar
Michel HOLDERITH
Salut,
Non je souhaite les lister via VBA, donc ici la formule est inutile....
merci quand meme,
Michel.

"Philippe.R" wrote in message
news:%23HYgdO6%
Bonjour Michel,

=LEFT(RIGHT(RC[-1],LEN(RC[-1])-FIND("" "",RC[-1])),LEN(RC[-1])-FIND(""
"",RC[-1])-4)


convient il ?
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:OplYF54%
Bonjour tout le monde,

Je voudrais savoir s'il y possibilite de lister certains fichiers d'un
repertoire pour les mettre dans une combobox ?

Exemple :

Dans le repertoire il y a plein de fichiers dont "prk_5600 " + date +
".txt"


.....
prk_5600 230204.txt
prk_5600 240204.txt
prk_5600 250204.txt
.....

Comment mettre dans une Combobox uniquement les dates ?

pour l'exemple :

230204
240204
250204

Merci d'avance,

@+
Michel.











Avatar
papou
Michel
Je viens de tester sur un Excel 97 SR2, et je n'ai pas de problème ?
Cordialement
Pascal


"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:OpJsOP6%
Salut,
merci pour cette reponse, mais je l'avais vu sur Excelabo, mais ma macro
plante au niveau :
.Filename = "*.txt" et je ne sais pas pourquoi.....
Version Excel 97... avec la 2000 ca marche bien....
Une idee ?
Merci,
Michel.

"papou" <DesolePasDeMail> wrote in message
news:Ooh9QK6%
Bonjour Michel
Par exemple sur un bouton de Userform :
Dim fs As FileSearch
Set fs = Application.FileSearch
With fs
.NewSearch
.LookIn = "D:Mes Documents"
.Filename = "*.txt"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Me.ListBox1.AddItem Right(Left(.FoundFiles(i),
Len(.FoundFiles(i)) - 4), 6)
Next i
Else
MsgBox "Pas de fichier trouvé."
End If
End With
Cordialement
Pascal


"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:OplYF54%
Bonjour tout le monde,

Je voudrais savoir s'il y possibilite de lister certains fichiers d'un
repertoire pour les mettre dans une combobox ?

Exemple :

Dans le repertoire il y a plein de fichiers dont "prk_5600 " + date +
".txt"

.....
prk_5600 230204.txt
prk_5600 240204.txt
prk_5600 250204.txt
.....

Comment mettre dans une Combobox uniquement les dates ?

pour l'exemple :

230204
240204
250204

Merci d'avance,

@+
Michel.















Avatar
Michel HOLDERITH
Salut,
Ben moi j'en ai un est c'est au niveau de .FileName = "*.txt"
Est-ce que cela pourrait ce trouver au niveau des references de VBA ?
Parce que la je ne vois pas du tout pourquoi ca plante..... :o(
@+
Michel.

"papou" <DesolePasDeMail> wrote in message
news:OyWoMf6%
Michel
Je viens de tester sur un Excel 97 SR2, et je n'ai pas de problème ?
Cordialement
Pascal


"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:OpJsOP6%
Salut,
merci pour cette reponse, mais je l'avais vu sur Excelabo, mais ma macro
plante au niveau :
.Filename = "*.txt" et je ne sais pas pourquoi.....
Version Excel 97... avec la 2000 ca marche bien....
Une idee ?
Merci,
Michel.

"papou" <DesolePasDeMail> wrote in message
news:Ooh9QK6%
Bonjour Michel
Par exemple sur un bouton de Userform :
Dim fs As FileSearch
Set fs = Application.FileSearch
With fs
.NewSearch
.LookIn = "D:Mes Documents"
.Filename = "*.txt"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Me.ListBox1.AddItem Right(Left(.FoundFiles(i),
Len(.FoundFiles(i)) - 4), 6)
Next i
Else
MsgBox "Pas de fichier trouvé."
End If
End With
Cordialement
Pascal


"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:OplYF54%
Bonjour tout le monde,

Je voudrais savoir s'il y possibilite de lister certains fichiers
d'un




repertoire pour les mettre dans une combobox ?

Exemple :

Dans le repertoire il y a plein de fichiers dont "prk_5600 " + date
+




".txt"
.....
prk_5600 230204.txt
prk_5600 240204.txt
prk_5600 250204.txt
.....

Comment mettre dans une Combobox uniquement les dates ?

pour l'exemple :

230204
240204
250204

Merci d'avance,

@+
Michel.



















Avatar
Michel HOLDERITH
Salut,
J'ai un debut d'explication si on peu appeller ca comme ca......
Si J'ecris :
.FileName = "prk_5600 250204.txt" il me dit qu'il trouve un fichier.

si par contre j'ecris :
.FileName = "prk*.txt" il m'arrete et genere une erreur...
Aurais-tu une explication ?
Merci,
Michel.


"papou" <DesolePasDeMail> wrote in message
news:OyWoMf6%
Michel
Je viens de tester sur un Excel 97 SR2, et je n'ai pas de problème ?
Cordialement
Pascal


"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:OpJsOP6%
Salut,
merci pour cette reponse, mais je l'avais vu sur Excelabo, mais ma macro
plante au niveau :
.Filename = "*.txt" et je ne sais pas pourquoi.....
Version Excel 97... avec la 2000 ca marche bien....
Une idee ?
Merci,
Michel.

"papou" <DesolePasDeMail> wrote in message
news:Ooh9QK6%
Bonjour Michel
Par exemple sur un bouton de Userform :
Dim fs As FileSearch
Set fs = Application.FileSearch
With fs
.NewSearch
.LookIn = "D:Mes Documents"
.Filename = "*.txt"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Me.ListBox1.AddItem Right(Left(.FoundFiles(i),
Len(.FoundFiles(i)) - 4), 6)
Next i
Else
MsgBox "Pas de fichier trouvé."
End If
End With
Cordialement
Pascal


"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:OplYF54%
Bonjour tout le monde,

Je voudrais savoir s'il y possibilite de lister certains fichiers
d'un




repertoire pour les mettre dans une combobox ?

Exemple :

Dans le repertoire il y a plein de fichiers dont "prk_5600 " + date
+




".txt"
.....
prk_5600 230204.txt
prk_5600 240204.txt
prk_5600 250204.txt
.....

Comment mettre dans une Combobox uniquement les dates ?

pour l'exemple :

230204
240204
250204

Merci d'avance,

@+
Michel.



















Avatar
Michel HOLDERITH
J'ai trouver la solution avec :
With Application.FileSearch
.NewSearch
.LookIn = "N:DATENAFOWP LISTEN PERFORMA"
.SearchSubFolders = True
' .FileName = "prk_5600 120104.txt"
.FileName = "PRK"
' .TextOrProperty = "San*"
.MatchAllWordForms = True
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
' MsgBox .FoundFiles(i)
UserForm3.ComboBox1.AddItem Right(Left(.FoundFiles(i),
Len(.FoundFiles(i)) - 4), 6)
Next i
Else
MsgBox "There were no files found."
End If
End With

Merci encore de m'avoir eclaire...
@+
Michel.

"papou" <DesolePasDeMail> wrote in message
news:OyWoMf6%
Michel
Je viens de tester sur un Excel 97 SR2, et je n'ai pas de problème ?
Cordialement
Pascal


"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:OpJsOP6%
Salut,
merci pour cette reponse, mais je l'avais vu sur Excelabo, mais ma macro
plante au niveau :
.Filename = "*.txt" et je ne sais pas pourquoi.....
Version Excel 97... avec la 2000 ca marche bien....
Une idee ?
Merci,
Michel.

"papou" <DesolePasDeMail> wrote in message
news:Ooh9QK6%
Bonjour Michel
Par exemple sur un bouton de Userform :
Dim fs As FileSearch
Set fs = Application.FileSearch
With fs
.NewSearch
.LookIn = "D:Mes Documents"
.Filename = "*.txt"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Me.ListBox1.AddItem Right(Left(.FoundFiles(i),
Len(.FoundFiles(i)) - 4), 6)
Next i
Else
MsgBox "Pas de fichier trouvé."
End If
End With
Cordialement
Pascal


"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:OplYF54%
Bonjour tout le monde,

Je voudrais savoir s'il y possibilite de lister certains fichiers
d'un




repertoire pour les mettre dans une combobox ?

Exemple :

Dans le repertoire il y a plein de fichiers dont "prk_5600 " + date
+




".txt"
.....
prk_5600 230204.txt
prk_5600 240204.txt
prk_5600 250204.txt
.....

Comment mettre dans une Combobox uniquement les dates ?

pour l'exemple :

230204
240204
250204

Merci d'avance,

@+
Michel.



















Avatar
papou
Je ne vois pas pourquoi, mais en tout cas voici
1°) Dans VBA, les références cochées :
Visual Basic For Application
Microsoft Excel 8.0 Objetc Library
OLE Automation
Microsoft Forms 2.0 Objetc Library
Microsoft Office 8.0 Object Library

2°) Dans VBA, Outils, Option, onglet "Général"
Récupération d'erreur = Arrêt dans les modules de classe

3°) Ce que j'ai fait :
Un UserForm1 avec un bouton CommandButton1 et une zone de liste ListBox1
Sur le clic du bouton :
Dim fs As FileSearch
Set fs = Application.FileSearch
With fs
.NewSearch
.Lookin = "D:Attente"
.FileName = "*.txt"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Me.ListBox1.AddItem Right(Left(.FoundFiles(i), Len(.FoundFiles(i)) - 4), 6)
Next i
Else : Msgbox "Pas de fichier trouvé"
End If
End With

4°) Excel 97 SR2

Cordialement
Pascal

"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:eb25or6%
Salut,
Ben moi j'en ai un est c'est au niveau de .FileName = "*.txt"
Est-ce que cela pourrait ce trouver au niveau des references de VBA ?
Parce que la je ne vois pas du tout pourquoi ca plante..... :o(
@+
Michel.

"papou" <DesolePasDeMail> wrote in message
news:OyWoMf6%
Michel
Je viens de tester sur un Excel 97 SR2, et je n'ai pas de problème ?
Cordialement
Pascal


"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:OpJsOP6%
Salut,
merci pour cette reponse, mais je l'avais vu sur Excelabo, mais ma
macro



plante au niveau :
.Filename = "*.txt" et je ne sais pas pourquoi.....
Version Excel 97... avec la 2000 ca marche bien....
Une idee ?
Merci,
Michel.

"papou" <DesolePasDeMail> wrote in message
news:Ooh9QK6%
Bonjour Michel
Par exemple sur un bouton de Userform :
Dim fs As FileSearch
Set fs = Application.FileSearch
With fs
.NewSearch
.LookIn = "D:Mes Documents"
.Filename = "*.txt"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Me.ListBox1.AddItem Right(Left(.FoundFiles(i),
Len(.FoundFiles(i)) - 4), 6)
Next i
Else
MsgBox "Pas de fichier trouvé."
End If
End With
Cordialement
Pascal


"Michel HOLDERITH" <#nospam# a écrit dans le message
de




news:OplYF54%
Bonjour tout le monde,

Je voudrais savoir s'il y possibilite de lister certains fichiers
d'un




repertoire pour les mettre dans une combobox ?

Exemple :

Dans le repertoire il y a plein de fichiers dont "prk_5600 " +
date





+
".txt"
.....
prk_5600 230204.txt
prk_5600 240204.txt
prk_5600 250204.txt
.....

Comment mettre dans une Combobox uniquement les dates ?

pour l'exemple :

230204
240204
250204

Merci d'avance,

@+
Michel.























Avatar
michdenis
Bonjour Michel,

Essaie un truc dans le genre :

à la place de la propriété filetype, utilise : "FileName.

'----------------------------
With Application.FileSearch
.NewSearch
.SearchSubFolders = True
.LookIn = "N:DATENAFOWP LISTEN PERFORMA"
.Filename = "*.txt"
If .Execute > 0 Then
MsgBox .FoundFiles.Count & " fichiers trouvés."
End If
End With
'----------------------------


Salutations!



"Michel HOLDERITH" <#nospam# a écrit dans le message de news:%233VYR26%
J'ai trouver la solution avec :
With Application.FileSearch
.NewSearch
.LookIn = "N:DATENAFOWP LISTEN PERFORMA"
.SearchSubFolders = True
' .FileName = "prk_5600 120104.txt"
.FileName = "PRK"
' .TextOrProperty = "San*"
.MatchAllWordForms = True
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
' MsgBox .FoundFiles(i)
UserForm3.ComboBox1.AddItem Right(Left(.FoundFiles(i),
Len(.FoundFiles(i)) - 4), 6)
Next i
Else
MsgBox "There were no files found."
End If
End With

Merci encore de m'avoir eclaire...
@+
Michel.

"papou" <DesolePasDeMail> wrote in message
news:OyWoMf6%
Michel
Je viens de tester sur un Excel 97 SR2, et je n'ai pas de problème ?
Cordialement
Pascal


"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:OpJsOP6%
Salut,
merci pour cette reponse, mais je l'avais vu sur Excelabo, mais ma macro
plante au niveau :
.Filename = "*.txt" et je ne sais pas pourquoi.....
Version Excel 97... avec la 2000 ca marche bien....
Une idee ?
Merci,
Michel.

"papou" <DesolePasDeMail> wrote in message
news:Ooh9QK6%
Bonjour Michel
Par exemple sur un bouton de Userform :
Dim fs As FileSearch
Set fs = Application.FileSearch
With fs
.NewSearch
.LookIn = "D:Mes Documents"
.Filename = "*.txt"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Me.ListBox1.AddItem Right(Left(.FoundFiles(i),
Len(.FoundFiles(i)) - 4), 6)
Next i
Else
MsgBox "Pas de fichier trouvé."
End If
End With
Cordialement
Pascal


"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:OplYF54%
Bonjour tout le monde,

Je voudrais savoir s'il y possibilite de lister certains fichiers
d'un




repertoire pour les mettre dans une combobox ?

Exemple :

Dans le repertoire il y a plein de fichiers dont "prk_5600 " + date
+




".txt"
.....
prk_5600 230204.txt
prk_5600 240204.txt
prk_5600 250204.txt
.....

Comment mettre dans une Combobox uniquement les dates ?

pour l'exemple :

230204
240204
250204

Merci d'avance,

@+
Michel.