recherche par nom d'onglet

[Rémi]

Bonjour à tous,

Je voudrais savoir s'il est possible de faire une recherche selon un nom d'onglet. Je m'explique:

J'ai un fichier avec plusieurs feuilles. Je veux créer un autre fichier qui ira se lier aux informations du premier.

Pour savoir quelles données il doit aller chercher, j'aimerais faire un recherche selon le nom de la feuille. Les informations que je veux aller chercher sont au même endroit (dans la même cellule) pour chaque feuille. Il ne me reste donc qu'à nommer la feuille (ce que je ferais dans une cellule de mon fichier) pour que ma fonction puisse aller lire dans la bonne feuille l'information voulue.

Quelque chose comme =(C:\Mes Documents\[Nom_de_fichier.xls]"A5"'!G13 où la cellule A5 contiendrait le nom de la feuille où aller chercher l'information.

Merci de votre aide,

Rémi

 

[Myta]

Salut Rémi

Une facon de faire à adapter

Sub FillTabl()
'Récupération des données du tableau
'C:\Data_MP\Lecture_2004a.xls

Dim I As Byte
Dim fPath As String
Dim fName As String
Dim sName As String
Dim fullName As String

fPath = "C:\Data_MP"
fName = "Lecture_2004a.xls"
sName = "Data"
fullName = "='" & fPath & "\[" & fName & "]" & sName & "'!"


With F2

' ++++++++++++++++++++++++++++++++++++++
' + Récupèration des Lectures du Quart +
' ++++++++++++++++++++++++++++++++++++++

For I = 1 To 45
Cells(I, 4) = fullName & Cells(I, 10).Address()
Cells(I, 4).Value = Cells(I, 4).Value
Next I

End With
End Sub


Mytå

 

[andré]

Salut Remi et Myta,

Il y a aussi moyen de le faire aussi sans macro en plaçant le nom complet du chemin en A5 et par la fonction INDIRECT dans la cellule.
Une petite recherche des anciens posts donnera la méthode à suivre.

Ândré.

 

[Rémi]

Bonjour Myta, andré et le forum,

Merci à vous deux pour votre aide.

Rémi