Fusion de plusieurs fichiers excel en un seul Fermé

Question

Bonjour,
Je dois moi aussi faire une fusion de données en un seul fichier.
En effet je suis en stage chez un operateur mobile et on me demande de créer un fichier excel a partir des  differentes transactions .csv (plus de 1000).
j' ai bau appliqué le code de Marina, mais voila rien ne se passe et en mode debogage la compilation reste bloquée à la 3 eme ligne. Aidez moi a trouver le probleme de plus j ai des contraintes de temps :-(
Merciiiii.

m@rina · Answer

Bonjour,

1) On ne sait pas de quel code tu parles...

2) On aimerait avoir le message d'erreur

m@rina

m@rina · Answer

Bonjour,

Déjà, à première vue, il manque l'antislash à la fin du chemin :

Chemin = "C:\Users\Térence\Desktop\TRANSACTIONS Copie\" 'saisir le chemin complet du dossier 

m@rina

angby · Answer

En debogage pas à pas le message d'erreur est : Erreur d'exécution '1004': Erreur definie par lapplication ou par l'objet

m@rina · Answer

Essaie ça (sans rien changer), supposant que les fichiers à récupérer sont du CVS et non pas du CVS...

Sub recup()
Range("A1").Select 'sélectionner la cellule de début
Chemin = "C:\Users\Térence\Desktop\TRANSACTIONS Copie\" 
Fichier = Dir(Chemin & "*.csv") 
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Rows("1:25").Delete Shift:=xlUp
Range("Zone_d_impression").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 = Dir ' Fichier suivant
Loop
End Sub

m@rina

angby · Answer

Merci je vais tester ça et voir. :-)

Fusion de plusieurs fichiers excel en un seul

5 réponses

Discussions similaires