Fusionner des fichiers Excel
Résolu
Kerdaven
Messages postés
6
Statut
Membre
-
yg_be Messages postés 24281 Statut Contributeur -
yg_be Messages postés 24281 Statut Contributeur -
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
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