====== Exemple de macro ======

Exemple de Macro qui permet directement depuis excel de supprimer les données puis de recharger des données réactualisées.

__Tout les mots surlignés sont a modifier selon avec les informations de l'utilisateur.__

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>() \\ 
' \\ 
' Supprimer les données \\ 
Call SUPP_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> \\ 
' \\ 
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://N<font inherit/inherit;;#ffffff;;#3498db>om du serveur</font>/vigilens/table.php?vglOutput=XLTable&vglCtrlName=<font inherit/inherit;;inherit;;#f1c40f>chemin</font><font inherit/inherit;;inherit;;#f1c40f>\</font><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>&vglUserName=<font inherit/inherit;;#ffffff;;#3498db>Nomdel'utilisteurVIGILENS</font>" + DATEVIG + CLIENTVIG _ \\ 
, Destination:=Sheets("<font inherit/inherit;;#ffffff;;#16a085>SHEET DATA</font>").Range("$A$1")) .Name = "<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>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</font><font inherit/inherit;;inherit;;#f1c40f>de</font><font inherit/inherit;;inherit;;#f1c40f>la</font><font inherit/inherit;;inherit;;#f1c40f>requète</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