En finir une bonne fois avec les liaisons entre classeurs

[kjin]

Bonjour à tous,
Voila, avec votre aide précieuse j'ai maintenant une application qui fonctionne correctement.
Reste un sérieux problème auquel je n'arrive pas à répondre malgré que le sujet ait été mainte fois abordé sur ce forum et la littérature sur le net.
Il s'agit des mises à jour des liaisons entre feuilles de classeurs différents.
Si c'est bien utile parfois, à l'inverse, qqfois c'est pas drôle.
Dans un classeur, j'ai un tableau de synthèse alimenté via d'autre feuilles, que j'enregistre dans un autre classeur, en créant à chaque fois une nouvelle feuille à cet effet, et ...donc création de liaisons!
Le problème est qu'à chaque modification apporté à mon tableau original, évidement, les feuilles précédemment sauvegardées, le sont également et ça c'est pas bon du tout!
J'ai testé toute les solutions proposées sur ce forum et sur le net, rien ne fonctionne, hormis celle de lancer manuellement la macro findlinks.xla avant le rajout d'une nouvelle feuille ce qui suppimme effectivement toutes les liaisons pour ne garder que les valeurs (cette macro plante régulièrement). Comme procédure, c'est pas l'idéal, vu le nombre d'enregistrement que je réalise et que je ne suis pas le seul utilisateur.
J'ai essayer la copie spéciale, ça ne marche pas non plus s'agissant d'un tableau formatté.
Bref, y aurait-il sur ce forum, un spécialiste en la question pour me sortir de ce nervous break down? Je le remercie par avance.
A bientôt
kjin

 

[Pierrot93]

Re : En finir une bonne fois avec les liaisons entre classeurs

Bonjour Kjin

regarde peut être le code ci dessous, si j'ai bien compris :

ActiveWorkbook.BreakLink Name:="classeur2", Type:=xlExcelLinks

supprime les liaisons du classeur actif vers le classeur2, les formules sont remplacées par les valeurs. Ok sur Excel2003, avant ?

a voir si cela peut t'aider...

bon après midi
@

 

[kjin]

Re : En finir une bonne fois avec les liaisons entre classeurs

Bonsoir pierrot93, bonsoir à tous,
J'ai testé ta solution et elle ne fonctionne malheureusement pas.
Comme tu l'indique, l'idéal serait de pouvoir supprimer ces foutues liaisons lors du transfert des données vers la nouvelle feuille et ça c'est pas gagné.
Je pense que ce pb est un classique du genre mais je m'étonne de ne trouver nul part une doc relativement claire à ce sujet.
Encore merci à toi
kjin

 

[kiki29]

Re : En finir une bonne fois avec les liaisons entre classeurs

Jour Bon voir FAQ MS-Excel - Club d'entraide des développeurs francophones

 

[Pierrot93]

Re : En finir une bonne fois avec les liaisons entre classeurs

Bonjour Kjin, kiki

comprends pas chez moi ce code fonctionne, ou alors quelque chose doit m'echapper...

bonne journée.

 

[kjin]

Re : En finir une bonne fois avec les liaisons entre classeurs

Bonjour à tous,
J'ai refait le test, et à priori, pierrot, le code ne marche pas avec la version 2000.
Je connaissais le lien que tu me proposes, kiki, mais çà ne correspond pas à ce que je souhaite faire, à savoir sauvegarder (pour archivage) mon tableau formatté avec les valeurs mais sans les liaisons, ce que fait par ailleurs "findlinks", une macro complémentaire que j'ai trouvé sur un autre fil de ce forum.
Est-il possible d'automatiser le lancement de cette macro sans passer par le menu qui y est intégré, ça je ne sais pas et je n'ai rien trouvé à ce sujet.
Merci à tous deux
kjin

 

[kjin]

Re : En finir une bonne fois avec les liaisons entre classeurs

Bonsoir à tous,
J'ai fini par trouver une solution, pour ceux que ça interresse (version2000), à mettre dans le classeur de réception.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim LCell
Dim FormulaCells As Range
On Error Resume Next
Set FormulaCells = Cells.SpecialCells(xlFormulas).Range("":"")
For Each LCell In FormulaCells
LCell.Value = LCell.Value
Next
End Sub

 

[fred65200]

Re : En finir une bonne fois avec les liaisons entre classeurs

bonsoir kjin
que signifie Range("":"")

merci

 

[kjin]

Re : En finir une bonne fois avec les liaisons entre classeurs

Bonjour Fred, bonjour à tous
Je n'ai pas mis les valeurs dans la plage Range, j' aurai peut être du mettre "ma plage", je m'en excuse.
Cela signifie que je limite la boucle à la plage que je spécifie (sinon bug), le tableau que je sauvegarde contenant toujours le même nb de cellules.
Je n'ai pas trouvé d'autre solution mais celle-ci fonctionne.
A bientôt
kjin

 

[fred65200]

Re : En finir une bonne fois avec les liaisons entre classeurs

merci, je croyais que c'était une finesse méconnue de VBA.