[VBA] Compilation de fichier excel

Fermé
Signaler
Messages postés
3
Date d'inscription
lundi 11 août 2014
Statut
Membre
Dernière intervention
13 août 2014
-
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
-
Bonjour,
J'ai un petit soucis avec mon code. Je voudrais importer des fichiers excel (je précise que les fichier on tous la meme structure) se trouvant dans le dossier nommé "overview", dans un fichier excel qui retraite les données.

AH j'ai oublié de dire que le collage des fichiers doit se faire à la suite en non pas dans des onglets différent

Difficulté supplémentaire: le nom de l'onglet correspond au nom du fichier qui doit étre collé dans le fichier synthése. Donc comme les fichiers sont différents les nom d'onglets le sont aussi

j'ai commencé à taper la macro

Sub recup()
Range("A1").Select 'sélectionner la cellule de début
Chemin = "M:\CGF\engagement\engagerment\overview" 'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir("M:\CGF\engagement\engagerment\overview" & "AT_oovervie_20140808.xls") ' Premier fichier
Do While Fichier <> ""
Workbooks.Open Filename:="M:\CGF\engagement\engagerment\overview" & "AT_oovervie_20140808.xls"
Range("Feuil2").Copy
ThisWorkbook.Activate
ActiveSheet.Paste
Windows(Fichier).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
Fichier = "DAF_oovervie.xls" ' Fichier suivant
Loop
End Sub

mais rien ne se passe sauf "erreur 1004"

Est ce que vous savez comment je peut améliorer mon code ??

Cordialement


3 réponses

Messages postés
138
Date d'inscription
jeudi 17 juillet 2014
Statut
Membre
Dernière intervention
25 février 2019
7
à quelle ligne intervient l'erreur 1004 ?
0
Messages postés
221
Date d'inscription
jeudi 12 août 2010
Statut
Membre
Dernière intervention
5 juillet 2019
28
Bonjour,

Essayez de rajouter "\" à la fin de votre chemin M:\CGF\engagement\engagerment\overview

cordialement
0
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
Bonjour

Et combien de fichiers doit-tu compiler?
0