Discussion :

[croset]

Bonjour,

je voudrais fusionner plusieurs fichiers excel (de taille différente) en un seul fichier. Je suis très débutante en macro...

J'ai trouvé le code ci-dessous sur le net qui semblait fonctionner pour certains. Cette macro correspond théoriquement à ce que je veux :
ouvrir tous les fichiers .xls d'un fichier blabla, copier les cellules et les coller dans un fichier excel ouvert à cet effet.

Mais j'ai deux problèmes :
- cette macro permet bien d'ouvrir les fichiers d'un certain répertoire, de sélectionner, de fermer les fichiers mais au final, rien ne s'inscrit dans mon fichier final... ?
- autre problème (moins grave) : c'est un peu laborieux de devoir nommer les plages que je souhaite copier "plage_nommee". y-a-t-il moyen de faire plus simple ?

un grand merci !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Range("A1").Select 'sélectionner la cellule de début
Chemin = "C:blabla\" 'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(Chemin & "*") ' Premier fichier
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Range("plage_nommee").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

[DidierLoche]

Bonjour,

Par rapport à "plage_nommee", as-tu une idée précise des cellules que tu dois copier ? Si ta plage commence en A1, tu peux faire ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ligne = Range("A65536").End(xlUp).Row
colonne = Cells(ligne, 255).End(xlToLeft).Column
Range(Cells(1, 1), Cells(ligne, colonne)).Select

Pour ton fichier final, il manque tout simplement la sauvegarde, à savoir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Save

Autre chose, la méthode que tu utilises essaie d'ouvrir tous les fichiers du répertoire blabla, ok tant que les fichiers sont ceux que tu veux fusionner. Si tu as d'autres fichiers différents d'Excel, la macro essaiera de les ouvrir quand même. Il faudrait donc ajouter un filtre du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Do While fichier <> ""
    If Format(Right(fichier, 3), "<") = "xls" Then
    ' ..... le code
    End If
fichier = Dir ' Fichier suivant
Loop

Enfin, si un fichier pointe sur un graphique, tu auras droit à une erreur à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Range("A1:F10").Copy

Si la feuille à copier est la première, tu peux ajouter ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Worksheets(1).Select
    Range("A1:F10").Copy

Voilà, je pense avoir fait le tour du problème ...
Bonne soirée,

Didier