Discussion :

[Elstak]

Hello,

voilà j'ai un souci au niveau de l'ajout de valeur dans une liste.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Elstak]

Oops

c'etait le :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Len(Menu.Label2)

qu'il ne trouvait pas... en effet j'avais aussi modifié ca sous Excel mais je m'en souvenait plus (pour n'avoir que le nom du fichie Excel et enlever le chemin qu'il y a devant...)

J'etais tellement concentré sur le ImportExcel que j'ai pu fait attention à ca...

Désolé