Voici comment ouvrir un document Excel sous forme de lien hypertexte à partir d'un script javascript puis vbscript.
Il est important que le niveau de sécurité du navigateur autorise l'execution de composants ActiveX.
Ces scripts peuvent être utiles dans un contexte ou seul Internet Explorer est utilisé. (contrainte d'execution ActiveX).
JAVASCRIPT
<script language="javascript" type="text/javascript">
<!--
function OpenExcelDocument(documentUrl)
{
if (!window.ActiveXObject)
{
alert('Attention ! Les paramètres de sécurité de votre poste n\'autorisent pas le lancement de composants ActiveX.');
return;
}
excelApp = new ActiveXObject("Excel.Application");
if(excelApp==null)
{
alert('Attention ! La version d\'Excel requise ne semble pas être installée.');
return;
}
excelApp.WorkBooks.Open(documentUrl);
excelApp.Application.Visible = true;
excelApp.UserControl = true;
}
//-->
</script>
[...]
<a href="javascript:OpenExcelDocument('Fichier.xls');">LIEN</a>
VBSCRIPT
<script language="vbscript" type="text/vbscript">
Sub OpenExcelDoc(strLocation)
On Error Resume Next
Dim objExcel
Set objExcel = CreateObject("Excel.Application")
If Err.number <> 0 Then
MsgBox "Attention ! Les paramètres de sécurité de votre poste n'autorisent pas le lancement de composants ActiveX ou la version d'Excel requise ne semble pas être installée."
Exit Sub
End If
objExcel.WorkBooks.Open strLocation
objExcel.Visible = true
objExcel.UserControl = true
End Sub
</script>
[...]
<a href="#" language="vbscript" onClick="OpenExcelDoc('Fichier.xls')">LIEN</a>