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
- Liste déroulante excel - Guide
- Renommer plusieurs fichiers en même temps - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
5 réponses
Bonjour,
1) On ne sait pas de quel code tu parles...
2) On aimerait avoir le message d'erreur
m@rina
1) On ne sait pas de quel code tu parles...
2) On aimerait avoir le message d'erreur
m@rina
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