Ceci est une ancienne révision du document !

---

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

'

' Supprimer les données

Call SUPP_VIGILENS_<font inherit/inherit;;inherit;;#f1c40f>Nom de</font><font inherit/inherit;;inherit;;#f1c40f>la</font><font inherit/inherit;;inherit;;#f1c40f>requète</font>
'
Dim DATEVIG As Variant
Dim CLIENTVIG As Variant

DATEVIG = “&DATE=” + Worksheets(“<font inherit/inherit;;#ffffff;;#e74c3c>SHEET1</font>”).Range(“$C$1”).Text

CLIENTVIG = “&CLIENT=” + Worksheets(“<font inherit/inherit;;#ffffff;;#e74c3c>SHEET1</font>”).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(“<font inherit/inherit;;#ffffff;;#16a085>SHEET DATA</font>”).QueryTables.Add(Connection:= _

“URL;http://Nom du serveur/vigilens/table.php?vglOutput=XLTable&vglCtrlName=<font inherit/inherit;;inherit;;#f1c40f>chemin</font><font inherit/inherit;;inherit;;#f1c40f>\Nom de</font><font inherit/inherit;;inherit;;#f1c40f>la</font><font inherit/inherit;;inherit;;#f1c40f>requète</font>&vglUserName=<font inherit/inherit;;#ffffff;;#3498db>Nom</font><font inherit/inherit;;inherit;;#3498db>del'utilisteur</font><font inherit/inherit;;inherit;;#3498db>VIGILENS</font>” + DATEVIG + CLIENTVIG _

, Destination:=Sheets(“<font inherit/inherit;;#ffffff;;#16a085>SHEET DATA</font>”).Range(“$A$1”)) .Name = “<font inherit/inherit;;inherit;;#f1c40f>Nom de</font><font inherit/inherit;;inherit;;#f1c40f>la</font><font inherit/inherit;;inherit;;#f1c40f>requète</font><font inherit/inherit;;inherit;;#f1c40f>Vigilens</font>”

.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_<font inherit/inherit;;inherit;;#f1c40f>Nom de</font><font inherit/inherit;;inherit;;#f1c40f>la</font><font inherit/inherit;;inherit;;#f1c40f>requète</font><font inherit/inherit;;inherit;;#f1c40f>()</font>
'
'cette Macro supprime les données
'

On Error Resume Next

With Worksheets(“<font inherit/inherit;;#ffffff;;#16a085>SHEET DATA</font>”)

.QueryTable.Delete

.Columns(“A:XX”).ClearContents

End With

End Sub