[XL-2010] Identifier une connection

Bonjour,

J'ai créé un petit script pour me permettre de récupérer une info sur un site.
Ce script créé une connection à chaque fois que je l'utilise.

J'aimerais pouvoir identifier la connection que je crée (en lui donnant un nom bien spécifique) pour pouvoir la supprimer la la suite. Il semble que le "currency_1" utilisé dans mon script ne serve pas à cela.

L'idée est d'être sûr que je supprimer bien la bonne connection, et non une uatre connection qui aurait pu être créée antérieurement dans le classeur.

Auriez vous une idée?

Merci d'avance !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
 
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;<a href="http://www.**********" target="_blank">http://www.**********</a>, Destination:=Range("$AA$2") _
        )
        .Name = "currency_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
 
 
    End With