Bonjour,

Je suis un jeune consultant junior SAP qui a eu le malheur de faire apparaitre VBA sur son CV... résultat je suis responsable débuggage de macro depuis 6mois... J'ai appris sur le tas et me débrouille pas mal mais aujourd'hui on me demande de passer des macro sous 2010 car elles ne fonctionne plus.

Mon problème vient de cette commande : Application.FileSearch

J'ai pas mal regarder sur le net, mais je m'y retrouve pas et je surchauffe. pourriez-vous m'aider?

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Private Sub PurgeFic()
 
Dim CptFic As Integer
Dim CptRech As Integer
 
 
    For CptRech = 1 To 2
 
        ' Boucle sur les fichiers pour
        '     les CATT : Y_O_LANCECATT*.TXT
        '     les eCATT : VAR_ECTC_Y_O_LANCECATT*.TXT
 
        '===========================================
        ' Recherche des résultats des tests
        '
        With Application.FileSearch
            .NewSearch
            .LookIn = "C:\Users\JD002870\AppData\Local\SapWorkDir"
'.LookIn = "C:\Donnees\SAPworkdir\"
            .SearchSubFolders = False
            If CptRech = 1 Then
                .Filename = "Y_O_LANCECATT*.TXT"
            Else
                .Filename = "VAR_ECTC_Y_O_LANCECATT*.TXT"
            End If
            .MatchTextExactly = True
            .FileType = msoFileTypeAllFiles
        End With
 
        '===========================================
        ' Parcours des fichiers
        '
        With Application.FileSearch
            If .Execute() > 0 Then
                For CptFic = 1 To .FoundFiles.Count
                    fs.DeleteFile (.FoundFiles(CptFic))
                Next CptFic
            End If
        End With
    Next
 
    '===========================================
    ' Rétablissement des valeurs par défaut
    '
    With Application.FileSearch
        .NewSearch
        .LookIn = "C:\My Documents"
        .SearchSubFolders = True
        .Filename = "Run"
        .MatchTextExactly = True
        .FileType = msoFileTypeAllFiles
    End With
 
    Sheets(2).Activate
    Application.ScreenUpdating = False
 
End Sub
Si j'ai bien compris je dois créer un filesystemobject (Fichier) que je vais chercher dans un autre objet (Dossier) mais là j'ai beau essayer je bloque.

Merci pour l'aide que vous pourrez m'apporter.