Liste des propriétées d'un "Nom" avec VBA

Bonjour à tous,

Contexte:

Je charge des données à partir d'une connexion internet

ActiveSheet.QueryTables.Add(Connection:= "TEXT;http://www.stoxx.com/download/historical_data/h_sxxp.txt", Destination:=Range("Stoxx_Europe_600_début"))

Problème:

A chaque connexion un nouveau "nom" est crée commençant par "DonnéesExternes_xx" qui délimite la zone de téléchargement.

Ne souhaitant pas rafraichir la connexion, je souhaite supprimer ce nom afin de ne pas polluer ma liste de noms qui m'est fort utile. J'ai donc écris la macro suivante:

Sub test1()
Dim NOMS As Name
Dim DEBUT As String
DEBUT = "DonnéesExternes"
    For Each NOMS In ActiveWorkbook.Names
        If Left$(NOMS.Name, 15) = DEBUT Then
            NOMS.Delete
        End If
    Next NOMS
End Sub

La macro fonctionne très bien avec n'importe quel autre "nom" que je crée mais pas avec les "noms" créés par la connexion.

Question:

Est-il possible d'extraire une liste de toute les propriétés des "noms" d'un classeur afin d'en vérifier le contenu exact? En effet je soupçonne que les "noms" est plus particulièrement le champ .name, créés par la connexion internet soient différents de ceux qui apparaissent dans la liste.

Enfin étant novice avec VBA, si les pro qui participent à ce forum ont d'autres suggestions, j'en serai ravi.

D'avance merci pour vos contributions

Cordialement

Pour info voila comment on obtient l'information:

Sub NameProperties()
  Dim nm As Name
  Set nm = Names("test001")

  On Error Resume Next
  With nm
    Sheets("Feuil1").Range("A1") = "Category: " & nm.Category
    Sheets("Feuil1").Range("A2") = "CategoryLocal: " & nm.CategoryLocal
    Sheets("Feuil1").Range("A3") = "Creator: " & nm.Creator
    Sheets("Feuil1").Range("A4") = "Comment: " & nm.Comment
    Sheets("Feuil1").Range("A5") = "Index: " & nm.Index
    Sheets("Feuil1").Range("A6") = "MacroType: " & nm.MacroType
    Sheets("Feuil1").Range("A7") = "Name: " & nm.Name
    Sheets("Feuil1").Range("A8") = "NameLocal: " & nm.NameLocal
    Sheets("Feuil1").Range("A9") = "Parent: " & nm.Parent
    Sheets("Feuil1").Range("A10") = "RefersTo: " & nm.RefersTo
    Sheets("Feuil1").Range("A11") = "RefersToLocal: " & nm.RefersToLocal
    Sheets("Feuil1").Range("A12") = "RefersToR1C1: " & nm.RefersToR1C1
    Sheets("Feuil1").Range("A13") = "RefersToR1C1Local: " & nm.RefersToR1C1Local
    Sheets("Feuil1").Range("A14") = "RefersToRange: " & nm.RefersToRange
    Sheets("Feuil1").Range("A15") = "ShortcutKey: " & nm.ShortcutKey 
    Sheets("Feuil1").Range("A16") = "ValidWorkbookParameter: " & nm.ValidWorkbookParameter
    Sheets("Feuil1").Range("A17") = "Value: " & nm.Value
    Sheets("Feuil1").Range("A18") = "Visible: " & nm.Visible
    Sheets("Feuil1").Range("A19") = "WorkbookParameter: " & nm.WorkbookParameter
  End With
End Sub

A Bientot