VBA supprimer un lien vers un fichier DAT [Résolu/Fermé]

Signaler
Messages postés
171
Date d'inscription
mardi 26 janvier 2010
Statut
Membre
Dernière intervention
18 mars 2012
-
Messages postés
171
Date d'inscription
mardi 26 janvier 2010
Statut
Membre
Dernière intervention
18 mars 2012
-
Bonjour,
J'ai une macro qui à chaque ouverture du fichier excel crée des liens vers des fichiers .dat avec ".QueryTables.Add".
Donnant toujours le même nom au lien, je pensais que celui-ci écrasait l'ancien. Malheureusement la macro rajoute un chiffre après le nom.
Du coup je me trouve avec 12 feuilles excel comportant chacune plus de 400 liens (dont 355 sont obsolètes) et un fichier à plusieurs méga...

Je voudrais:
1. Trouver les nom des liens crée
2. les supprimer

J'ai essayé avec "BreakLink", "LinkSources", "Hyperlinks.Name"
Mais il ne trouve pas de lien

Est-ce que vous avez une autre idée?
Merci d'avance

1 réponse

Messages postés
171
Date d'inscription
mardi 26 janvier 2010
Statut
Membre
Dernière intervention
18 mars 2012
5
J'ai trouvé:

Sub supprimer_noms()
nbre = ThisWorkbook.Names.Count
If nbre > 0 Then
For cptr = 1 To nbre
ThisWorkbook.Names(1).Delete
Next
End If
End Sub