Discussion :

[ahmet]

Bonjour les développeurs,

j'ai un petit besoin.

j'ai développé une macro qui traite un fichier.
cette macro me permet de traiter chaque semaine des fichiers qui se trouvent dans un même dossier. ( le nombre de fichiers peut varier et leur nom aussi)
mais la macro fonctionne sur tous les fichiers car la structure des données est identique. (extraction de données SAP sous des fichiers XLS pour info)

jusque là tout va bien.

mon problème c'est que je voudrais exécuter cette macro sur l'ensemble des fichiers d'un dossier sélectionné (50 à 60 fichiers)

(je connais l'adresse du dossier source mais je ne connais pas combien de fichiers il y peut y avoir d'une semaine à l'autre et les noms des fichiers peuvent changer)

je voudrais savoir s'il n'y avait pas une ligne de commande type

"for each files in folder do..."

auriez vous des idées ou des pistes d'investigations ?

merci d'avance pour vos lumières

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
Chemin = "Le chemin complet de ton dossier\"   'Avec \ à la fin
 
fichier = Dir(Chemin & "*.xls")
 
Do While Len(fichier) > 0
 
    MsgBox fichier
    fichier = Dir()                              'On passe au fichier suivant
Loop

[CodeFacile]

Voila 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
 
 
Sub ouvrir_tous_fic_repertoire()
 
    Title = "Sélectionnez un fichier du répertoire ?"
    MultiSelect = False
   filetoopen = Application.GetOpenFilename("Tous les fichiers Microsoft Excel , *.xl*", 2, Title, MultiSelect)
 
If filetoopen <> False And InStrRev(filetoopen, "\") > 0 Then
  Set fs = CreateObject("Scripting.FileSystemObject")         ' on défini un FileSystem pour traiter des fichiers et répertoires
    G_chemin_Fichier = Mid(filetoopen, 1, InStrRev(filetoopen, "\"))
 
 
     '***** traitement des fichiers d'un répertoire quelconque
      Set f_Dir = fs.getFolder(G_chemin_Fichier).Files   ' f_Dir renvoi la collection des noms de fichier présent dans le G_repertoire quelque  soit le type de fic excel ou autre .
         nb_fic = 0
            For Each f1 In f_Dir
               If InStr(1, f1.name, ".xl") > 0 Then
               'on fait les traitements que l'on veut ,exemple ouverture fichier ....
                  nb_fic = nb_fic + 1
             End If
           Next
End If
 
MsgBox CStr(nb_fic) & " fichiers Excel trouvés"
End Sub

[ahmet]

merci pour vos conseils

j'ai finalement opté pour ce code

Code :

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

1
2
3
4
5
6
7
8
 
Dim Repertoire As FileDialog
 
Set Repertoire = Application.FileDialog(msoFileDialogFilePicker) Repertoire.Show
 
For i = 1 To Repertoire.SelectedItems.Count ' execution de la macro pour chacun des fichiers.
 
next

Merci