Discussion :

[nanousik]

Bonjour,

Je fais appel à vos lumières. Je parcours un répertoire pou aller chercher les fichiers dans chaque dossier de ce répertoire. Pour ceci j'utilise les Dir qui fonctionnent quand je parcours juste la liste des dossiers.

Mais quand je fais un Dir dans un autre Dir j'ai le message suivant : "Erreur d'éxécution '5' Argument ou appel de procédure incorrect" en pointant sur la ligne Dossier = Dir

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
Global Const Repertoire = "C:\Users\E40656\Documents\ACTIVITE\"
 
Sub ListeFichier()
 
' Parcours du répertoire
Dossier = Dir(Repertoire, vbDirectory)
While Dossier <> ""
    If Dossier <> "." And Dossier <> ".." Then
        Fichier = Dir(Repertoire & Dossier & "\")
        While Fichier <> ""
            If Fichier <> "." And Fichier <> ".." Then
                MsgBox "Activité : " & Dossier & " /Fichier : " & Fichier
            End If
            Fichier = Dir
        Wend
    End If
    Dossier = Dir
Wend
 
End Sub

Si quelqu'un à une idée d'oùu vient mon erreur

Merci d'avance

[Invité]

Bonjour,
Tu cherches bien qq chose un fichier par exemple ?

[nanousik]

oui je cherche les fichiers .xls dans les dossiers, pour l'instant je n'en fais rien je voulais déjà que mes Dir fonctionnent

[Invité]

test ça

[nanousik]

Je ne comprends pas tout le code je ne le vois pas parcourir les fichiers. En réalité, je souhaite parcourir le répertoire pour ouvrir chaque fichier de chaque dossier de ce répertoire pour les comparer. Je ne vois pas comment utiliser ce que tu m'as montré pour faire ceci

[Invité]

Bonjour,
Toute méthode procédurale, ne conserve pas en mémoire les résultats précédents.
Ainsi le DIR est capable de scanne un répertoire, si tu lui dis de scanner un sous répertoire il oublis ce qu’il faisait avant.
Pour bien faire il faudrait créer une instance du DIR différent pour chaque répertoire ce qui n’es pas possible DIR est une fonction unique.
En revanche FSO le fait très bien, mais tu dois affecter un variable pour chaque répertoire.
Pour résoudre ce problème, j’utilise un classe qui peut ce réplique à l’infinie (variable dynamique via une collection).
Je renseigne un nouveau classeur Excel avec le nom des fichiers, je l’ai modifié pour qu’il affiche le chemin complet, tu peux l’utiliser pour ouvrir tes fichier après la fin du scan.

[nanousik]

Merci beaucoup pour tes explications je vois ça tout de suite

[nanousik]

J'ai une erreur d'éxécution 424 objet requis sur la ligne suivante

Code :

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

t.ScanRep "C:\Users\E40656\Documents\projets\Activités Charles-Edouard\ACTIVITE\"

[Invité]

Tu as test ma procédure test en modifiant

Code :

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

t.ScanRep "C:\Users\E40656\Documents\projets\Activités Charles-Edouard\ACTIVITE\"

Avant de l’intégrer à ton projet ?
Test en l’état pour voir le résultat avant toutes choses.
Si tu l’intègre dans ton projet sans l’intégrer le module de classe tu auras ce genre d’erreur.
Ça fonctionne comme l’explorateur Windows en déplacé collé de mon projet vers ton projet dans l’explorateur de solution de VB.
Ne pas oublier la déclaration :

Code :

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

Dim t As New ClsRep

[nanousik]

c'est bon ça fonctionne donc la j'ai compris tu parcours et récupére les chemins mais comment je peux faire pour ouvrir chacun de ses fichiers?

[Invité]

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
Public Feuille As Worksheet 'Feuille de travail Public pour être vue dans toute l'application.
Public L As Long    'N° de ligne
Sub test()
Dim t As New ClsRep
Dim Classeur As Workbook
Dim L As Long
Dim Myrange As Range
Set Classeur = Application.Workbooks.Add 'J'ajoute un fichier Excel.
Set Feuille = Classeur.Worksheets(1) 'Feuille= Première feuille du nouveau classeur.
t.ScanRep "C:\Users\E40656\Documents\projets\Activités Charles-Edouard\ACTIVITE\" 'Je scan les répertoires
Set Myrange = Feuille.Range("A1").CurrentRegion 'Toutes les cellules contiguës à A1
For L = 1 To Myrange.Rows.Count 'Je parcours le fichier Excel
    Workbooks.Open Myrange(L, 1) 'j'ouvre les fichiers
Next
Classeur.Close False 'Je referme le fichier Excel sans le sauvegarder.
 
End Sub

[nanousik]

ça fonctionne parfaitement merci beaucoup à toi