Macro pour récuperer des fichiers

Bonjour à tous,
Je suis débutant en vba.
Je vous explique, j'ai 5 fichiers dans des répertoires différents donc des liens différents \\mtaf.d40.intra\filesync\Common et j'aimerais les récupérer avec une macro
Dans chaque fichier nous avons les mêmes en têtes suivants mais juste que les données changent selon le fichier c'est comme si c'était la liste des élèves de 5 classes différentes. et cette liste change chaque jour donc moi je veux récupérer tous les noms, prénom et telephone dans chacun des fichiers et les mettre dans un seul fichier les uns en dessous des autres dans la feuille 1 de mon fichier récapitulatif.Sachant que dans chacun des fichiers, il peut avoir des lignes qui se rajoutent.
Merci à vous et j'attends vos retours
Exemple:
Fichier 1 Feuille nommée"liste A"
Nom(colonne 1) Prénom(colonne2) Adresse(colonne3) Tel(colonne4)
Alain Marc Paris 0600010100
Solange Elise Marseille 0600000000

Fichier 2 feuille nommée"liste B"
Nom(colonne 1) Prénom(colonne2) Adresse(colonne3) Tel(colonne4)
Alou Jeremy Lyon 0602000000
Lam Henry Lens 0652000000

Etc........

A la fin je veux un fichier récapitulatif comme suit :
Nom(colonne 1) Prénom(colonne2) Tel(colonne3)
Alain Marc 0600010100
Solange Elise 0600000000
Alou Jeremy 0602000000
Lam Henry 0652000000

Voilà le lien de la faq excel sur les fichiers http://excel.developpez.com/faq/ pour t'aider à démarrer. Personne ne va coder à ta place, mon pote.

Bonjour

Voila de quoi commencer
il te faut mettre le chemin complet des 5 fichiers a copier dans A1 = adresse1
A2 = adresse2, etc jusque A5

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_Calculate()
'effectuera la macro lors d'un appui sur F9
Dim Cld As Workbook, Cls As Workbook
Dim cell As Range
 
Set Cld = ThisWorkbook
'vide le classeur destination
Cld.Sheets("feuil1").Range("a2:a" & Range("a65000").End(xlUp).Row).ClearContents
 
'selectionne le classeur source
For Each cell In Sheets("feuil1").Range("a1:a5")
'ouvre en lecture seule le premier classeur source
    Set Cls = Application.Workbooks.Open("" & cell.Text, , True)
'selectionne les ligne de A1 a la derniere ligne, les selectionne, les copie et les colle sur le classeur destination
    Cls.Sheets("feuil1").Range("A1:a" & Range("a65000").End(xlUp).Row).Copy Cld.Sheets("feuil1").Range("a65000").End(xlUp)
'ferme le classeur source
    Cls.Close False
'passe au suivant
Next cell
End Sub

La solution employé est radicale puisque je vide le fichier destination avant de copier les données des classeurs sources.

J'aimerais savoir où je copie mes différents chemins? et mes chemins est ce que les chemins de ce type peuvent fonctionner C:\Documents and Settings\hpe.xlsx

Citation:

J'aimerais savoir où je copie mes différents chemins?

Les chemins de tes 5 fichiers sont a mettre en cellule A1, A2....de la feuille de calcul

Citation:

est ce que les chemins de ce type peuvent fonctionner C:\Documents and Settings\hpe.xlsx

Oui, aprés tout, tous les chemins mene à rome.:)

j'ai modifié la macro et j'ai un bug. Stp peux tu vérifier cette syntaxe et me dire où il y a une erreur. Merci beaucou^p
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 Sub Worksheet_Synthese() 'effectuera la macro lors d'un appui sur F9 Dim Cld As Workbook, Cls As Workbook Dim cell As Range Set Cld = ThisWorkbook 'vide le classeur destination last_row = Cld.Sheets("s8").Range("A12").End(xlDown).Row Cld.Sheets("s8").Range(Cells(12, 1), Cells(last_row, 12)).Delete 'selectionne le classeur source For Each cell In Sheets("feuil1").Range("a1") 'ouvre en lecture seule le premier classeur source Set Cls = Application.Workbooks.Open("" & cell.Text, , True) 'selectionne les ligne de A1 a la derniere ligne, les selectionne, les copie et les colle sur le classeur destination last_s = Cls.Sheets("s1").Range("A14").End(xlDown).Row 'Copier-Coller la colonne DR Cls.Sheets("s1").Range(Cells(14, 1), Cells(last_s, 1)).Copy Cld.Sheets("s8").Range("A14").Paste Cls.Sheets("s1").Range(Cells(14, 2), Cells(last_s, 2)).Copy Cld.Sheets("s8").Range("B14").Paste 'ferme le classeur source Cls.Close False 'passe au suivant Next cell End Sub
Code:

Cls.Sheets("feuil1").Range("A1:a" & Range("a65000").End(xlUp).Row).Copy Cld.Sheets("feuil2").Range("a65000").End(xlUp)

Bonjour ce code si j'ai bien compris signifie de copier dans la feuil1 de la ligne A1 jusqu'à la dernière ligne et la coller dans la feuille 2.
Moi j'aimerais coller dans la feuille 2 mais à partier de la ligne A12 comment puis-je faire ?

J'attends vos retours.

Merci à vous de votre gentillesse

Citation:

Cls.Sheets("feuil1").Range("A1:a" & Range("a65000").End(xlUp).Row).Copy Cld.Sheets("feuil2").Range("a65000").End(xlUp)

Pas tout a fait. On copie effectivement toute la feuil1 pour la coller sur la derniere cellule vide en colonne A de feuil2

Citation:

Moi j'aimerais coller dans la feuille 2 mais à partir de la ligne A12 comment puis-je faire ?

2 solutions :
Ecrire quelque chose en feuille2.A11
ou remplacer ceci

Code:

Cld.Sheets("feuil2").Range("a65000").End(xlUp)

par cela

Code:

Cld.Sheets("feuil2").Range("A12")

Est tu toujours bloquer sur ta macro??, quel est le message et si tu peux cliquer sur debogage, l'editeur VB te surligne la ligne renvoyant une erreur.
sinon, tu te mets dans ta macro et tu appuie sur F8 jusqu'à obtenir l'erreur.
Code:

1 2 3 4 5 'Copier-Coller la colonne DR Cls.Sheets("s1").Range(Cells(14, 1), Cells(last_s, 1)).Copy Cld.Sheets("s8").Range("A14").Paste Cls.Sheets("s1").Range(Cells(14, 2), Cells(last_s, 2)).Copy Cld.Sheets("s8").Range("B14").Paste
peut etre remplacer par

Code:

Cls.Sheets("s1").Range(Cells(14, 1), Cells(last_s, 2)).Copy Cld.Sheets("s8").Range("A14")

For each -----next cell est une boucle, excel prend la valeur de la cellule A1 pour en faire quelque chose puis A2, A3.
Ta macro fais une boucle sur une seule cellule. Cela ne sert à rien.

Bonjour
J'ai joint le fichier dans une nouvelle discussion récupération des données dans un fichier récapitulatif où j'esplique. Si tu veux va voir et reponds moi.

Merci c'est gentil de ta part