Fusionner des fichiers Excel
Résolu
Kerdaven
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Mon sujet a été traité plusieurs fois :
Mon besoin :
Fusionner plusieurs fichiers Excel de même structure (colonnes A à L inclues uniquement jusque dernière ligne non vide)
Pour la macro est enregistrée dans mes macro personnelle pour être lancée depuis n'importe quel classeur.
Elle envoi les données toujours dans le même fichier appelé "cumul.xls"
Je me tape la tête sur une erreur 1004 (je suis sur Mac) sur la ligne "ActiveSheet.Paste"
Voici le code :
Sub cumul2()
'
' cumul2 Macro
'
'
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, "A:L").Select
Selection.Copy
Workbooks("cumul.xlsx").Activate
ActiveSheet.Paste
Range("A:A,C:L").Select
'Range("C1").Activate
Selection.ColumnWidth = 20
Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub
Je pensais savoir faire deux trois trucs en VBA mais là je deviens dingue... vos lumières m'aideront.
Merci
Mon sujet a été traité plusieurs fois :
Mon besoin :
Fusionner plusieurs fichiers Excel de même structure (colonnes A à L inclues uniquement jusque dernière ligne non vide)
Pour la macro est enregistrée dans mes macro personnelle pour être lancée depuis n'importe quel classeur.
Elle envoi les données toujours dans le même fichier appelé "cumul.xls"
Je me tape la tête sur une erreur 1004 (je suis sur Mac) sur la ligne "ActiveSheet.Paste"
Voici le code :
Sub cumul2()
'
' cumul2 Macro
'
'
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, "A:L").Select
Selection.Copy
Workbooks("cumul.xlsx").Activate
ActiveSheet.Paste
Range("A:A,C:L").Select
'Range("C1").Activate
Selection.ColumnWidth = 20
Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub
Je pensais savoir faire deux trois trucs en VBA mais là je deviens dingue... vos lumières m'aideront.
Merci
A voir également:
- Fusionner des fichiers Excel
- Liste déroulante excel - Guide
- Comment fusionner des pdf sans logiciel - Guide
- Renommer des fichiers en masse - Guide
- Fusionner deux fichiers excel - Guide
- Word et excel gratuit - Guide
3 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,
il est recommandé d'éviter de faire select & activate en VBA.
il est recommandé d'éviter de faire select & activate en VBA.
merci pour votre retour rapide et proposition de solution.
Malheureusement cela donne la même erreur 1004
Malheureusement cela donne la même erreur 1004
Bonjour,
Voici deux fichiers exemple qui doivent alimenter le fichier "cumul"
https://www.cjoint.com/c/JJEiyzCo1vV
https://www.cjoint.com/c/JJEizOhGniV
https://www.cjoint.com/c/JJEiAl4Tr2V
Merci pour votre aide
Voici deux fichiers exemple qui doivent alimenter le fichier "cumul"
https://www.cjoint.com/c/JJEiyzCo1vV
https://www.cjoint.com/c/JJEizOhGniV
https://www.cjoint.com/c/JJEiAl4Tr2V
Merci pour votre aide
je ferais ainsi:
Sub cumul2()
Dim ws As Worksheet, source As Range, destination As Range
Set ws = ActiveSheet
Set source = Range(ws.Range("A2"), ws.Range("A2").End(xlDown)).Resize(, 12)
Set destination = Workbooks("cumul.xlsx").Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0) _
.Resize(source.Rows.Count, source.Columns.Count)
source.Copy destination
destination.ColumnWidth = 20
End Sub
Workbooks("cumul.xlsx").Activate ActiveSheet.Pasteécris
Workbooks("cumul.xlsx").Worksheets("...").Paste