Discussion :

[jpcR2]

Bonjour,
Je suis autodidacte en EXCEL et VB aussi je sollicite votre indulgence.
J'ai écrit une macro dans une feuille excel. Cette macro va lire des données dans des fichiers exel et les cumule pour ensuite faire des classements et autres.
Tout fonctionne correctement sur mon PC. (XP PRO SP3 et EXCEL 2003)
Je copie l'ensembles des dossiers sur une clé USB pour aller chez un collègue qui doit utiliser cette appli. Je connecte ma clé USB et lui fait une démo, tout se passe bien.
Je copie l'ensemble de mes dossiers sur le bureau de son PC et là, ça ne marche plus. La méthode .Execute me retourne 0 alors que le fichier recherché est bien présent à l'endroit prévu ! J'ai également fait l'essai en copiant mes dossiers directement sur la racine du disque avec le même problème.
En résumé, sur le PC du collègue, tout marche bien si on travaille à partir de ma clé USB et ça ne marche plus à partir du moment où on travaille à partir du bureau !! PC du collègue en XP HOME SP3 et EXCEL 2002
Ci-dessous la partie de la macro en cause bien que je doute qu'elle soit en cause mais sait-on jamais ???

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
    Dim Z As Integer
    Dim chem As String
    Dim Str As String
    Dim nom As String
    chem = ThisWorkbook.Path
    nom = ThisWorkbook.Name
    Application.ScreenUpdating = False
    For Z = 1 To Sheets.Count
    Worksheets(Z).unprotect Password:="llrb"
    Next Z
 
 Str = InputBox( _
             "INDIQUEZ ICI LE NOMBRE DE POULES DE QUALIFICATION A TRAITER :", "POULES DE QUALIFICATION", 0)
        Select Case Str
            Case " ", "", 0
                MsgBox ("LE NOMBRE DE POULES N'A PAS ETE RENTRE. ABANDON DE LA PROCEDURE")
                Exit Sub
            Case 1 To 4
                Set fs = Application.FileSearch
                With fs
 
                    .LookIn = chem
                    .Filename = "*N*Qualif*.xls"
                    If .Execute > 0 Then
                        'MsgBox "Il y a " & .FoundFiles.Count & _
                            " fichiers(s) trouvé(s)."
                        If .FoundFiles.Count = Str Then

Je cherche désespérément une solution dans les forums sans succès à ce jour.
Merci beaucoup à ceux qui peuvent me donner une piste

[LeForestier]

Bonjour,
Difficile de trouver une solution, mais essaye de changer ta recherche avec FileSearch par ..Voir ce poste
Ont sait jamais..
A+

[jpcR2]

Merci pour ce tuyau. J'ai essayé sur mon PC ça marche bien. Il ne me reste plus qu'à faire le test chez mon collègue (absent 8 jours). Je donnerai le résultat dès que ce sera testé.
Merci encore

[jpcR2]

Bonsoir,
Après essai plus complet, il me reste un problème important c'est que le FSO ne permet pas de "jocker" comme * ou ? dans les noms de fichiers...
Peut-on utiliser une autre méthode que le FSO ?
Merci pour votre aide.

[kiki29]

Salut, voir aide en ligne sur Like

[jpcR2]

Bonsoir,

J'ai réussi à modifier mon appli avec le FSO à la place de Application.Filesearch et à utiliser les "jokers" grace à l'instruction Like.
Merci à vous.
Reste à attendre le retour du collègue pour voir si ça marche chez lui.
Par contre j'ai vu sur d'autres forums que Application.Filesearch était "sensible", dans certains cas, à l'indexation des disques. Vous avez des idées sur ce point ? A votre avis ça pourrait expliquer que ça fonctionne à partir d'une clé USB et pas à partir du disque dur ?
Merci pour votre aide.

[LeForestier]

Comme je ne travail jamais avec Filesearch, je ne peu te répondre mais tu pourrais peut-être voir du côté de ChDir et ChDrive et forcer le changement d'unité active.
A+

[jpcR2]

Bonsoir,

Les essais chez le collègue sont concluants. Le FSO associé au Like ont résolu mon problème.
Merci à LeForestier et à Kiki29.
Je reste un peu frustré de ne pas comprendre pourquoi la solution initiale fonctionnait à partir de ma clé USB mais pas à partir de son disque dur. Enfin l'essentiel est que ça fonctionne...