Discussion :

[douja]

Bonjour,

j'ai 4 classeurs excel,

je veux alimenter un Cinquième classeur par les données des 4, à savoir que ces derniers contiennent les mêmes informations.

merci d'avance .

[ouisansdoute]

Bonjour,

J'ai une question :
Comment souhaites-tu alimenter le cinquième classeur ? Veux tu récupérer toutes les données sur un même onglet ?

Si c'est le cas peut-être peux-tu aménager la macro suivante (qui extrait des données du deuxième onglet de chaque fichier d'un répertoire):

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
17
18
19
20
21
22
23
24
Sub Concatener_Donnees()
Dim MonRepertoire As String, fso As Object, f As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
MonRepertoire = "Y:\répertoire\"
For Each f In fso.GetFolder(MonRepertoire).Files
Application.EnableEvents = False ' pour ne pas activer les macros des fichiers extraits
Workbooks.Open MonRepertoire & f.Name ' Ouvre le fichier
 
    Sheets(2).Select ' sélectionne le second onglet
    Sheets(2).Range("a2:p" & Sheets(2).UsedRange.Rows.Count).Copy ' copie les données du second onglet à partir de la ligne 2
    Windows("synthèse.xls").Activate ' Active le fichier de synthèse
    Range("A" & Sheets(1).UsedRange.Rows.Count + 1).Activate ' Se positionne sur la dernière ligne de l'onglet de synthèse
    ActiveSheet.Paste ' Colle les données
    Application.CutCopyMode = False
    ActiveCell.SpecialCells(xlLastCell).Select
    Range("a1").Select
    Windows(f.Name).Activate ' Retourne au fichier extrait pour le fermer
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Close
 
Application.EnableEvents = True ' Réactive les macros
 
Next f
End Sub