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.
A voir également:
- Fusion de plusieurs fichiers excel en un seul
- Renommer plusieurs fichiers en même temps - Guide
- Comment ouvrir un fichier epub ? - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Trier un tableau excel - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
5 réponses
Bonjour,
Déjà, à première vue, il manque l'antislash à la fin du chemin :
m@rina
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...
m@rina
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
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