Suppression des Liaisons

[PierreB]

Bonjour à tous

Voici mon probleme:

Dans un classeur excel j'ai 2 feuilles, une avec des données et la 2éme avec des Graphs. Par macro je voudrait copier dans un nouveau classeur la feuille contenant les Graphs (Jusque là tous va bien). Je voudrait ensuite suprimer la Liaison avec mon classeur d'origine pour eviter que le message 'Voulez vous mettre les valeurs à jours' ne s'affiche à l'ouverture de mon nouveau classeur que je vais envoyer à differents utilisateurs qui n'auront pas le fichier d'origine.

Je desirerais que cette macro puisse fonctionner sous Excel2000.

J'en ai une qui fonctionne avec Excel2003 mais la fonction que j'utilise n'existe pas sous 2000.

Quelqu'un pourrait il m'aider?

Merci d'avance
Pierre

 

[Bernard_XLD]

Bonjour

essaye cela

Dim Liens As Variant
Dim Compteur as Long
Liens = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
For Compteur = 1 To UBound(Liens)
ActiveWorkbook.BreakLink Name:=Liens(Compteur), Type:=xlLinkTypeExcelLinks
Next Compteur

Cordialement, A+

Message édité par: yeahou, à: 19/05/2005 12:54

 

[Bernard_XLD]

Re bonjour

sinon une autre solution

ActiveWorkbook.UpdateLinks = xlUpdateLinksNever

se contentera de désactiver l'affichage du message et la mise à jour des liens, réversible.

Cordialement, A+

 

[PierreB]

Bonjour Yeahou

Je viens d'essayer tes 2 solutions. Effectivement elles fonctionnent mais sous Excel2000 une erreur apparait sur chacune de tes solutions (Erreur d'execution '438', Propriete ou methode non géré par cet objet)

Je te remercie pour ton aide, mais mon probleme persiste toujours sous Excel2000.

Pierre

 

[jacques]

Bonjour,
J’ai excel 2000 et pour supprimer les liaisons j’utilise findlink que j’ai trouvé sur ce site cela marche bien pour moi mais ce n’est peut-être pas tout a fait ce que tu recherche je te donne toujours le lien

https://www.excel-downloads.com/index.php

 

[PierreB]

Bonjour Jacques et bonjour au forum

Je viens d'essayer FINDLINK et effectivement ca marche bien, le probleme c'est que je ne sais pas comment pouvoir l'integrer (sachant que les macros sont proteger) dans mon fichier. Il me faudrait la meem chose mais en macro pour que je puisse le lancer automatiquement, car je ne peux pas demander au utilisateurs qui se servirons de mon fichier d'origine de lancer cette application.

Quelqu'un aurait il une idée à me proposer pour effectuer cette supression de liaison sous Excel2000.

Merci d'avance pour votre aide.
Pierre