Nom de fichier variable

[Charles]

Bonjour tout le monde,

Mon problème est un peu compliqué à expliquer mais trop à résoudre je pense, c'est une question de syntaxe me semble t-il :

J'ai une liste de fichiers par ex
Janvier.xls
Fevrier.xls
Mars.xls
...
qui se trouvent dans un certaine répertoire.

Dans ma feuille Excel, j'aimerais récupérer une valeur dans un de ces fichiers. Pour déterminer quel fichier, j'aimerais qu'il aille chercher le nom dans une cellule de ma feuille.
Par exemple, en C3, j'ai marqué "Mars" et dans ma cellule C2 j'aimerais qu'il me récupère une valeur du fichier indiqué dans C3 donc Mars.

Merci par avance,

Charles

 

[michel]

bonsoir Charles

tu peux tester la macro ci dessous

Sub RecupInfosFichiers()
On Error GoTo fin
Application.ScreenUpdating = False
Workbooks.Open ("D:\dossier\general\excel\" & Range("C3") & ".xls")
ThisWorkbook.Sheets(1).Range("C2") = ActiveWorkbook.Sheets(1).Range("A1")
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Exit Sub
fin:
If Err = 1004 Then MsgBox "Le fichier " & UCase(Range("C3")) & " n'a pas été trouvé . "
End Sub

bonne soirée
michel

 

[Charles]

Merci beaucoup Michel mais je voulais essayer sans macro, est-ce possible ?