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 :
- <HTML>
- <head>
- </head>
- <body>
- <script language=VBSCRIPT>
- sub Bouton1_OnClick()
- Dim ExcelSheet
- Set ExcelSheet = CreateObject("Excel.Sheet" )
- ' Rend Excel visible par l'intermédiaire de l'objet Application.
- ExcelSheet.Application.Visible = True
- ' Place du texte dans la première cellule de la feuille.
- ExcelSheet.Cells(1,1).Value = "Colonne A, ligne 1"
- ' Enregistre la feuille.
- ExcelSheet.SaveAs "C:\DOCS\TEST.XLS"
- end sub
- </script>
- <FORM>
- <INPUT NAME="Bouton1" TYPE="BUTTON" VALUE="Cliquez ici">
- </FORM>
- </body>
- </HTML>
|
