Bonsoir
J'ai un fichier qui a beaucoup des liaisons avec d'autres.
Je souhaite supprimer définitivement ces liaisons.
Avec Données / Liaisons, cela ne fonctionne pas
Je souhaite avoir la procédure en VBA
Merci
Michel
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
PatLry
Bonjour Michel, pour le même problème, j'ai adopté une xla trouvée sur sur groupe elle est en zip ici : http://cjoint.com/?eDihv1c5WI à mettre avec les xla, activer dans Outils>MacroComplémentaires à+ Pat
"Michel" a écrit dans le message de news:
Bonsoir J'ai un fichier qui a beaucoup des liaisons avec d'autres. Je souhaite supprimer définitivement ces liaisons. Avec Données / Liaisons, cela ne fonctionne pas Je souhaite avoir la procédure en VBA Merci Michel
Bonjour Michel,
pour le même problème, j'ai adopté une xla trouvée sur sur groupe
elle est en zip ici : http://cjoint.com/?eDihv1c5WI
à mettre avec les xla, activer dans Outils>MacroComplémentaires
à+
Pat
"Michel" <m.hirt@club-internet.fr> a écrit dans le message de
news:eX8b8lCTFHA.2768@tk2msftngp13.phx.gbl...
Bonsoir
J'ai un fichier qui a beaucoup des liaisons avec d'autres.
Je souhaite supprimer définitivement ces liaisons.
Avec Données / Liaisons, cela ne fonctionne pas
Je souhaite avoir la procédure en VBA
Merci
Michel
Bonjour Michel, pour le même problème, j'ai adopté une xla trouvée sur sur groupe elle est en zip ici : http://cjoint.com/?eDihv1c5WI à mettre avec les xla, activer dans Outils>MacroComplémentaires à+ Pat
"Michel" a écrit dans le message de news:
Bonsoir J'ai un fichier qui a beaucoup des liaisons avec d'autres. Je souhaite supprimer définitivement ces liaisons. Avec Données / Liaisons, cela ne fonctionne pas Je souhaite avoir la procédure en VBA Merci Michel
Steph_D
Bonjour,
Je m'étais fait cette macro pour supprimer les liaisons d'un classeur. A adapter au niveau de la plage à tester. Je remplace la formule de liaison par la valeur actuelle de la cellule.
Steph D.
Option Explicit Sub SupprimerLiaisonsExternes() ' Steph D. ' 20041123 13:00 Dim MaFeuille As Worksheet Dim MaCellule As Range For Each MaFeuille In ActiveWorkbook.Sheets For Each MaCellule In MaFeuille.Range("A1:BJ500") 'Plage en dur If MaCellule.HasFormula = True And InStr(1, MaCellule.Formula, "[", 0) > 0 Then 'si la cellule est de type formule et elle contient un [ signifiant un lien externe MaCellule.Formula = MaCellule.Value 'remplace la formule par la valeur End If Next MaCellule Next MaFeuille End Sub
Bonjour,
Je m'étais fait cette macro pour supprimer les liaisons d'un classeur. A
adapter au niveau de la plage à tester.
Je remplace la formule de liaison par la valeur actuelle de la cellule.
Steph D.
Option Explicit
Sub SupprimerLiaisonsExternes()
' Steph D.
' 20041123 13:00
Dim MaFeuille As Worksheet
Dim MaCellule As Range
For Each MaFeuille In ActiveWorkbook.Sheets
For Each MaCellule In MaFeuille.Range("A1:BJ500") 'Plage en dur
If MaCellule.HasFormula = True And InStr(1, MaCellule.Formula, "[",
0) > 0 Then
'si la cellule est de type formule et elle contient un [ signifiant
un lien externe
MaCellule.Formula = MaCellule.Value 'remplace la formule par la
valeur
End If
Next MaCellule
Next MaFeuille
End Sub
Je m'étais fait cette macro pour supprimer les liaisons d'un classeur. A adapter au niveau de la plage à tester. Je remplace la formule de liaison par la valeur actuelle de la cellule.
Steph D.
Option Explicit Sub SupprimerLiaisonsExternes() ' Steph D. ' 20041123 13:00 Dim MaFeuille As Worksheet Dim MaCellule As Range For Each MaFeuille In ActiveWorkbook.Sheets For Each MaCellule In MaFeuille.Range("A1:BJ500") 'Plage en dur If MaCellule.HasFormula = True And InStr(1, MaCellule.Formula, "[", 0) > 0 Then 'si la cellule est de type formule et elle contient un [ signifiant un lien externe MaCellule.Formula = MaCellule.Value 'remplace la formule par la valeur End If Next MaCellule Next MaFeuille End Sub
