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 17:19]
jacobt
v8_0_0:designer:menus:accueil:nouvellerequete:restitution:excel:exemplemacro [2020/07/07 17:48] (Version actuelle)
jacobt
Ligne 1: Ligne 1:
 ====== Exemple de macro ====== ====== Exemple de macro ======
-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> ​\\ + 
 +Exemple de Macro qui permet directement depuis excel de supprimer les données puis de recharger des données réactualisées. 
 + 
 +__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>​() \\ 
 ' \\  ' \\ 
 ' Supprimer les données \\  ' Supprimer les données \\ 
Ligne 15: 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 du serveur/​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 39: 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\\ ​