Ceci est une ancienne révision du document !

---

Sub VIGILENS_Nom de la requ�te()
'
' 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