meta données pour cette page
  •  

Différences

Ci-dessous, les différences entre deux révisions de la page.

Lien vers cette vue comparative

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 16:56]
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_Nom de la requ�te()\\ +====== Exemple ​de macro ======
-'\\ +
-' Supprimer les donn�es\\ +
-Call SUPP_VIGILENS_Nom de la requ�te\\ +
-'\\ +
-Dim DATEVIG As Variant\\ +
-Dim CLIENTVIG As Variant\\ +
-<​code>​ +
-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+
  
-</​code>​+Exemple de Macro qui permet directement depuis excel de supprimer les données puis de recharger des données réactualisées.
  
-<​code>​ +__Tout les mots surlignés sont a modifier selon avec les informations ​de l'utilisateur.__
-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\\+
  
-</code>+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
  
-End Sub+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 ​\\  
-Sub SUPP_VIGILENS_Nom de la requ�te()\\ +'MsgBox (CLIENTVIG) Paramètre à l'excution de la requète VIGILENS
-'\\ +
-'cette Macro supprime les donn�es\\ +
-'+
  
-<​code>​ +With Worksheets("​<font inherit/​inherit;;#​ffffff;;#​16a085>​SHEET DATA</​font>​").QueryTables.Add(Connection:​= _ \\  
- On Error Resume Next\\ +"​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 _ \\  
-With Worksheets("​SHEET DATA"​)\\ +, 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>"​ \\  
-    .QueryTable.Delete\\ +.FieldNames = True \\  
-    .Columns("A:XX").ClearContents\\ +.RowNumbers = False \\  
-End With\\ +.FillAdjacentFormulas = False \\  
- +.PreserveFormatting = True \\  
-</​code>​+.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 End Sub