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:11] jacobt |
v8_0_0:designer:menus:accueil:nouvellerequete:restitution:excel:exemplemacro [2020/07/07 17:48] (Version actuelle) jacobt |
||
|---|---|---|---|
| Ligne 1: | Ligne 1: | ||
| - | Sub 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> | + | ====== 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. |
| - | ' Supprimer les données | + | __Tout les mots surlignés sont a modifier selon avec les informations de l'utilisateur.__ |
| - | Call SUPP_VIGILENS_<font inherit/inherit;;inherit;;#f1c40f>Nom de la</font><font inherit/inherit;;inherit;;#f1c40f>requète</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>() \\ |
| - | '\\ | + | ' \\ |
| - | Dim DATEVIG As Variant\\ | + | ' 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 | Dim CLIENTVIG As Variant | ||
| - | DATEVIG = "&DATE=" + Worksheets("<font inherit/inherit;;#ffffff;;#e74c3c>SHEET1</font>").Range("$C$1").Text | + | 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 \\ | |
| - | 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 (DATEVIG) Paramètre à l'excution de la requète VIGILENS \\ | ||
| 'MsgBox (CLIENTVIG) 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:= _ | + | 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 _ \\ | |
| - | "URL;[[http://Nom|http://Nom]] du serveur/vigilens/table.php?vglOutput=XLTable&vglCtrlName=<font inherit/inherit;;inherit;;#f1c40f>chemin</font><font inherit/inherit;;inherit;;#f1c40f>\Nom de la</font><font inherit/inherit;;inherit;;#f1c40f>requète</font>&vglUserName=<font inherit/inherit;;#ffffff;;#3498db>Nom de</font><font inherit/inherit;;inherit;;#3498db>l'utilisteur</font><font inherit/inherit;;inherit;;#3498db></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</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 \\ | |
| - | , Destination:=Sheets("<font inherit/inherit;;#ffffff;;#16a085>SHEET DATA</font>").Range("$A$1")) .Name = "<font inherit/inherit;;inherit;;#f1c40f>Nom de la</font><font inherit/inherit;;inherit;;#f1c40f>requète</font><font inherit/inherit;;inherit;;#f1c40f></font><font inherit/inherit;;inherit;;#f1c40f>Vigilens</font>" | + | .RowNumbers = False \\ |
| - | + | .FillAdjacentFormulas = False \\ | |
| - | .FieldNames = True | + | .PreserveFormatting = True \\ |
| - | + | .RefreshOnFileOpen = False \\ | |
| - | .RowNumbers = False | + | .BackgroundQuery = True \\ |
| - | + | .RefreshStyle = xlInsertDeleteCells \\ | |
| - | .FillAdjacentFormulas = False | + | .SavePassword = False \\ |
| - | + | .SaveData = True \\ | |
| - | .PreserveFormatting = True | + | .AdjustColumnWidth = True \\ |
| - | + | .RefreshPeriod = 0 \\ | |
| - | .RefreshOnFileOpen = False | + | .WebSelectionType = xlEntirePage \\ |
| - | + | .WebFormatting = xlWebFormattingNone \\ | |
| - | .BackgroundQuery = True | + | .WebPreFormattedTextToColumns = True \\ |
| - | + | .WebConsecutiveDelimitersAsOne = True \\ | |
| - | .RefreshStyle = xlInsertDeleteCells | + | .WebSingleBlockTextImport = False \\ |
| - | + | .WebDisableDateRecognition = False \\ | |
| - | .SavePassword = False | + | .WebDisableRedirections = False \\ |
| - | + | .Refresh BackgroundQuery:=False \\ | |
| - | .SaveData = True | + | End With \\ |
| - | + | ||
| - | .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 | End Sub | ||
| - | Sub SUPP_VIGILENS_<font inherit/inherit;;inherit;;#f1c40f>Nom de 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\\ |
| - | ' | + | ' \\ |
| - | + | On Error Resume Next \\ | |
| - | On Error Resume Next | + | With Worksheets("<font inherit/inherit;;#ffffff;;#16a085>SHEET DATA</font>") \\ |
| - | + | .QueryTable.Delete \\ | |
| - | With Worksheets("<font inherit/inherit;;#ffffff;;#16a085>SHEET DATA</font>") | + | .Columns("A:XX").ClearContents \\ |
| - | + | End With \\ | |
| - | .QueryTable.Delete | + | |
| - | + | ||
| - | .Columns("A:XX").ClearContents | + | |
| - | + | ||
| - | End With | + | |
| End Sub | End Sub | ||