[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 :)
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas