Macro pour ouvrir plusieurs fichiers excel avec une macro

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
m
mpaul
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 6 mai 2014
Version d'Excel : 2013

Message par mpaul » 6 mai 2014, 16:59

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
c
cousinhub
Membre impliqué
Membre impliqué
Messages : 2'038
Appréciations reçues : 20
Inscrit le : 28 mai 2009
Version d'Excel : xl 2016

Message par cousinhub » 6 mai 2014, 17:42

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
1/ Notre ignorance n'est pas aussi vaste que notre incapacité à utiliser ce que nous savons (Marion King Hubbert - Géophysicien américain - 1903/1989)
2/ Notre seule récompense est un "Merci".....
m
mpaul
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 6 mai 2014
Version d'Excel : 2013

Message par mpaul » 6 mai 2014, 19:15

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
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message