ListBox : VBA - Excel ListBox Fermé

Question

Bonjour,
J'ai récupéré un exemple de l'aide VBA qui affiche un par un les noms des fichiers contenus dans un dossier. J'aurais besoin d'afficher ces noms dans une listbox (ListBox2.AddItem (f)). 
Il apparait le message d'erreur "Objet attendu". 

Private Sub CopierCote_Click()
    UserForm2.Show
    UserForm2.ListBox2.Clear
    startUpPosition = 3
    Set fs = Application.FileSearch
With fs
    .LookIn = spath
    .Filename = "*.xls"
    If .Execute > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
            " file(s) found."
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
            f = .FoundFiles(i)
            ListBox2.AddItem (f)
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With
End sub

Merci beaucoup d'avance

garion28 · Answer

sur quel ligne exactement l'erreur pointe t elle ?

22031989 · Answer

au niveau du 
ListBox2.AddItem (f)

22031989 · Answer

Je pense que .FoundFiles(i) n'est considéré comme objet valide par le MsgBox, mais pas par la ListBox... Seulement je ne sais pas comment m'y prendre autrement pour remplir ma liste avec les noms des fichiers.

garion28 · Answer

déja il faut que tu déclare chaque variable que tu utilise (tu peu mettre un option explicit au tout début de la page de code (avant le premier sub)
quand tu fait ton MsgBox .FoundFiles(i) ca affiche bien le nom du fichier ? (quand tu aura déclaré ton f en type string et si ca bug encore, tu peu rajouter la fonction cstr(.FoundFiles(i)) a la place de .FoundFiles(i) sur la ligne f= .FoundFiles(i))

22031989 · Answer

ca ne veut toujours pas :(
J'ai essayé juste en déclarant en String f, ça n'a pas marché. Puis avec le CStr meme conclusion.
Le MsgBox marche par contre.
Le message d'erreur c'est 'Objet Requis' et non pas 'Objet Attendu'. Je sais pas si ca change grand chose.
Une idée .. ? :s

garion28 · Answer

pour déclarer une variable c'est dim f as string
je suis en train de chercher ce qui pourrai planter, en attente de plus d'info... ^^

22031989 · Answer

ok, merci beaucoup. Je cherche de mon coté aussi, je te tiens au courant si je trouve quelque chose.

22031989 · Answer

J'ai trouvé !
En fait le probleme venait pas du .foundfiles mais de la listbox. J'ai juste mis 
UserForm2.ListBox2 et ca marche !
Merci beaucoup !

ListBox : VBA - Excel ListBox

8 réponses

Discussions similaires

Newsletters