CODE VBA EXCEL LISTER FICHIERS DANS COMBOBOX

Question

Bonjour à tous,

Je galère depuis deux jours. Voici mon problème. J'ai un Userform avec 2 combobox. Le premier me liste tous les répertoires et sous répertoires. Je voudrais que par sélection d'un répertoire ou sous répertoire dans le premier, le second génère automatiquement tous les fichiers présents dans ce répertoire ou sous répertoire. Quelqu'un peut-il m'aider très très rapidement. Merci d'avance.

Utilisateur anonyme · Answer

Salut,

Utilise l'événement Change du combobox qui liste les répertoire. A ce moment tu liste le fichier dans ton second combobox.






__________
Kenji

(

clemodoun · Answer

Je sais ou mettre le code. Ce que je ne sais pas c'est le code à mettre.

clemodoun · Answer

Personne n'a la réponse à ma question? Réveillez-vous.

clemodoun · Answer

Pouvez-vous m'aider sur le code à entrer dans l'évènement Change du combobox qui liste les répertoires et sous répertoires?

Utilisateur anonyme · Answer

Soit patient un peu. On ne peut toujours pas être présent à tout moment.
Une recherche aurait suffit :

http://www.codyx.org/snippet_lister-tous-fichiers-repertoire_198.aspx#683







__________
Kenji

(

Molenn · Answer

Moi, personnellement moi-même, mais ça n'engage que moi, je lis "Personne n'a la réponse à ma question? Réveillez-vous." et je remballe aussitôt la réponse/piste/aide que je m'apprêtais à poster.
En plus, seulement 10 mn après le post précédent ... 

Molenn

kalobit · Answer

et voilà, on est pressé d'avoir la réponse et on dit même pas merci !!!

[mailto:K@lobit K@lobit] < Ne pas clicker ici
  < Mais ici

clemodoun · Answer

Ne nous énervons pas. C'était juste pour rire et de toute façon, il fera beau demain.

clemodoun · Answer

Ton site ne m'a rien apporté de nouveau. J'en suis toujours à la case départ.

clemodoun · Answer

Je connais ce code. Tu n'as pas bien compris ma demande. Je veux récupérer automatiquement dans mon combobox2, la liste des fichiers du répertoire ou sous répertoire sélectionné dans mon combobox1. C'est cela qui merde. Pour l'instant, je récupère des choses dans mon combobox2 mais qui ne correspondent aucunement à la liste des fichiers du répertoire sélectionné dans le combobox1.

Utilisateur anonyme · Answer

Ben alors, tu m'as dit que tu savais ou mettre le code ?
J'ai tout expliquer dans ma premiere réponse. Ensuite pour lister les fichiers, je t'ai donner un code, a toi de l'annalyser celui la ou un autre et d'en faire ce qu'il te faut.







__________
Kenji

(

clemodoun · Answer

Voici le code que j'essaie de faire tourner dans l'évènement Change du combobox qui liste les répertoires et sous répertoires
 . A chaque fois, il m'affiche aucun fichier trouvé quelque soit le répertoire sélectionné dans combobox1 alors qu'il existe des tas de fichiers là dedans. Merci à vous de me le corriger. Désolé pour les énormités. Je suis à mes premiers pas en programmation VBA.
ZonedelisteCdC est le nom donné au premier combobox celui qui liste les répertoires et sous répertoires.
FICHIERCDC est le nom donné au deuxième combobox, celui qui doit lister les fichiers en fonction de la sélection dans ZonedelisteCdC.

Merci d'avance.

 
Dim strMessage  As String
Dim i           As Long
Dim cheminz As String
Dim cheminf As String
        Set fs = Application.FileSearch
cheminz = ZonedelisteCdC
cheminf = FICHIERCDC
With fs
    .LookIn = "cheminz:"  
    .SearchSubFolders = True
    .Filename = "*.exe"
    If .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
        MsgBox "Il y a " & .FoundFiles.Count & _
            " fichier(s) trouvé(s)."
        For i = 1 To .FoundFiles.Count
            FICHIERCDC.RowSource = .FoundFiles(i)
              'strMessage = strMessage & .FoundFiles(i) & vbCrLf
        Next i
              'MsgBox strMessage
    Else
        MsgBox "Il n'y a aucun fichier."
    End If
End With

Utilisateur anonyme · Answer

Je me suit inspirer du code de jrivet :



Private Sub ZonedelisteCdC_Change()
  FICHIERCDC.Clear
  On Error Resume Next
  Dim Fso As Object, FileInfo As Object
  Set Fso = CreateObject("Scripting.FileSystemObject")
  For Each FileInfo In Fso.GetFolder(ZonedelisteCdC.Text).Files
    If Fso.GetExtensionName(FileInfo.Path) = "exe" Then
      FICHIERCDC.AddItem FileInfo.Name
    End If
  Next
  Set Fso = Nothing
  Set FileInfo = Nothing
End Sub,

----

(

clemodoun · Answer

Quand j'exécute ton code, rien ne se passe dans le deuxième combobox FICHIERCDC après sélection d'un répertoire dans le premier combobox ZonedelisteCdC.

clemodoun · Answer

Si t'as un truc à me filer, aide moi. J'ai trop galéré.

cs_MPi · Answer

Qu'est-ce que ça signifie ce que tu mets dans ton code ?
Dim cheminz As String
Dim cheminf As String
cheminz = ZonedelisteCdC
cheminf = FICHIERCDC

En bleu, ce sont des variables ou des contrôles ?

et ceci ?
.LookIn = "cheminz:" 
As-tu un répertoire qui se nomme cheminz ?  (il est entre guillemets...)

MPi

clemodoun · Answer

ZonedelisteCdC est le name du Combobox qui me liste les répertoires et sous répertoires.
FICHIERCDC est le name du deuxième Combobox sensé s'incrémenter automatiquement en fonction du répertoire ou sous répertoire choisi dans ZonedelisteCdC. C'est donc des contrôles. Je n'ai pas de répertoire qui s'appelle cheminz:\. 
cheminz est un string déclaré.

RODAVAFLO · Answer

Comment fais-tu pour faire apparaître la liste de sous-répertoire dans une combobox ?  Merci d'avance pour l'info.


FM

CODE VBA EXCEL LISTER FICHIERS DANS COMBOBOX

18 réponses

Votre réponse

Discussions similaires