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