Fusion de plusieurs fichiers excel en un seul
angby
Messages postés
11
Statut
Membre
-
angby Messages postés 11 Statut Membre -
angby Messages postés 11 Statut Membre -
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.
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.
5 réponses
-
Bonjour,
1) On ne sait pas de quel code tu parles...
2) On aimerait avoir le message d'erreur
m@rina-
bonjour Marina,
j'ai omis de preciser mon code :-o
le voila:
Sub recup()
Range("A1").Select 'sélectionner la cellule de début
Chemin = "C:\Users\Térence\Desktop\TRANSACTIONS Copie" 'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(Chemin & "sdr_mvno12_20081201001804.cvs") ' Premier fichier
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Rows("1:25").Select
Selection.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(Chemin & "sdr_mvno12_20081201121510.cvs") ' Fichier suivant
Loop
End Sub
-
-
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 -
En debogage pas à pas le message d'erreur est : Erreur d'exécution '1004': Erreur definie par lapplication ou par l'objet
-
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 -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
