données ds un autre fichier

[herrator]

bonjour à tous par ce dimanche frileux
j'ai une série de fichiers nommés mensu Tournus, mensu Givry etc ...

je voudrais, à partir d'un fichier FGT, récupérer des données des fichiers mensu en tapant Tournus, ou Givry etc

par exemple, il irait chercher la valeur de A1 ds mensu tournus si je tape Tournus, ds mensu Givry si je tape Givry etc ...

ça me ferait gagner des heures de boulot

alors merci !!!!

 

[Blunet]

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]

 

[Blunet]

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

 

[herrator]

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]