Discussion :

[corwin44]

Bonjour,
j ai un petit souci. je viens de creer deux feuilles excel sur 2 classeurs différents, il y a des lien entre ces deux feuilles cad que je recupére des valeurs d'une feuille vers l'autre feuille.
De plus j ai un bouton qui permet de sauvegarder mes feuilles dans un autre fichier. Mon pb est que ces sauvegardes concervent les liens entre les cellules des différentes feuilles excel.
Or je voudrait qu au moment de ma sauvegarde les valeurs dans les différentes cellules soient figés et qu elle ne se remettent pas à jour à l'ouverture de la feuille ou autres..
est ce que qq sait coment bloquer cette mise à jour au niveau des fichier de sauvegarde?
Merci d'avance

[ouskel'n'or]

Pour supprimer les liaisons, un truc tout fait trouvé sur le forum...

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub LiaisonsModifierSupprimer()
      aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
      If Not IsEmpty(aLinks) Then
           For i = 1 To UBound(aLinks)
              MsgBox "Liaison " & i & ":" & Chr(13) & aLinks(i)
              ActiveWorkbook.ChangeLink aLinks(i), _
                   "d:\xls\classeur2.xls", xlExcelLinks
           Next i
      End If
End Sub

Tu adaptes et tu nous dis...

A+

[Megaxel]

Bonjour!
Tu as aussi la solution de faire une copie "par valeur" des contenus des cellules. Mais ça t'oblige, je crois, à faire une copie cellule par cellule (encore que je ne suis pas sûr, et je n'ai pas trop le temps de tester pour toi).

[ouskel'n'or]

Hello Mongrindsel,

Par la méthode donnée ci-avant, donnée antérieurement par bbil ou Sylkyjen'séplukoi ou jen'sépluki, tu peux supprimer toutes les liaisons d'un classeur d'un seul coup d'un seul
Dommage, je n'ai pas le code pour faire ça sous la main et là, comme je n'ai pas Office, je ne peux pas essayer.

Mais toi tu peux...

Sinon, faudra attendre que l'un de ceux qui savent passent par là...

A+

[SfJ5Rpw8]

ben pour enlever les formules ... une copie "valeurs" semble indiquée..

quelque chose comme :

Code :

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

1
2
Cells.Copy
Cells.PasteSpecial xlPasteValue

[ouskel'n'or]

Zut, m...de et toute cette sorte de choses... j'ai encore lu de travers (liaison entre classeurs au lieu de...)
Désolé Memoilsel...
Merci bbil.

A+

[corwin44]

merci pour votre aide je viens de résoudre mon pb :

Code :

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

1
2
Range("A1:AD350").Copy
Range("A1:AD350").PasteSpecial (xlPasteValues)

merci a tous ++

[Megaxel]

Alors vite: le tag