Discussion :

[juju05]

Bonjour,

Je souhaite balayer tous les fichiers pdf d'un répertoire. Je n'ai mis qu'un fichier pdf dans le répertoire en question.

Lorsque je passe à la lecture suivante via l'instruction

Code :

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

fichier = Dir

La macro. plante en "Erreur d'exécution 5 - Argument ou appel de procédure incorrect".

Dans la zone fichier, j'ai le nom de mon fichier.

D'où cela peut-il provenir ?

[joe.levrai]

Bonjour,

Dir() au lieu de Dir déjà ?

oui c'est une fonction, pas une variable

[juju05]

Le fait de mettre des parenthèses ne change rien.

Voici ma boucle :

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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
 
 
Sub RecursionSurDossiers(chemin As String, nom_client As String)
 
     Dim fso As Object
     Dim Dossier As Object
     Dim SousDossier As Object
     Dim FileItem As Scripting.File
 
     Dim Tableau() As String
     Dim tableau_2() As String
 
     Dim repertoire As String, fichier As String
 
     Dim fic As String
 
     Dim chem As String
 
     Dim nom_fichier As String
 
     Dim i As Integer
 
     i = 1
 
     Set fso = CreateObject("Scripting.FileSystemObject")
 
     ' on se place sur le répertoire
     Set Dossier = fso.GetFolder(chemin)
 
     fichier = Dir(chemin & "\*.pdf")
 
     ' On balaye tous les fichiers pdf du répertoire de départ
 
     Do Until Len(fichier) = 0
 
       Set FileItem = fso.GetFile(chemin & "\" & fichier)
 
       trouve = False
 
       recherche_fichier FileItem.Name, rep_cible
 
       ' Si on n'a pas trouvé le fichier alors
       If Not trouve Then
          ' on archive dans Excel
          i = i + 1
          With Worksheets("ARCHIVE")
               .Range("A" & i).Value = chemin
               .Range("B" & i).Value = FileItem.Name
          End With
 
          ' on supprime le fichier
          If a_supprimer Then
             ' fileitem.delete
          End If        
 
 
       End If
 
       MsgBox " chemin : " & chemin
 
       ' passage au fichier suivant
       fichier = Dir()
     Loop
 
     'pour chaque sous dossier du repertoire
     For Each SousDossier In Dossier.SubFolders
 
        ' si le sous dossier contient lui même des dossiers
        If SousDossier.SubFolders.Count > 0 Then
            ' la procédure s'appelle elle-même avec le sous-dossier en argument
            ' afin de descendre tout en bas de ton arborescence
            RecursionSurDossiers SousDossier.Path, ""
        End If
 
     ' et on passe au suivant
     Next SousDossier
 
     Set fso = Nothing
 End Sub

[kiki29]

Salut, si tu cherches une procédure récursive : regarde ici ( à adapter à ton contexte ), il y a aussi ceci ( via les APIs )

[juju05]

Je n'ai pas de problème sur la récursivité mais pour passer au fichier suivant. Je n'ai qu'un fichier dans mon répertoire et il ne veut pas passer au fichier suivant. Excel retourne l'erreur que j'ai mentionné dans mon message.

[juju05]

J'ai modifié mon appel à ma procédure recherche_fichier si je trouve le répertoire dans le répertoire cible mais cela ne fonctionne pas mieux.

J'ai conditionné l'appel par

Code :

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

If Dir(p_strCheminDepart, vbDirectory) = "" Then recherche_fichier FileItem.Name, rep_cible

J'ai l'impression que le fait de rechercher dans un autre répertoire lui fait perdre le répertoire sur lequel s'effectue la recherche initiale.

[Marc-L]

Bonjour,

en dehors des nombreuses ressources de l'aide VBA intégrée, de la FAQ, des tutoriels, d'au moins trois contributions
dans le forum Contribuez et sans compter les discussions traitant de ce sujet, voir au moins celle-ci …


_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[juju05]

Merci beaucoup Marc-L. J'ai utilisé FSO pour boucler sur les répertoires et sur les fichiers et je n'ai plus de problème.

[Marc-L]

Ah ? Dommage car ce n'est pas la voie rapide mais du moment que cela te satisfait …