Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Combobox me propose le nom des fichiers dans un dossier précis

Combobox me propose le nom des fichiers dans un dossier précis

7 réponses
Avatar
arnaud
Bonjour à tous !
J'aimerai traiter des fichiers qui n'ont pas le même nom suivant la semaine
et le représentant.
J'aimerai que dans mon USERFORM j'ai une COMBOBOX me listant le nom des
fichiers contenus dans un dossier spécifique. (ex :C:\trajets).
Comment j'initiale ma combo ??

Merci d'avance !
Arnaud
Signaler un problème avec ce contenu

7 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
Phil99999
Sub listFich()

Dim fs, fso
Dim i As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = Application.FileSearch

With fs
.LookIn = "C:" 'le rep
.Filename = "*.*" ' le filtre si besoin
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then

For i = 1 To .FoundFiles.Count
ComboBox1.AddItem fso.GetFileName(.FoundFiles(i))
Next i

End If
End With

ComboBox1.ListIndex = 0
End Sub


Bonjour à tous !
J'aimerai traiter des fichiers qui n'ont pas le même nom suivant la semaine
et le représentant.
J'aimerai que dans mon USERFORM j'ai une COMBOBOX me listant le nom des
fichiers contenus dans un dossier spécifique. (ex :C:trajets).
Comment j'initiale ma combo ??

Merci d'avance !
Arnaud





Avatar
arnaud
Merci beaucoup !
Je vais tester !
Arnaud

"Phil99999" (!sansspam!)> a écrit dans le message de
news:
Sub listFich()

Dim fs, fso
Dim i As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = Application.FileSearch

With fs
.LookIn = "C:" 'le rep
.Filename = "*.*" ' le filtre si besoin
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then

For i = 1 To .FoundFiles.Count
ComboBox1.AddItem fso.GetFileName(.FoundFiles(i))
Next i

End If
End With

ComboBox1.ListIndex = 0
End Sub


Bonjour à tous !
J'aimerai traiter des fichiers qui n'ont pas le même nom suivant la
semaine


et le représentant.
J'aimerai que dans mon USERFORM j'ai une COMBOBOX me listant le nom des
fichiers contenus dans un dossier spécifique. (ex :C:trajets).
Comment j'initiale ma combo ??

Merci d'avance !
Arnaud







Avatar
arnaud
Bonjour et merci de votre aide !
J'ai testé la macro ci dessous pour initialiser mon UF avec la combo mais
elle est vide à l'ouverture... Pourquoi ???


Private Sub UFTraitement_initialize()
' donne la valeur de la combobox
Dim fs, fso
Dim i As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = Application.FileSearch

With fs
.LookIn = "G:ADMINISTRATION GENERALEADMIN DES VENTES LOGISTIQUE
TRANSPORTCARTHOGRAPHIE GEOMARKETINGTrajets" 'le rep
.Filename = "*.csv" ' le filtre si besoin
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then

For i = 1 To FoundFiles.Count
ComboBox1.AddItem fso.GetFileName(.FoundFiles(i))
Next i

End If
End With

ComboBox1.ListIndex = 0
End Sub


Merci d'avance !








"Phil99999" (!sansspam!)> a écrit dans le message de
news:
Sub listFich()

Dim fs, fso
Dim i As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = Application.FileSearch

With fs
.LookIn = "C:" 'le rep
.Filename = "*.*" ' le filtre si besoin
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then

For i = 1 To .FoundFiles.Count
ComboBox1.AddItem fso.GetFileName(.FoundFiles(i))
Next i

End If
End With

ComboBox1.ListIndex = 0
End Sub


Bonjour à tous !
J'aimerai traiter des fichiers qui n'ont pas le même nom suivant la
semaine


et le représentant.
J'aimerai que dans mon USERFORM j'ai une COMBOBOX me listant le nom des
fichiers contenus dans un dossier spécifique. (ex :C:trajets).
Comment j'initiale ma combo ??

Merci d'avance !
Arnaud







Avatar
Phil99999
Bonjour, ta combobox s'appelle bien combobox1 ???


Bonjour et merci de votre aide !
J'ai testé la macro ci dessous pour initialiser mon UF avec la combo mais
elle est vide à l'ouverture... Pourquoi ???


Private Sub UFTraitement_initialize()
' donne la valeur de la combobox
Dim fs, fso
Dim i As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = Application.FileSearch

With fs
.LookIn = "G:ADMINISTRATION GENERALEADMIN DES VENTES LOGISTIQUE
TRANSPORTCARTHOGRAPHIE GEOMARKETINGTrajets" 'le rep
.Filename = "*.csv" ' le filtre si besoin
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then

For i = 1 To FoundFiles.Count
ComboBox1.AddItem fso.GetFileName(.FoundFiles(i))
Next i

End If
End With

ComboBox1.ListIndex = 0
End Sub


Merci d'avance !








"Phil99999" (!sansspam!)> a écrit dans le message de
news:
Sub listFich()

Dim fs, fso
Dim i As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = Application.FileSearch

With fs
.LookIn = "C:" 'le rep
.Filename = "*.*" ' le filtre si besoin
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then

For i = 1 To .FoundFiles.Count
ComboBox1.AddItem fso.GetFileName(.FoundFiles(i))
Next i

End If
End With

ComboBox1.ListIndex = 0
End Sub


Bonjour à tous !
J'aimerai traiter des fichiers qui n'ont pas le même nom suivant la
semaine


et le représentant.
J'aimerai que dans mon USERFORM j'ai une COMBOBOX me listant le nom des
fichiers contenus dans un dossier spécifique. (ex :C:trajets).
Comment j'initiale ma combo ??

Merci d'avance !
Arnaud












Avatar
arnaud
Oui ! C'est la première chose que j'ai vérifié !
Qu'est ce qui peut gener ??
Merci de votre aide !
Arnaud

"Phil99999" (!sansspam!)> a écrit dans le message de
news:
Bonjour, ta combobox s'appelle bien combobox1 ???


Bonjour et merci de votre aide !
J'ai testé la macro ci dessous pour initialiser mon UF avec la combo
mais


elle est vide à l'ouverture... Pourquoi ???


Private Sub UFTraitement_initialize()
' donne la valeur de la combobox
Dim fs, fso
Dim i As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = Application.FileSearch

With fs
.LookIn = "G:ADMINISTRATION GENERALEADMIN DES VENTES LOGISTIQUE
TRANSPORTCARTHOGRAPHIE GEOMARKETINGTrajets" 'le rep
.Filename = "*.csv" ' le filtre si besoin
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then

For i = 1 To FoundFiles.Count
ComboBox1.AddItem fso.GetFileName(.FoundFiles(i))
Next i

End If
End With

ComboBox1.ListIndex = 0
End Sub


Merci d'avance !








"Phil99999" (!sansspam!)> a écrit dans le message
de


news:
Sub listFich()

Dim fs, fso
Dim i As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = Application.FileSearch

With fs
.LookIn = "C:" 'le rep
.Filename = "*.*" ' le filtre si besoin
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then

For i = 1 To .FoundFiles.Count
ComboBox1.AddItem fso.GetFileName(.FoundFiles(i))
Next i

End If
End With

ComboBox1.ListIndex = 0
End Sub


Bonjour à tous !
J'aimerai traiter des fichiers qui n'ont pas le même nom suivant la
semaine


et le représentant.
J'aimerai que dans mon USERFORM j'ai une COMBOBOX me listant le nom
des




fichiers contenus dans un dossier spécifique. (ex :C:trajets).
Comment j'initiale ma combo ??

Merci d'avance !
Arnaud














Avatar
Phil99999
Tente de faire un msgbox pour voir si la macro se lance bien. Sinon envoi moi
ton classeur, je te le corrige et te le renvoi

A+


Oui ! C'est la première chose que j'ai vérifié !
Qu'est ce qui peut gener ??
Merci de votre aide !
Arnaud

"Phil99999" (!sansspam!)> a écrit dans le message de
news:
Bonjour, ta combobox s'appelle bien combobox1 ???


Bonjour et merci de votre aide !
J'ai testé la macro ci dessous pour initialiser mon UF avec la combo
mais


elle est vide à l'ouverture... Pourquoi ???


Private Sub UFTraitement_initialize()
' donne la valeur de la combobox
Dim fs, fso
Dim i As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = Application.FileSearch

With fs
.LookIn = "G:ADMINISTRATION GENERALEADMIN DES VENTES LOGISTIQUE
TRANSPORTCARTHOGRAPHIE GEOMARKETINGTrajets" 'le rep
.Filename = "*.csv" ' le filtre si besoin
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then

For i = 1 To FoundFiles.Count
ComboBox1.AddItem fso.GetFileName(.FoundFiles(i))
Next i

End If
End With

ComboBox1.ListIndex = 0
End Sub


Merci d'avance !








"Phil99999" (!sansspam!)> a écrit dans le message
de


news:
Sub listFich()

Dim fs, fso
Dim i As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = Application.FileSearch

With fs
.LookIn = "C:" 'le rep
.Filename = "*.*" ' le filtre si besoin
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then

For i = 1 To .FoundFiles.Count
ComboBox1.AddItem fso.GetFileName(.FoundFiles(i))
Next i

End If
End With

ComboBox1.ListIndex = 0
End Sub


Bonjour à tous !
J'aimerai traiter des fichiers qui n'ont pas le même nom suivant la
semaine


et le représentant.
J'aimerai que dans mon USERFORM j'ai une COMBOBOX me listant le nom
des




fichiers contenus dans un dossier spécifique. (ex :C:trajets).
Comment j'initiale ma combo ??

Merci d'avance !
Arnaud



















Avatar
arnaud
Ok, je m'en sors pas !!
Je te l'envoie !!
Merci d'avance !!
Arnaud

"Phil99999" (!sansspam!)> a écrit dans le message de
news:
Tente de faire un msgbox pour voir si la macro se lance bien. Sinon envoi
moi

ton classeur, je te le corrige et te le renvoi

A+


Oui ! C'est la première chose que j'ai vérifié !
Qu'est ce qui peut gener ??
Merci de votre aide !
Arnaud

"Phil99999" (!sansspam!)> a écrit dans le message
de


news:
Bonjour, ta combobox s'appelle bien combobox1 ???


Bonjour et merci de votre aide !
J'ai testé la macro ci dessous pour initialiser mon UF avec la combo
mais


elle est vide à l'ouverture... Pourquoi ???


Private Sub UFTraitement_initialize()
' donne la valeur de la combobox
Dim fs, fso
Dim i As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = Application.FileSearch

With fs
.LookIn = "G:ADMINISTRATION GENERALEADMIN DES VENTES
LOGISTIQUE




TRANSPORTCARTHOGRAPHIE GEOMARKETINGTrajets" 'le rep
.Filename = "*.csv" ' le filtre si besoin
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then

For i = 1 To FoundFiles.Count
ComboBox1.AddItem fso.GetFileName(.FoundFiles(i))
Next i

End If
End With

ComboBox1.ListIndex = 0
End Sub


Merci d'avance !








"Phil99999" (!sansspam!)> a écrit dans le
message




de
news:
Sub listFich()

Dim fs, fso
Dim i As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = Application.FileSearch

With fs
.LookIn = "C:" 'le rep
.Filename = "*.*" ' le filtre si besoin
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then

For i = 1 To .FoundFiles.Count
ComboBox1.AddItem fso.GetFileName(.FoundFiles(i))
Next i

End If
End With

ComboBox1.ListIndex = 0
End Sub


Bonjour à tous !
J'aimerai traiter des fichiers qui n'ont pas le même nom suivant
la






semaine
et le représentant.
J'aimerai que dans mon USERFORM j'ai une COMBOBOX me listant le
nom






des
fichiers contenus dans un dossier spécifique. (ex :C:trajets).
Comment j'initiale ma combo ??

Merci d'avance !
Arnaud