[VBA] Compilation de fichier excel

Fermé
aerf29 Messages postés 3 Date d'inscription lundi 11 août 2014 Statut Membre Dernière intervention 13 août 2014 - Modifié par pijaku le 13/08/2014 à 12:46
Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 - 25 août 2014 à 16:06
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


A voir également:

3 réponses

borntobealive Messages postés 138 Date d'inscription jeudi 17 juillet 2014 Statut Membre Dernière intervention 25 février 2019 7
25 août 2014 à 15:44
à quelle ligne intervient l'erreur 1004 ?
0
rEVOLV3r Messages postés 223 Date d'inscription jeudi 12 août 2010 Statut Membre Dernière intervention 21 septembre 2022 28
25 août 2014 à 16:03
Bonjour,

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

cordialement
0
Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 14
25 août 2014 à 16:06
Bonjour

Et combien de fichiers doit-tu compiler?
0