liaison avec un fichier "variable"

  • Initiateur de la discussion Initiateur de la discussion Thièry MICHEZ
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

T

Thièry MICHEZ

Guest
Bonjour,

J’ai un gros problème de liaison avec des fichiers « variables ».

Comment, dans une feuille de calcul (FC1) d’un classeur (CL1), importer des données d’une autre feuille de calcul (FC2) d’un classeur (CLn)dont le nom dépend de la valeur d’une cellule de (FC1)


(FC1) a b c d e f g
1 variable
2
3
4 alfred "c:\alfred\variable[FC2]C4"
5 marie "c:\marie\variable[FC2]C4"
6 robert "c:\robert\variable[FC2]C4"
7 marcel
8 liliane
9 …
10 …
11 …
12 …
13 …
… …
n …


En fait, je cherche, en C4 à renvoyer la valeur en provenance de C:\(A4)\(B1[FC1]C4) et ainsi de suite jusqu’à Cn. Est-ce clair ?
Les répertoires, sous-répertoires, fichiers et données ainsi recherchés sont censés exister.

Avez-vous une idée. Merci à tous.

Thiéry.
 
Salut Thiéry, le Forum

C'est une solution simple en VBA, il suffit de faire écrire la formule qui construira le chemin du Fichier et son Nom....

Exemple

Option Explicit
Sub CreateVariableLink()
Dim FullPath As String, Criteria As String, fichier As String

Criteria = Sheets("Cible").Range("A1") '>>> là où est ton nom variable...

FullPath = "C:\" & Criteria & "\Variable\"
fichier = "Source" & Criteria & ".xls" '>>>exemple "SourceAlfred.xls"...

With Sheets("Cible")
.Range("B1").Formula = "='" & FullPath & "[" & fichier & "]" & "Source'!C4"
End With

End Sub


Par contre tu noteras que j'emploie des termes clairs "Source" / "Cible" car tes explications sont lourdes à suivre... "FC1" , "CL1" etc...

Dans le pack 1 de mes démos tu as un exemple concrêt avec le fichier "USFControlFormules"....

Bon Travail
Bonne Soirée
@+Thierry
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Retour