Bonjour,

Si tous tes classeurs ont la même structure, oui ce n'est pas très compliqué. La macro va ouvrir chaque classeur puis copier-coller... Il y a une solution qui permet d'aller directement dans les classeurs sans les ouvrir et qui passe par ADO, mais c'est prise de tête et ça fonctionne... moyen... en fonction des types de données.

Tu peux essayer cette macro toute simple, tu verras, c'est très rapide. Tes fichiers source doivent être fermés et tous dans le même dossiers, la macro doit se trouver dans le fichier destination.

Sub recup()
Range("A1").Select 'sélectionner la cellule de début
Chemin = "c:\Mes documents\..." 'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(Chemin & "*.xls") ' Premier fichier
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Range("bd_export").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

Bonjour,

Si tous tes classeurs ont la même structure, oui ce n'est pas très compliqué. La macro va ouvrir chaque classeur puis copier-coller... Il y a une solution qui permet d'aller directement dans les classeurs sans les ouvrir et qui passe par ADO, mais c'est prise de tête et ça fonctionne... moyen... en fonction des types de données.

Tu peux essayer cette macro toute simple, tu verras, c'est très rapide. Tes fichiers source doivent être fermés et tous dans le même dossier, la macro doit se trouver dans le fichier destination.
Les plages à exporter doivent être nommées dans chaque fichier source.

Sub recup()
Range("A1").Select 'sélectionner la cellule de début
Chemin = "c:\Mes documents\..." 'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(Chemin & "*.xls") ' 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

m@rina

Salut marina,

merci pour le temps que tu m'accordes,

J'ai essayé ton code et rien ne se passe quand je l'exécute, j'ai fais les modifs des chemin de mes fichiers mais toujours rien.
De plus d'un mois à l'autres je n'ai pas le même nombre de ligne alors est il possible de copier les données sans nommer la zone à exporter et pour les coller dans le fichier de destination coller le 2 ème fichier a la première ligne vide du 1er fichie.

Voila pour mes interrogations et merci pour tes idées...

Salut,

maintenant le code s'exécute mais il ne m'ouvre pas tous les fichiers du dossier.
j'ai pas nommé les plages je vais le faire mais je ne comprend pas comment utiliser la formule DECALER ou je dois la mettre?
et est ce qu'ensuite les fichier se colleront les un en dessous des autres.


Sub recup()
Range("A1").Select 'sélectionner la cellule de début
Chemin = "K:\1- EPC\BUDGETS\BUDGET 2008\Retours marges\07 NS\" 'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(Chemin & "04848 marge.xls") ' Premier fichier
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Rows("1:25").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Range("plage_nommee").Copy <-------- je vais nommer les plages
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

Bonjour,

Faut pas modifier la macro, à part donner le nom du chemin complet et le nom de la plage.

Supprime :
Fichier = Dir(Chemin & "04848 marge.xls") ' Premier fichier

et remets ce que j'ai mis à l'origine :
Fichier = Dir(Chemin & "*.xls") '

sinon, ça t'ouvre juste le premier fichier dont tu as mis le nom en dur !

Pourquoi veux tu supprimer ces lignes ?
Rows("1:25").Select
Selection.Delete Shift:=xlUp

pour mettre une formule DECALER pour nommer les noms, voici ce que tu peux mettre, supposant que
- il y ait 10 colonnes et que ce nombre ne changera pas
- la feuilles où se trouvent les données se nomme BASE
- les données commencent en ligne 2 (en effet, on ne veut pas récupérer les lignes d'entêtes des 20 classeurs)

=DECALER(BASE!$A$2;;;(NBVAL(BASE!$A:$A)-1);10)

Juste une précision importante : prend pour calcul NBVAL la colonne qui sera forcément remplie et pas une colonne qui peut avoir des cellules vides. Ici j'ai mis par défaut la première $A:$A mais ce peut etre n'importe quelle autre.

m@rina

Bonjour,
Marina, si tu permet une alternative ?

Sub CopieClasseur()
Dim fs, F, f1, s, sf
Dim Ext As String, Chemin As String
Dim T As String, Fin As Long
Dim FL1 As Worksheet
Dim FL2 As Worksheet
    Ext = "xls" :   Chemin = "G:\" 'à adapter
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set F = fs.GetFolder(Chemin)
    Set sf = F.Files
    Set FL1 = Workbooks("Classeur2").Sheets("Feuil1") 'à adapter
    Fin = 1
    For Each f1 In sf
        If Right(f1.Name, 3) = Ext Then 'pour être certain que c'est un classeur
            Workbooks.Open Chemin & f1.Name
            Set FL2 = ActiveWorkbook.Sheets("Feuil1")
            T = FL2.Range("A1").SpecialCells(xlCellTypeLastCell).Address
            FL2.Range("A1:" & T).Copy
            FL1.Activate
            Cells(Fin, 1).Activate
            ActiveSheet.Paste
            Fin = Fin + FL2.Range(T).Row
            Workbooks(f1.Name).Close SaveChanges:=False
            Set FL2 = Nothing
        End If
    Next
    FL1 = Nothing
End Sub

Fusion de plusieurs fichiers excel en un seul

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.

Fusion de plusieurs fichiers excel en un seul

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.

Bonjour tous et toutes,
Attention.. Fusion ne veux pas dire copier, ont ne peut faire de fusion que sur un classeur partagé, chacun travail sur sa copie et au final, la fusion fait que le "VRAI" classeur recoit les modifications faites sur toutes les copies. Mais je ne maitrise pas cette fonction n'ayant pas de réseau chez moi.
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

Bonjour,

j'ai fait à peu près la même macro que celle décrite précédement et je souhaite que cette macro retienne le nombre de lignes copiées à chaque fichier pris pour qu'elle m'affiche le total à la fin.

Merci beaucoup de votre aide

Bonjour,
Ca ne me paraîs pas bien compliquer !
en début de macro (1ère ligne) tu met..

dim DebutLigne as long, NBlignes as long
DebutLigne = Range("A65536").End(xlUp).Row

NBlignes = Range("A65536").End(xlUp).Row - DebutLigne