Macro pour ouvrir plusieurs fichiers Excel avec une macro

Bonjour je suis nouveau sur le forum et je souhaiterai obtenir de l'aide pour la réalisation d'une marco.

Le but de celle-ci est:

  • d'ouvrir successivement des fichiers excel contenu dans un même répertoire
  • faire quelques modifications automatisées dans chacun de ces fichiers
  • d’exécuter une seconde macro contenu dans ces fichiers

j'ai un problème sur l'ouverture de ces fichiers

avec ce code :

Sub Fichiers()

Application.ScreenUpdating = True

Dim myPath As String, myFile As Variant

myPath = "D:\test\"

myFile = Dir(myPath & "\*.xls*")

c = 1

Do While myFile <> ""

Cells(c, 1) = myFile

Dim wb As Workbook

Set wb = Workbooks.Open(myPath & myFile)

wb.Activate

ActiveWorkbook.Close

myFile = Dir()

c = c + 1

Loop

End Sub

j'ouvre le premier fichier de mon répertoire mais j'obtiens un run-time 1004 lorsque la macro essaye d'ouvrir le second fichier.

j'ai testé avec des fichiers excel ne contenant pas de macro et tous les fichier s'ouvre nickel....

quelqu'un peut-il m'indiquer ou est mon erreur...

merci d'avance

Bonsoir,

Chez moi, ce code ne pose aucun problème.

quel est le dernier fichier ouvert? (Tu as le nom dans la cellule A2, s'il s'agit du deuxième fichier)

A priori, ce serait lui qui poserait problème....

Dans ce fichier, quel(s) type(s) de macro?

Est-ce qu'il y a une macro à l'ouverture du fichier? (Dans le ThisWorkbook_Open)

Bon courage

bonsoir Cousinhub,

en faite apres verification le code marche bien mon deuxieme fichier a ouvrir etait conrompu, ce qui entrainait l'erreur...

desole... a vouloir automatiser on en oubli de verifier les fichiers...

merci beaucoup

Rechercher des sujets similaires à "macro ouvrir fichiers"