meta données pour cette page
Différences
Ci-dessous, les différences entre deux révisions de la page.
| Les deux révisions précédentes Révision précédente Prochaine révision | Révision précédente | ||
|
v8_0_0:designer:menus:accueil:nouvellerequete:restitution:excel:exemplemacro [2020/07/07 17:38] jacobt |
v8_0_0:designer:menus:accueil:nouvellerequete:restitution:excel:exemplemacro [2020/07/07 17:48] (Version actuelle) jacobt |
||
|---|---|---|---|
| Ligne 5: | Ligne 5: | ||
| __Tout les mots surlignés sont a modifier selon avec les informations de l'utilisateur.__ | __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><font inherit/inherit;;inherit;;#f1c40f>()</font> \\ | + | 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 \\ | ' Supprimer les données \\ | ||
| Ligne 20: | Ligne 20: | ||
| With Worksheets("<font inherit/inherit;;#ffffff;;#16a085>SHEET DATA</font>").QueryTables.Add(Connection:= _ \\ | With Worksheets("<font inherit/inherit;;#ffffff;;#16a085>SHEET DATA</font>").QueryTables.Add(Connection:= _ \\ | ||
| - | "URL;http://Nom <font inherit/inherit;;#ffffff;;#3498db>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 _ \\ | + | "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>" \\ | , 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 \\ | .FieldNames = True \\ | ||
| Ligne 44: | Ligne 44: | ||
| End Sub | 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><font inherit/inherit;;inherit;;#f1c40f>()</font>\\ | + | 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\\ | 'cette Macro supprime les données\\ | ||
| Ligne 54: | Ligne 54: | ||
| End With \\ | End With \\ | ||
| End Sub | End Sub | ||
| - | |||
| - | |||
| - | 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 | ||
| - | | ||