Problème de modification de liaison de fichier

[RV37]

Bonjour le forum,

Je travaille actuellement sur des fichiers excel et je souhaite modifier dans une feuille de mon classeur la liaison externe avec un autre fichier excel par macro. Mais là, ça plante !!!

Voici le texte de ma macro :

Sub Change_Liaison_ENT()

Windows("Programme_Menus.xls").Activate
Sheets("MENU").Select
ChDir "M:\hd\COMMANDES_ENT\Menus\Choix\"
ActiveWorkbooks.ChangeLink Name:=Workbooks("Programme_Menus.XLS").Worksheets("Identification").Range("Q14").Value, _
NewName:=Workbooks("Programme_Menus.XLS").Worksheets("Identification").Range("L14").Value, Type:=xlExcelLinks

End Sub

Pouvez vous m'aider sur ce sujet ??

Merci de vos retours

RV37

 

[lapix]

Re : Problème de modification de liaison de fichier

Bonjour,

tu pourrais essayer aussi en lui donnant directement la formule a mettre dans la cellule:

range("A1").formula="'[M:\hd\COMMANDES_ENT\Menus\Choix\Programme_Menus.xls]Identification'!$L$14"


si on parle de la cellule A1 bien sur

 

[RV37]

Re : Problème de modification de liaison de fichier

Bonsoir Lapix,

Je teste et je te tiens au courant.

Merci

RV37

 

[RV37]

Re : Problème de modification de liaison de fichier

Bonjour Lapix,

J'ai testé ta proposition mais elle ne rpondait pas à ma demande.

A force de recherche, voici la soluce à ma question (pour info) :


Windows("Programme_Menus.xls").Activate
Sheets("ALLEGE").Select
ChDir "M:\hd\COMMANDES_ENT\Menus\BC"
ActiveWorkbook.ChangeLink Name:="m:\hd\COMMANDES_ENT\Menus\BC\" & Workbooks("Programme_Menus.XLS").Worksheets("Identification").Range("Q15").Value, _
NewName:="M:\hd\COMMANDES_ENT\Menus\BC\" & Workbooks("Programme_Menus.XLS").Worksheets("Identification").Range("L15").Value, Type:= _
xlExcelLinks

Merci de ton aide.

Bonne journée

RV37

 

[lapix]

Re : Problème de modification de liaison de fichier

merci pour l'info