Récupérer dans tableau des données de différents classeurs

[jackfred]

bonjour,

Voilà, j'ai différents classeurs contenant des données en fonction de l'année.
2005.xls
2006.xls
2007.xls

J'aimmerais dans un autre classeur ne récupérer les données que d'un classeur en fonction d'une année choisie

='C:\Documents and Settings\blabla\Bureau\BDD\Achats\[2005.xls]Régional'!$G$7

où "2005" doit pouvoir varier en fonction d'une celule où l'on saisirait l'année.
j'avais pensé à qque chose du genre :
='C:\Documents and Settings\blabla\Bureau\BDD\Achats\&"A1"&.xls]Régional'!$G$7
mais ca ne marche pas

Il va de soit que les données sont organisées de la meme manière dans les classeurs source.


Merci

fred

 

[ChTi160]

Re : Récupérer dans tableau des données de différents classeurs

Salut jackfred
en espérant que ce code puis te servir (fonction trouvée sur le net et adaptée Site Vériti)

Sub testTEST()
Dim chemin As String, feuille As String, cellule As String, fichier As String
chemin = "C:\"
      fichier = Range("A1") & ".xls"
      feuille = "TEST"
      cellule = "A1"
                  ActiveSheet.Range("A3").Value = [COLOR=Blue]_
                               ExtraireValeur[/COLOR](chemin, fichier, feuille, cellule)
 End Sub

' Permet de lire une valeur dans un fichier Excel fermé

Private Function [COLOR=Blue]ExtraireValeur[/COLOR](chemin, fichier, feuille, cellule)
Dim argument As String
    argument = "'" & chemin & "[" & fichier & "]" & feuille & "'!" _
                                           & Range(cellule).Address(, , xlR1C1)
          [COLOR=Blue] ExtraireValeur[/COLOR] = ExecuteExcel4Macro(argument)
End Function

Bonne fin de Soirée

 

[Catrice]

Re : Récupérer dans tableau des données de différents classeurs

Bonsoir,

Essaye :

=INDIRECT("'C:\Documents and Settings\blabla\Bureau\BDD\Achats\"&A1&".xls]Régional'!$G$7")