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.
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.
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager