Code pour liaison externe

Bonsoir

j'ai un fichier Excel qui contient une centaine de fonctions qui font référence à un fichier externe et de cette façon:

='D:\LIVRES LEGAUX\[Liasse.xlsx]Actif'!$C$14
.
.
.
='D:\LIVRES LEGAUX\[Liasse.xlsx]Passif'!$C$13
.
.
.
='D:\LIVRES LEGAUX\[Liasse.xlsx]CPC'!$F$25
.
.
.

Mon soucis est que à chaque fois il me faut renommer le fichier source en Liasse.xlsx et le mettre dans le dossier LIVRES LEGAUX dans la racine D:\

Mon objectif est de trouver une macro qui me fait référence à un fichier source sans être obligé de le renommer en Liasse.xlsx et le mettre dans le dossier LIVRES LEGAUX dans la racine D:\

Une âme charitable peut m'aider Svp

Et merci d'avance

une aide éventuellement sur ce post

https://www.developpez.net/forums/d8...anger-liaison/

Bonjour,

Tu peux utiliser Application.FileDialog() pour récupérer le chemin et nom du fichier :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Dossier()   Dim Chemin As String   With Application.FileDialog(1) If .Show = -1 Then Chemin = .SelectedItems(1) End With   MsgBox Chemin   End Sub

---