Discussion :

[popline7]

Bonjour,
Je dois traiter plusieurs fichiers excel d'un même dossier.Il est donc nécessaire de les ouvrir avant.J'arrive a en ouvrir un en indiquant son nom mais il faudrait qu'il ouvre tous les fichiers présents dans le dossier spécifié.
Ensuite, je dois effectuer un traitement pour chaque fichier ouvert, pour cela j'utilise une variable(fichierRma).

Pouvez vous m'aider sur le moyen d'effectuer tout cela.
Je vous montre le code que j'ai déjà commencé.

Dans mon code, le fichier est DAL BO F RMA_200805.xls, je voudrais donc le changer par une variable qui changerait à chaque fichier.

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
 
 
Dir "C:\Outil RH\Test"
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
Source = "C:\Outil RH\Test"
       For Each File In fso.GetFolder(Source).Files
            Workbooks.Open(Filename:= _
            "C:\Outil RH\Test\DAL BO F RMA_200805.xls"). _
            RunAutoMacros Which:=xlAutoOpen
        Next
 
 
Windows("SaisieAuto_2008_05_Suivi_RMA.xls").Activate
'fichier Rma = "DAL BO F RMA_200805.xls"
'Ici tout le traitement à effectuer pour chaque fichier

Merci de me répondre et n'hésitez pas à poser des questions si mon explication n'est pas claire!

[supersnail]

Voilà comment faire:

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
Dir "C:\Outil RH\Test"
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
Source = "C:\Outil RH\Test"
       For Each File In fso.GetFolder(Source).Files
            Workbooks.Open(Filename:= _
            File.Name). _
            RunAutoMacros Which:=xlAutoOpen
        Next
   
    
Windows("SaisieAuto_2008_05_Suivi_RMA.xls").Activate
'fichier Rma = "DAL BO F RMA_200805.xls"
'Ici tout le traitement à effectuer pour chaque fichier

[popline7]

Lors de l'exécution pa

[popline7]

Lors de l'exécution pas a pas, j'ai l'erreur suivante:
Erreur d'execution '424', Objet requis
Ca se passe à la ligne:For Each File In fso.GetFolder(Source).Files

[Invité]

Bonsoir,

Je pense qu'il y a une erreur sur le code en vert (à vérifier) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Dir "C:\Outil RH\Test"
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
Source = "C:\Outil RH\Test"
       For Each File In fso.GetFolder(Source).Files
            Workbooks.Open(Filename:= _
            File.Name). _
            RunAutoMacros Which:=xlAutoOpen
        NextWindows("SaisieAuto_2008_05_Suivi_RMA.xls").Activate
'fichier Rma = "DAL BO F RMA_200805.xls"
'Ici tout le traitement à effectuer pour chaque fichier

[popline7]

Effectivement, il y avait cet erreur,
on rentre bien dans la boucle, mais maintenant, j'ai l'erreur 1004 qui dit que BEAU A RMa.xls est introuvable(le 1er fichier de mon dossier)

[Invité]

Bonsoir,

J'ai utilisé ce code qui chez moi a fonctionné :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub essai()
 
Set ofso = CreateObject("Scripting.FileSystemObject")
Source = "C:\divers\test\"
fich = Dir(Source & "*.xls")
       For Each File In ofso.GetFolder(Source).Files
        Workbooks.Open(Source & fich).RunAutoMacros Which:=xlAutoOpen
       fich = Dir
    Next
 
 
Windows("SaisieAuto_2008_05_Suivi_RMA.xls").Activate
End Sub

[popline7]

J'ai enfin réussi a faire ma boucle pour ouvrir les fichiers.

Cependant, les fichiers à ouvrir ont des macros et certains indiquent qu'au moment de l'ouverture, la macro est inactive(un message apparait puis disparait 2sec après) or les macros sont actives.De plus, je ne peux pas accéder aux macros, elle sont protégées par un mot de passe.

Avez vous une idée de la solution?