Prendre cellule dans plusieurs classeurs Excel

Bonjour à tous,

mon problème est le suivant: je voudrais récupérer une cellule (B1) dans plusieurs fichiers excel d'un répertoire et mettre toutes ces cellules B1 dans un tableau dans un fichier maitre. Ex: la cellule B1 du fichier 1 en A1 du fichier maitre, la cellule B1 du fichier 2 en A2 du fichier maitre etc...

Sachant que les fichiers "esclaves" ont des noms différents et ont un seul onglet.

Je pense qu'un macro serait nécessaire mais je ne saurai pas la développer. De plus, je voudrais récupérer ces cellules A1 sans avoir à ouvrir les fichiers esclaves car cela serait beaucoup trop long.

Merci d'avance.

nb: j'ai mis en pièce jointe un exemple de fichier esclave

Bonjour,

Tes fichiers esclaves et ton fichier maître sont ils dans le m^me répertoires et seuls ?

A te relire

Je peux mettre le fichier maitre dans le répertoire des fichiers esclaves qui sont seuls

Bonjour,

OK je propose un truc dans la matinée

@+

-- Mer Sep 22, 2010 9:55 am --

Re,

J'avais cette macro sur une étagère de mon grenier:

on n'ouvre pas les classeurs "esclave", la macro est dans le classeur "maitre"

onglet est le nom de la feuille "esclave"

Sub transferer()
Dim lig As Long
Dim recap As String, chemin As String, onglet As String
Dim fich As String

recap = ThisWorkbook.Name
onglet = "feuil1" ' A ADAPTER
chemin = ThisWorkbook.Path
Application.ScreenUpdating = False
Range("A2:A1000").ClearContents
lig = 2

ChDir chemin
fich = Dir("*.xls")
While fich <> ""
    If fich <> recap Then
        'source: instruction dite de "Walkenbach")
        VOIR  PLUS BAS MESSAGE D'ABANDON DE SUIVI
    lig = lig + 1
    End If
    fich = Dir
Wend

MsgBox "récapitulatif  terminé avec succès"
End Sub

avec petite démo ci-jointe:

-- Mer Sep 22, 2010 2:17 pm --

Suivi abandonné: Flosauveur travaille avec XLD sans prévenir de cet état de fait