Discussion :

[yannph]

Bonjour,

A l'aide! J'ai une instruction en 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
 
With Application.FileSearch
 
        .LookIn = "C:\monchemindacces"
        .Filename = "*.xls"
        If .Execute() > 0 Then
        MsgBox "" & .FoundFiles.Count & _
            " fichier(s) trouvé(s)"
 
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
        Else
        MsgBox "Les fichiers ne sont pas disponibles."
        Exit Sub
 
        End If
    End With

ça marche sur mon poste habituel, mais sur un micro que je viens d'acquérir, ça marche pas (en fait, l'ordi n'arrive pas à détecter les fichiers dans le chemin d'accès spécifié)!!

quand je lance la macro pas à pas, l'instruction ne semble pas reconnaitre le parametre .Execute()>0

les bibliothèques sont les memes en plus !! que faire ?


Merci d'avance pour votre aide si précieuse car la je suis bloqué dans mon projet !!

[ouskel'n'or]

Filename = "*.xls"
If .Execute() > 0

Tu es en VB ou en VBA ?
En VBA (97), c'est "*.xls" qui n'est pas reconnu
Pour les fichiers Excel, tu as "NomFich(n)= Dir(Chemin, vbNormal) dans une boucle, pour avoir les noms des classeurs Excel.

Tu dis

A+

[yannph]

super merci pour l'info je v voir si ça marche

sinon je suis en vb (Excel 2003)

[Mandalar]

Code :

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

"C:\monchemindacces"

Ce chemin d'acces existe-t-il aussi sur l'autre pc (le dossier existe et est rigoureusement au même endroit ?)