Discussion :

[ChipsAlaMenthe]

Bonjour à tous!

Je vous explique mon problème, je n'ai à ce jour pas encore trouvé mon bonheur .
J'ai un dossier qui contient une centaine de fichier .xls différents, avec chacuns plusieurs feuilles.

Mon but est le suivant: à partir d'un fichier .xlsm, j'aimerais pouvoir exécuter à l'aide d'une maccro certaines actions sur tous les fichiers .xls du dossier.

Ma question est donc la suivante: savez-vous quelle fonction excel en VBA permet de traiter des fichiers différents?

Je vous remercie

[joe.levrai]

Bonjour,

Dir() pour boucler sur les fichiers d'un dossier
Open pour ouvrir un classeur

tout est illustré dans l'aide

sinon, ce forum regorge de sujets traitant de ça : une petite recherche et tu auras ton bonheur

[ChipsAlaMenthe]

Je viens de trouver des explications sur le forum que je n'avais pas vu tout à l'heure.
Par contre j'attend d'écrire une solution stable et de la poster ici avant de marquer le sujet comme résolu .

Merci! ^^

[Invité]

Bonjour,
idéalement voila la structure dont ta macro devrait être pourvue!

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
Sub test()
   TraitementRpertoire "c:\RepTest"
End Sub
Sub TraitementRpertoire(Rep As strinng)
If Right(Rep, 1) <> "\" Then Rep = Rep & "\"
Dim Fichier As String
Fichier = Dir(Rep & "*.xls")
While Fichier <> ""
    TraitementFichier Rep & Fichier
Wend
End Sub
Sub TraitementFichier(Fichier)
Dim Wb As Workbook
Set Wb = Workbooks.Open(Fichier)
    For Each Sh In Wb.Sheets
        TraitementFeuille Sh
    Next
Wb.Save
Wb.Close
Set Wb = Nothing
End Sub
Sub TraitementFeuille(Sh As Worksheet)
 
End Sub

[ChipsAlaMenthe]

Merci à toi! ^^ Grâce à ton message ça a fonctionné! ^^

Voici le code exact que j'ai utilisé pour cela:

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
Sub OuvrirFichier()
    '-- Permet d'ouvrir les fichiers presents dans le dossier en question
    '-- Et de traiter independamment toutes les feuilles
    Dim NomRepertoire As String
    Dim Fichier As String
    Dim Wb As Workbook
 
    NomRepertoire = ThisWorkbook.Path & "\"
    Fichier = Dir(NomRepertoire & "*.xls")
 
    '-- Pour chaque fichier du dossier
    While Fichier <> ""
        Set Wb = Workbooks.Open(NomRepertoire & Fichier)
 
        '-- Pour chaque feuille de chaque fichier
        For Each Sh In Wb.Sheets
            '-- Traiter ici les elements
        Next
 
        Wb.Save
        Wb.Close
        Set Wb = Nothing
        Fichier = Dir
    Wend
End Sub