Ceci est une ancienne révision du document !

---

 Sub VIGILENS_<font inherit/inherit;;#e74c3c;;inherit>Nom de la requète()</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