ListBox : VBA - Excel ListBox

22031989 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention   -  
22031989 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention   -
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

8 réponses

Réponse 1 / 8
garion28 Messages postés 1545 Date d'inscription   Statut Membre Dernière intervention   406
 
sur quel ligne exactement l'erreur pointe t elle ?
0
Réponse 2 / 8
22031989 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention  
 
au niveau du
ListBox2.AddItem (f)
0
Réponse 3 / 8
22031989 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention  
 
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.
0
Réponse 4 / 8
garion28 Messages postés 1545 Date d'inscription   Statut Membre Dernière intervention   406
 
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))
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 8
22031989 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Réponse 6 / 8
garion28 Messages postés 1545 Date d'inscription   Statut Membre Dernière intervention   406
 
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... ^^
0
Réponse 7 / 8
22031989 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention  
 
ok, merci beaucoup. Je cherche de mon coté aussi, je te tiens au courant si je trouve quelque chose.
0
Réponse 8 / 8
22031989 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention  
 
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 !
0

Discussions similaires

additem listbox en multicolonnes
GrandJean -
GrandJean -

6 réponses
Creer et remplir un ListBox en VB6 pr un nul
Gegeleblond -
Fanatique VB6 -

12 réponses
ListBox a 2 colonnes
colombe88 -
colombe88 -

5 réponses
[VB 6] Changer l'index d'une ListBox
Kaze_no_i-guru -
Kaze_no_i-guru -

9 réponses
VBA [Excel] Récupérer la donnée d'une listbox dans une formule
Alya -
Alya -

2 réponses