ouverture et lecture de fichier excel par macro

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:

---

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!

Voilà comment faire:

Code:

---

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

---

Lors de l'exécution pa

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

Bonsoir,

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

Code:

---

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

---

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)

Bonsoir,

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

Code:

---

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

---

A la ligne : Workbooks.Open(Source & fich).RunAutoMacros Which:=xlAutoOpen

Une nouvelle erreur s'affiche qui m'indique que le fichier est peut être en lecture seule ou crypté.J'ai bien sur vérifié et ce n'est pas le cas!

Je ne sais pas si je m'en sortirais un jour!!

Bonsoir,

Cela me rappelle la remarque que je voulais vous faire :

dans la mesure où vous ouvrez des fichiers contenant une macro "Autoopen" celle-ci doit se lancer automatiquement ?

Est-il utile d'indiquer :

Code:

---

.RunAutoMacros Which:=xlAutoOpen

---

l'erreur est toujours la

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?