Problème LIAISONS : XLD + fort que crosoft?

[C@thy]

Bonjour chers amis du forum,

dans un classeur (simplifié por l'exemple) j'ai des liaisons vers d'autres classeurs
certaines liaisons se mettent à jour à l'ouverture du classeur résultat, d'autres pas... il faut ouvrir le classeur source pour avoir la màj...

J'ai saisi crosoft du problème en début de semaine, ils planchent toujours sur la question... J'ai eu droit à une assistance en ligne me demandant de faire différentes manips, aucune n'a résolu le problème.

Donc je me penche (pas trop...à cause de mes rhumatismes...) vers vous pour savoir si vous avez rencontré ce comportement.
Il me semble que cela vient de 2010 et du .xlsm, je joins les fichiers.

Si j'obtiens une réponse valable de crosoft je vous en tiendrai informés.

Merci à vous et bonne journée

Bisous bisous

C@thy

 

[C@thy]

Re : Problème LIAISONS : XLD + fort que crosoft?

Oups! j'avais pas vu ta réponse, on s'est croisées.

Je travaille en 2010

Bises

C@thy

 

[chris]

Re : Problème LIAISONS : XLD + fort que crosoft?

Re

Moi aussi mais tes classeurs liés n'ont jamais fréquenté Excel 2003 ?

 

[pierrejean]

Re : Problème LIAISONS : XLD + fort que crosoft?

Re

J'aboutis à ceci pour des noms ayant une portée Feuille , reportés dans un classeur différent sur des feuilles différentes
Par contre ,je n'arrive pas à les mettre en portée Feuille (est-ce nécessaire !!)

Sub test()
f_dep = Array("Feuil1", "Feuil2", "Feuil3")
f_arrivee = Array("Synthese", "Synthese1", "Autre")
For Each nom In ActiveWorkbook.Names
  ref = Replace(Split(nom.RefersTo, "!")(0), "=", "")
  ref1 = Split(nom.RefersTo, "!")(1)
    For n = LBound(f_dep) To UBound(f_arrivee)
      If f_dep(n) = ref Then
         newnom = Split(nom.Name, "!")(1)
         Workbooks("Classeur1.xlsx").Names.Add Name:="=" & newnom, RefersTo:=f_arrivee(n) & "!" & ref1
      End If
    Next
Next
End Sub

 

[pierrejean]

Re : Problème LIAISONS : XLD + fort que crosoft?

Re

C’était pourtant simple !!!

Sub test()
f_dep = Array("Feuil1", "Feuil2", "Feuil3")
f_arrivee = Array("Synthese", "Synthese1", "Autre")
For Each nom In ActiveWorkbook.Names
  ref = Replace(Split(nom.RefersTo, "!")(0), "=", "")
  ref1 = Split(nom.RefersTo, "!")(1)
    For n = LBound(f_dep) To UBound(f_arrivee)
      If f_dep(n) = ref Then
         newnom = f_arrivee(n) & "!" & Split(nom.Name, "!")(1)
         Workbooks("Classeur1.xlsx").Sheets(f_arrivee(n)).Names.Add Name:=newnom, RefersTo:="=" & f_arrivee(n) & "!" & ref1
      End If
    Next
Next
End Sub

 

[chris]

Re : Problème LIAISONS : XLD + fort que crosoft?

Bonjour

Pierrejean : inutile de se compliquer car a priori ta boucle initiale doublée fais le job...