Extraction de données excel à partir d'un répertoire

**TheHugoGua** · 26/08/2020, 16h32

Bonjour,

Je rencontre un petit problème ...

J'aurais aimé savoir s'il était possible d'extraire des données en partant d'un Répertoire / dossier.

J'ai trouvé des petites lignes de codes qui me permettent de sélectionner un répertoire mais je ne sais absolument pas comment extraire des données de ces répertoires ...

Auriez-vous déjà eu affaire à ce genre de problème svp??

Ou tout simplement es que vous connaîtriez des lignes me permettant de faire ceci svp ??

Voici quelques exemples d'exploitation de répertoire que j'ai trouvé sur internet :

Exemple 1 pour trouver via un répertoire le nom des fichiers interne :

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
Sub SelectionRepertoireEtAction()
Dim Repertoire As FileDialog
    Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
    Repertoire.Show
    If Repertoire.SelectedItems.Count > 0 Then
        Call BoucleDir(Repertoire.SelectedItems(1), "*.xls*")
    End If
End Sub
 
Private Sub BoucleDir(Chemin As String, Extension As String)
Dim Fichier As String
    If Right(Chemin, 1) <> Application.PathSeparator Then Chemin = Chemin & Application.PathSeparator
    Fichier = Dir(Chemin & Extension)
    If Fichier <> vbNullString Then
        Do
            MsgBox Chemin & Fichier
            Fichier = Dir
        Loop While Fichier <> vbNullString
    End If
End Sub

Exemple 2 qui me donne le chemin d'un répertoire :

Code :

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

1
2
3
4
5
6
7
8
Sub selectionRepertoire_afficherChemin()
Dim Repertoire As FileDialog
 
Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show
 
MsgBox Repertoire.SelectedItems(1)
End Sub

**mat955** · 26/08/2020, 16h54

Bonjour,

Je te propose le code suivant que j'utilise souvent pour parcourir un dossier.
Il nécessite d'activer la référence Microsoft Scripting Runtime pour pouvoir l'exécuter.

La macro ouvre une boîte dialogue pour que tu sélectionnes le dossier que tu veux parcourir.
Puis elle "scanne" le dossier en bouclant sur tous les éléments qui s'y trouve.
Si l'élément trouvé est un fichier, alors tu peux faire le traitement que tu veux sur ce fichier.
Si l'élément trouvé est un sous-dossier, alors la macro s'appelle elle même (elle est récursive) pour "scanner" à nouveau ce sous-dossier et ainsi de suite.

N'hésite pas si tu veux des explications complémentaires.

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
Sub ParcourirDossier()
 
Dim FichierSélectionné As String
Dim NumFichier As Integer
Dim fs As FileDialog
Dim Chemin As String
Dim DossierSélectionné As Folder
 
    Set FichierPrincipal = ThisWorkbook
    Set FeuilleCompil = FichierPrincipal.Sheets("Feuil1")
    Chemin = Range("Chemin").Value
    Set fs = Application.FileDialog(msoFileDialogFolderPicker)
    fs.Title = "Selection du dossier à parcourir"
    fs.AllowMultiSelect = False
    fs.InitialFileName = Chemin
    fs.Show
    If fs.SelectedItems.Count < 1 Then Exit Sub
    Set fso = New FileSystemObject
    Set DossierSélectionné = fso.GetFolder(fs.SelectedItems(1))
 
    Call scan(DossierSélectionné)
 
End Sub
 
Sub scan(ByVal Dossier As Folder)
 
Dim NomFichier As String
Dim Classeur As Workbook
 
    For Each Fichier In Dossier.Files
        Select Case Right(Fichier, 3)
            Case "xls", "lsx", "lsm", "lsb"
                If Left(Fichier.Name, 1) <> "~" Then 'Permet d'exclure les fichier temporaires
                    Workbooks.Open Fichier
                    Set Classeur = ActiveWorkbook
 
                    'Traitement du fichier ouvert
 
                    Classeur.Close False
                End If
        End Select
    Next Fichier
 
    For Each Sousdossier In Dossier.SubFolders
        Call scan(Sousdossier)
    Next
 
End Sub

**TheHugoGua** · 26/08/2020, 17h25

Merci bien de votre réponse.

J'avais néanmoins quelques questions ?

Comment activer le Microsoft Scripting Runtime ??

Et dans un second temps comment effectuer le traitement que je souhaite faire sur les fichiers svp ?

Merci d'avance pour votre réponse !

**mat955** · 26/08/2020, 17h49

Re,

Pour activer une référence, aller dans le VBE (la fenêtre Visual Basic), cliquer sur Outils > Références... et sélectionner Microsoft Scripting Runtime dans la liste.

Ensuite, tout dépend de ce que tu veux faire, dans mon exemple, si les fichiers trouvés sont des fichiers Excel, alors ils sont ouverts, et ensuite il suffit d'écrire le code souhaité, puis de refermer le fichier. C'est ce qu'il y dans mon code à cet endroit :

Code :

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

1
2
3
4
5
6
Workbooks.Open Fichier
 Set Classeur = ActiveWorkbook
 
'Traitement du fichier ouvert
 
Classeur.Close False

**TheHugoGua** · 26/08/2020, 18h31

Petit problème quand je lance la macro ...

**mat955** · 26/08/2020, 18h41

Je pense que ça vient de la ligne suivante :

Code :

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

Chemin = Range("Chemin").Value

En effet, j'avais nommé une cellule "Chemin" et cette cellule contenait le répertoire par défaut à ouvrir dans la boîte de dialogue.
Et j'imagine que tu n'as pas de cellule nommée ainsi dans ton fichier, ou alors ce serait une belle coïncidence !

Il faut que tu remplaces par la cellule de ton choix qui contient le chemin par défaut.
Ou alors tu mets directement en dur le chemin dans le code VBA, mais c'est moins paramétrable.

Exemples :

Code :

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