[XL 2011] Supprimer les connexions sous MAC

r1v3r

XLDnaute Nouveau
Bonjour,

Sur différents fichiers excel faisant appel à des Querytables vers Internet, je n'arrive pas à supprimer automatiquement les connexions externes qui ne cessent de gonfler chaque jour.

un exemple de code pour mes requêtes :
Code:
sURL1 = ActiveWorkbook.Sheets("URLs").Range("A6").Value

                    With ActiveWorkbook.Sheets("IMPORT1").QueryTables.Add(Connection:="URL;" & sURL1, _
                    Destination:=Sheets("IMPORT1").Range("$A$1"))
                    .CommandType = 0
                    .Name = "presse1"
                    .FieldNames = True
                    .RowNumbers = False
                    .FillAdjacentFormulas = False
                    .TablesOnlyFromHTML = True
                    .PreserveFormatting = True
                    .RefreshOnFileOpen = False
                    .BackgroundQuery = False
                    .RefreshStyle = xlOverwriteCells
                    .SavePassword = True
                    .SaveData = False
                    .AdjustColumnWidth = True
                    .RefreshPeriod = 0
                    .WebFormatting = xlNone
                    .WebPreFormattedTextToColumns = True
                    .WebConsecutiveDelimitersAsOne = True
                    .WebSingleBlockTextImport = True
                    .WebDisableDateRecognition = True
                    .WebDisableRedirections = True
                    .Refresh BackgroundQuery:=False
                    .Delete
                    End With
J'ai essayé :
Code:
For Each Cx In ActiveWorkbook.Connections
    Cx.Delete
Next Cx
Code:
For i = 1 To ActiveWorkbook.Connections.Count
If ActiveWorkbook.Connections.Count = 0 Then Exit Sub
ActiveWorkbook.Connections.Item(i).Delete
i = i - 1
Next i
Code:
do while activeworkbook.connections.count > 0
activeworkbook.connections.item(activeworkbook.connections.count).delete
loop
Seulement voilà, cela ne fonctionne que sous windows, les connexions se sont pas supprimées et excel renvoie une erreur pour l'expression ".count" sous mac


Il y a forcément des utilisateurs sous mac qui connaissent la bonne syntaxe. :confused:

Je vous remercie :)
 

Discussions similaires


Haut Bas