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 -
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
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
Configuration: Windows XP Internet Explorer 6.0
8 réponses
-
sur quel ligne exactement l'erreur pointe t elle ?
-
au niveau du
ListBox2.AddItem (f) -
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.
-
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)) -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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 -
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... ^^ -
ok, merci beaucoup. Je cherche de mon coté aussi, je te tiens au courant si je trouve quelque chose.
-
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 !
