Discussion :

[frolland46]

Bonjour à tous,

J'ai une macro dans le fichier (A) qui transmet un autre fichier (B) par E-Mail. Cet autre fichier (B) possède des liaisons avev le fichier (A).
Lorsque celui qui reçoit le fichier (B) l'enregistre dans son répertoire personnel, le répertoire dans la source les liaisons vers le fichier (A) se modifient et prend la valeur du répertoire d'enregistrement. Ce qui fausse toutes les liaisions.
Y a t-il un moyen de figer la source des liaisons pour qu'elles ne se modifient pas.
Le même problème se produit si on copie le fichier (B) d'un répertoire à un autre avec l'explorateur.

Merci de votre aide

[ouskel'n'or]

Je sais avoir réglé le problème il y aplusieurs années mais ne me souviens plus comment
A tout hasard, jète un oeil à SaveLinkValues, dans l'aide. C'est ce que je testerais en premier.

[frolland46]

Bonjour

Merci ouskel'n'or, mais l'instruction savelinkvalue sauve la valeur du lien et non le lien comme tel.

Pour ceux intéressés, j'ai trouvé une solution qui me convient que voici:
"client1" est un nom faisant référence à une cellule d'un autre classeur.
Je détermine le libellé du lien existant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub Workbook_Open()
dim vieux as string
vieux = "'" & ActiveWorkbook.Names("client1").Value
vieux = Mid(vieux, 3, Len(vieux) - 2)
vieux = Replace(vieux, "[", "")
vieux = Left(vieux, InStr(1, vieux, "]") - 1)
ActiveWorkbook.ChangeLink Name:=vieux, _
        NewName:="P:\Corporatif\FacturationExcel\ClientsProjets.xls", Type:= _
        xlExcelLinks

À l'ouverture du classeur, peut importe le lien de "client1", le lien s'établit comme je le désire.

Bonne journée