Vous cherchez un moyen d'intégrer un service Web avec VBA ? Téléchargez le Microsoft Office XP Web Services Toolkit 2.0 ou Microsoft Office 2003 Web Services Toolkit 2.01 non pris en charge
Après l'avoir fait moi-même, je suis allé parcourir cette liste Xmethods pour un service Web public et j'ai trouvé le service Web Random Bushism. Maintenant, mon objectif était de créer une macro qui afficherait une boîte de message contenant un "Bushism" aléatoire, à l'aide de la boîte à outils des services Web.
Quelques notes si vous souhaitez l'essayer vous-même…
1. Si vous ne l'avez pas déjà fait, installez Web Services Toolkit.
2. Ouvrez Excel.
3. Ouvrez l'éditeur Visual Basic (Alt + F11).
4. Cliquez sur la nouvelle option dans votre menu Outils - « Références de services Web… »
5. Dans votre nouvellement ouvert Formulaire de boîte à outils cliquez sur le bouton radio « Web Service URL » et entrez cette adresse : http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Cliquez sur le bouton de recherche.
7. J'espère qu'il a trouvé le service Web Bushism et l'a répertorié dans la case « Résultats de la recherche ». Cochez la case pour sélectionner le service Web et cliquez sur le bouton « Ajouter ».
8. Insérez un module. Votre éditeur devrait maintenant ressembler à ceci :
9. Ajoutez ce code à votre module, saupoudrez de gestion des erreurs si vous le souhaitez, exécutez ou appelez la macro GetRandomBushism :
| 123456789101112 | Sous GetRandomBushism()Dim BushRandom comme nouveau clsws_RandomBushismServiceDim BushStruct As struct_RandomBushismDéfinir BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context, , "Bushisme"Fin du sous-marin |
