Hello,
voilà j'ai un souci au niveau de l'ajout de valeur dans une liste.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| Sub RechercheFichier(ByVal NomDossier As String)
'Recherche des fichiers dans le dossier
Dim Compteur1 As Integer
Dim ObjetTrouve As FileSearch
Dim ListeFichiers As String
Dim Dossier As String
Dim response As String
If NomDossier = "" Then
Exit Sub
End If
ListeFichiers = ""
Set ObjetTrouve = Application.FileSearch
With ObjetTrouve
.NewSearch
.LookIn = NomDossier
.SearchSubFolders = False
.Filename = "*.xls"
.Execute
End With
If ObjetTrouve.FoundFiles.Count > 0 Then
For Compteur1 = 1 To ObjetTrouve.FoundFiles.Count
Forms!importexcel!ListeFichierExcel.AddItem Right(ObjetTrouve.FoundFiles(Compteur1), _
Len(ObjetTrouve.FoundFiles(Compteur1)) - Len(Menu.Label2) - 1)
Next
End If
End Sub |
Le code sert à lister les fichier Excel se trouvant dans le dossier NomDossier.
Ce code fonctionnait sous Excel et j'avais un code du type :
NomUserForm.NomListe.AddItem
Ici j'ai essayé d'adapter sur Access (apparement mal
)
Il me dis "objet requis", uniquement si je passe dans le if (le dossier contient au moins 1 fichier excel).
J'ai bien vérifié les noms je comprend pas.... par contre mon "importexcel" s'ecrit avec des majuscules (ImportExcel) et il ne modifie pas automatiquement dans le code. Je veux dire que sous Excel si ma liste s'appele Toto et que je tape toto dans le code il va modifier et mettre Toto par lui meme mais là non... je sais pas si ca a son importance 
EDIT :
je viens de voir comment faire dans la FAQ jai donc modifié mon code
Forms!ImportExcel!ListeFichierExcel.RowSource = Forms!ImportExcel!ListeFichierExcel.RowSource _
& Right(ObjetTrouve.FoundFiles(Compteur1), Len(ObjetTrouve.FoundFiles(Compteur1)) - Len(Menu.Label2) - 1)
J'ai pourtant toujours la meme erreur !
Partager