modification liaison

[mumuriton]

Bonjour à tous et toutes,

J'ai un deuxième soucis (voilà pk je fais une 2ème discussion) qui n'est pas grave mais je cherche aussi la solution.
Comment faire disparaître une liaison d'un fichier à l'autre sachant que je l'ai déjà supprimé mais qu'elle ne veut pas et en plus, le fichier de liaison n'existe plus.
J'ai beau rompre la liaison, elle reste toujours.
Que faire?
Merci
Murielle

 

[DoubleZero]

Bonjour, mumuriton, le Forum,

Une solution, peut-être, ici.

A bientôt 🙂

 

[mumuriton]

bonsoir,

Ne fonctionne pas.
Une autre idée.
Merci

 

[JCGL]

Bonjour à tous,
Salut 00,

Cette liaison doit servir à un Nom Défini.
Supprime le Nom Défini et je pense que tu pourras supprimer la liaison.

Bises ++ à ma très chère G.
A+ à tous

 

[mumuriton]

Bonjour JCGL,

Là je suis perdue, je ne sais pas ce que c'est le Nom Défini.
Peux tu m'aider sur la procédure à suivre.
Merci
Murielle

 

[JCGL]

Bonjour à tous,

Je ne connais pas ta version Excel mais cherche Gestionnaire de Noms

A+ à tous

 

[JCGL]

Bonjour à tous,

Si par hasard les Noms Définis étaient masqués

Option Explicit
Sub ChercheNoms()
Dim n As Name
For Each n In ThisWorkbook.Names 'recherche dans le fichier contenant la macro
n.Visible = True 'au cas où le nom est masqué
MsgBox n.Name
Next
End Sub

A+ à tous

 

[mumuriton]

bonjour,
j'ai trouvé mais effectivement les noms sont cachés.
Je ne connais pas le visual basic.
Peux tu m'expliquer la marche à suivre?
Merci
murielle

 

[DoubleZero]

Bonjour à toutes et à tous, bises à JCGL 😀,

mumuriton, le code de JCGL doit être logé dans un module standard :

Bon courage et à bientôt 🙂

 

[JM27]

bonsoir
pour supprimer les noms cachés

Sub SupprimerNomsCachés()
        Dim n As Name
        MsgBox "Il y a " & ActiveWorkbook.Names.Count & " noms dans le classeur"
        For Each n In ActiveWorkbook.Names
            If Not n.Visible Then
              Reponse = MsgBox(n.Name & " est un Nom caché. Voulez vous le supprimer?", vbYesNo)
              If Reponse = vbYes Then n.Delete Else MsgBox n.Name & " n'a pas été supprimé"
                    n.Delete
              End If
        Next n
End Sub

a insérer dans un module comme DoubleZéro l'a indiqué et lancer la macro