Ceci est une ancienne révision du document !

---

Sub VIGILENS_<font inherit/inherit;;inherit;;#f1c40f>Nom de la</font><font inherit/inherit;;inherit;;#f1c40f>requète</font><font inherit/inherit;;inherit;;#f1c40f>()</font>

'

' Supprimer les données

Call SUPP_VIGILENS_Nom de la requète
'
Dim DATEVIG As Variant
Dim CLIENTVIG As Variant

DATEVIG = “&DATE=” + Worksheets(“SHEET1”).Range(“$C$1”).Text CLIENTVIG = “&CLIENT=” + Worksheets(“SHEET1”).Range(“$C$2”).Text 'MsgBox (DATEVIG) Paramètre à l'excution de la requète VIGILENS 'MsgBox (CLIENTVIG) Paramètre à l'excution de la requète VIGILENS

With Worksheets(“SHEET DATA”).QueryTables.Add(Connection:= _ “URL;http://Nom du serveur/vigilens/table.php?vglOutput=XLTable&vglCtrlName=chemin\Nom de la requète&vglUserName=Nom de l'utilisteur VIGILENS” + DATEVIG + CLIENTVIG _ , Destination:=Sheets(“SHEET DATA”).Range(“$A$1”)) .Name = “Nom de la requète Vigilens” .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 End Sub

Sub SUPP_VIGILENS_Nom de la requète()
'
'cette Macro supprime les données
' On Error Resume Next With Worksheets(“SHEET DATA”) .QueryTable.Delete .Columns(“A:XX”).ClearContents End With End Sub