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