Sub ARVA_Nomdelarequète()
'
' Supprimer les données
Call SUPP_ARVA_Nomdelarequè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 ARVA
'MsgBox (CLIENTVIG) Paramètre à l'excution de la requète ARVA
With Worksheets(“SHEET DATA”).QueryTables.Add(Connection:= _
“URL;http://Nom du serveur/vigilens/table.php?vglOutput=XLTable&vglCtrlName=chemin\Nomdelarequète&vglUserName=Nomdel'utilisteurARVA” + DATEVIG + CLIENTVIG _
, Destination:=Sheets(“SHEET DATA”).Range(“$A$1”)) .Name = “NomdelarequèteARVA”
.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_ARVA_Nomdelarequè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