Récupérer des données de plusieurs Excel identiques dans un seul

Bonjour,

Tu peux essayer un truc de ce genre-là (en mettant le nom des fichiers en colonne A : https://www.cjoint.com/?DCyqM37tsn6
Sinon, ça devra passer par une macro.

A+

Merci Zoul67 pour ta réponse,

le problème c'est qu'avec cette solution le fichier doit être ouvert sinon "#REF!" s'affiche dans la case. Je souhaite juste récupérer les informations.

L'idéal (si possible) serait par l'appui sur un bouton d'une macro de sélectionner un dossier et que tous les informations que je souhaite soit récupérer dans chaque fichier présent dans le dossier sélectionné.

Je ne sais pas si c'est possible et encore merci pour ton aide.

Bonjour,

à tester : https://www.cjoint.com/?DCysWF9VTv5
Mettre le classeur dans le répertoire à traiter, l'ouvrir, cliquer sur le bouton.

eric

En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(devise Shadok)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

Merci Eric pour ton aide,
Après quelques modifications de code, on arrive à récupérer les données de plusieurs classeurs présents dans un même dossier.
Voici le code

Sub synthèse()

'lignes 9 à 40 des colonnes A, B, C et E.
'fichier 1 dans les lignes 2 à 33 ; Fichier 2 dans les lignes 34 à 65 etc... Dim chemin As String, Fichier As String
Dim wb As Workbook, wb2 As Workbook, sh As Worksheet, sh2 As Worksheet
Dim chemin As String, Fichier As String, nbFich As Long
Dim derlig As Long
Set wb = ThisWorkbook
Set sh = Worksheets(1)

With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ActiveWorkbook.Path & "\"
.Show
If .SelectedItems.Count > 0 Then
chemin = .SelectedItems(1) & "\"
Else
Exit Sub
End If
End With

Application.ScreenUpdating = False
derlig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
If derlig > 1 Then Range("A2:A" & derlig).EntireRow.Delete
Fichier = Dir(chemin & "*.xl*") ' 1er fichier
Do While (Len(Fichier) > 0)
If Fichier <> wb.Name Then
Workbooks.Open chemin & Fichier
' traitement
Set wb2 = ActiveWorkbook
' Set sh2 = ActiveSheet
Set sh2 = Worksheets(1)
wb.Activate
sh2.[A9:C40].Copy
sh.Cells(nbFich * 32 + 2, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues
'Selection.PasteSpecial Paste:=xlPasteFormats

sh2.[E9:E40].Copy
sh.Cells(nbFich * 32 + 2, 5).Select
Selection.PasteSpecial Paste:=xlPasteValues
'Selection.PasteSpecial Paste:=xlPasteFormats
sh.Cells(nbFich * 32 + 2, 1) = Fichier
nbFich = nbFich + 1
wb2.Close
End If
Fichier = Dir() ' fichier suivant
Loop
[A1].Select
End Sub

Mais maintenant on aimerait récupérer les données de tous les dossiers présents dans un répertoire en une seule fois.
Comment dois je faire ? ajouter une boucle ?

Bonjour,

Pour ça je te conseille l'excellent site de J Boigontier.
Sur cette page tu trouveras 'Arborescence des sous-répertoires d'un répertoire'

eric

Dans VBE regarde dans 'Outils / Références...' si tu peux activer Microsoft Scripting Runtime.

Il le faut pour utiliser le FileSystemObject (fso) et toutes les versions d'excel ne l'ont pas.
Sinon ici : lister les répertoires avec Dir() (sans fso donc)

eric

En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(devise Shadok)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci