Discussion :

[Annie45]

Bonjour,
j'avais déjà utilisé un petit programme pour visualiser des photos qui ne marche plus maintenant avec Access 2007 pour cause de Filesearch invalide (erreur d'exécution 2455, La référence d'une expression à la propriété Filesearch n'est pas valide). Comme je ne suis pas une grande experte de programmation, je ne sais pas trop comment réparer le script. Quelqu'un a-t-il une idée? Voici le code :

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
33
34
35
36
37
Dim Compteur1 As Integer
            Dim ObjetTrouve As FileSearch
            Dim ListeFichiers As String
            Dim dossier As String
            Dim response As String
            Dim tbox As String
            Dim compte As Integer
 
            dossier = Controls("Chemin")  'InputBox("Indiquez le répertoire à afficher", "Liste de fichiers", CurDir())
 
            If dossier = "" Then
                 MsgBox ("Opération annulée.")
            End If
            ListeFichiers = dossier & Chr(13) & Chr(13)
            Set ObjetTrouve = Application.FileSearch
            With ObjetTrouve
                .NewSearch
                .LookIn = dossier
                .SearchSubFolders = True
                .fileName = "*.*"
                .Execute
            End With
            compte = 0
            If ObjetTrouve.FoundFiles.Count > 0 Then
                For Compteur1 = 1 To ObjetTrouve.FoundFiles.Count
 
                        compte = compte + 1
                        tbox = "TextBox" & compte
                        Controls(tbox) = ObjetTrouve.FoundFiles(Compteur1)
 
             ListeFichiers = ListeFichiers & ObjetTrouve.FoundFiles(Compteur1) & Chr(13)
                Next
            Else
                ListeFichiers = ListeFichiers & "Pas de fichiers trouvés."
            End If
 
            Controls("No_photo") = 1

Merci et bonne journée à tous!

[loufab]

Bonjour,
Tu as la solution ici :

http://warin.developpez.com/access/fichiers/#LIII

Cordialement,

[Annie45]

Si je comprend bien, il faudrait remplacer la partie de "Set objetTrouve..." à "End with" (8 lignes) par le sub "Explorer" de l'exemple. Mais, je ne sais pas où mettre mon chemin (mon LookIn de Filesearch). Je ne veux pas chercher partout, mais seulement dans un dossier en particulier (et ses sous dossier).

Il faut aussi, si je comprend bien, il faut appeller la sub "Explorer" à la place de mes 8 lignes précédentes et ma sub doit être écrite indépendemment avant son appel? Comment l'appeller? seulement avec une ligne "Explorer"?

du genre :

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
' LA SUITE C LA RECHERCHE DES FICHIERS DANS LE CHEMIN DONNE
        Dim Compteur1 As Integer
        Dim ObjetTrouve As FileSearch
        Dim ListeFichiers As String
        Dim dossier As String
        Dim response As String
        Dim tbox As String
        Dim compte As Integer
         
        dossier = Controls("Chemin")  'InputBox("Indiquez le répertoire à afficher", "Liste de fichiers", CurDir())
         
        If dossier = "" Then
             MsgBox ("Opération annulée.")
        End If
        ListeFichiers = dossier & Chr(13) & Chr(13)
        Explorer        
        compte = 0
        If ObjetTrouve.FoundFiles.Count > 0 Then
            For Compteur1 = 1 To ObjetTrouve.FoundFiles.Count
         
                    compte = compte + 1
                    tbox = "TextBox" & compte
                    Controls(tbox) = ObjetTrouve.FoundFiles(Compteur1)
         
         ListeFichiers = ListeFichiers & ObjetTrouve.FoundFiles(Compteur1) & Chr(13)
            Next
        Else
            ListeFichiers = ListeFichiers & "Pas de fichiers trouvés."
        End If
        
        Controls("No_photo") = 1

Est-ce bien ça?