Ouvrir Excel ou Word depuis page Web

Ouvrir Excel ou Word depuis page Web - VB/VBA/VBS - Programmation

Marsh Posté le 16-08-2003 à 10:07:48    

Je voudrais ouvrir word en cliquant sur un bouton d'une page web. Apres des recherches, j'ai trouvé pas mal de code mais aucun ne fonctionne. Quand je clique sur le bouton, je vois bien que le PC travaille pendant quelques secondes mais il ne se passe rien.
 
Le code:
 

Code :
  1. <HTML>
  2. <head>
  3. </head>
  5. <body>
  7. <script language=VBSCRIPT>
  8. sub Bouton1_OnClick()
  9. Dim ExcelSheet
  10. Set ExcelSheet = CreateObject("Excel.Sheet" )
  11. ' Rend Excel visible par l'intermédiaire de l'objet Application.
  12. ExcelSheet.Application.Visible = True
  13. ' Place du texte dans la première cellule de la feuille.
  14. ExcelSheet.Cells(1,1).Value = "Colonne A, ligne 1"
  15. ' Enregistre la feuille.
  16. ExcelSheet.SaveAs "C:\DOCS\TEST.XLS"
  17. end sub
  18. </script>
  20. <FORM>
  21. <INPUT NAME="Bouton1" TYPE="BUTTON" VALUE="Cliquez ici">
  22. </FORM>
  24. </body>
  25. </HTML>

Reply

Marsh Posté le 16-08-2003 à 10:07:48   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed