données ds un autre fichier

Public Sub OuvrirFacile()
'Ceci présippose qu'on connait déjà le chemin d'accès aux fichiers
'et qu'ils sont situés au même endroit. Le code est réadaptable
Dim Fich

Fich = InputBox('Entrer le nom du fichier à ouvrir')
chemin = 'C:\\'
ChDir chemin

Workbooks.Open Filename:= _
chemin & Fich

'Copie des données
Workbooks('Classeur1').Sheets('Feuil2').Range('A1').Copy _
Destination:=Workbooks('Classeur4').Sheets('Feuil1').Range('A1')

End Sub

'Pour cintégrer directement les trois fichiers à ouvrir
'Possibilité d'utiliser un Select Case et faire varier le chemin
'd'accès aux fichier si les fichiers ne sont pas au même endroit [file name=Classeur4_20060129131229.zip size=8091]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur4_20060129131229.zip[/file]

tu peux aussi voir dans quelle mesure paramétrer les différents fichiers à ouvrir et le chemin d'accès
Ciao

merci, c'est super et c'est une macro qui me sera utile

mais ds mon cas, j'ai des dizaines de données à aller chercher

je joint un fichier qui explique mon PB [file name=FGT.zip size=2061]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FGT.zip[/file]