Reprendre le nom d'un fichier se trouvant ds une cellule pour une fonction

[Jean-Marc]

Bonjour

J'ai une feuille dont la colonne A comporte une liste de fichier Excel. Je désire savoir comment je peux faire pour utiliser la formule ci-dessous sans être obligé d'insérer le nom du fichier (ci-joint le fichier).

Toujours dans la même feuille colonne B, la formule voir exemple ci-dessous.

=+'C:\Documents and Settings\Administrateur\Mes documents\[testsearchfile.xls]Feuil1'!$A$1

L'idée serait d'ajouter dans la formule reprendre le nom du fichier qui se trouve dans la colonne A "testsearchfile.xls" voir formule ci-dessous

=+'C:\Documents and Settings\Administrateur\Mes documents\[A1 de cette feuille]Feuil1'!$A$1

Merci pour votre aide

Salutations

Jean-Marc

 

[@+Thierry]

Bonjour Jean Marc

Je ne peux télécharger de pièces jointes depuis la Station où je me trouve actuellement mais je pense saisir ta question...

Essaies cette macro :

Option Explicit
Sub EcrireFormule()
Const ThePath As String = "=+'C:\Documents and Settings\Administrateur\Mes documents\"
Dim TheFile As String
Dim i As Byte 'Jusqu'à 255, sinon plus Byte mais Integer)

For i = 1 To 10 ' <<<< Adapter ici Ligne 1 à Ligne 10
TheFile = Range("A" & i)
Range("B" & i).Formula = ThePath & "[" & TheFile & "]Feuil1'!$A$1"
Next i

End Sub

Il est sous-entendu que tu as bien le nom du fichier complets en colonne "A" avec l'extention ".xls" sinon l'ajouter dans le code comme ceci :
TheFile = Range("A" & i) & ".xls"

Bon Appétit
@+Thierry

 

[Jean-Marc]

Salut Thierry

Je te remercie, ça marche super bien.

Merci mille fois

@plus Jean-Marc