Discussion :

[LANGAZOU]

Bonjour,

Je dispose de plusieurs dossiers et sous dossiers qui contiennent plusieurs fichiers Excels ( exemple c:\Desktop\2015\01\fichier1). Chaque sous dossier contient plusieurs fichiers Excel. Je veux creer une macro qui ouvre les fichiers Excel 1 par 1 et copie toutes les lignes et les collent toutes dans un ordre decroissant dans une nouvelle feuille excel. Y'a t-il un moyen Pour fair ca svp?

Merci pour votre aide.

[parmi]

Bonjour,

Ça te prend une Function récursive pour lire tous les répertoires et sous-répertoires.
Voici un exemple

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
Sub SearchFiles()
    ImportFiles "c:\Desktop\2015\"   'Changer au besoin
End Sub
 
Sub ImportFiles(varPath As Variant)
    Dim varFile As Variant
    Dim objColl As Collection
 
    On Error GoTo Erreur
 
    Set objColl = New Collection
 
    If Right(varPath, 1) <> "\" Then varPath = varPath & "\"
 
    varFile = Dir(varPath, vbDirectory + vbArchive)
    Do While varFile <> ""
        'Stocke le répertoire
        If GetAttr(varPath & varFile) = vbDirectory Then
            If Left(varFile, 1) <> "." Then
                objColl.Add varPath & varFile
            End If
 
        'Travailler avec le fichier
        ElseIf LCase(Right(varFile, 3)) = "xls" Or LCase(Right(varFile, 4)) = "xlsx" Then
            'Ouvrir le fichier, le copier et le fermer
            Debug.Print varPath & varFile  'inscrit, pour fins de test, le nom du fichier dans la fenêtre Exécution (Ctrl-G)
        End If
        varFile = Dir
    Loop
 
    For Each varFile In objColl
        ImportFiles varFile
    Next
 
    Set objColl = Nothing
 
    Exit Sub
 
Erreur:
    MsgBox Err.Number & vbCrLf & Err.Description
End Sub

À partir de là, il suffit de trouver la première ligne vide et de copier les données du fichier trouvé.
À la fin, il te restera à trier dans l'ordre qui te convient.

[kiki29]

Salut, ceci pourrait t'aider ?

[LANGAZOU]

Bonjour tout le monde,

Merci pour votre réponse.
Mr kiki, le lien que vous m'avez envoyé est inactif.
Mr parmi ,j'ai mis votre code dans un nouveau module d'une nouvelle feuille Excel mais ca n'a pas marché.

[kiki29]

Salut, faux, le lien est actif, et permet après login de télécharger un fichier Fusion.xlsb, je viens de tester à l'instant

[LANGAZOU]

j'arrive pas à l'ouvrir peut être c'est dû à l'extension du fichier. pouvez -vous svp m'envoyer un format word ou EXCEL ?.

Merci d'avance.

[parmi]

Bonjour tout le monde,

Merci pour votre réponse.
Mr kiki, le lien que vous m'avez envoyé est inactif.
Mr parmi ,j'ai mis votre code dans un nouveau module d'une nouvelle feuille Excel mais ca n'a pas marché.

Qu'est-ce qui n'a pas marché ?
Est-ce que tu comprends le code écrit dans ma macro ?

[LANGAZOU]

je suis débutant en VBA, j'ai pas bien compri le code désolé.