Bonjour,
j'ai une page HTML (Qui accède à une base de données en l'asp....)
Et qui me donne une liste de fichiers ACCESS
J'aimerais, quant je clique sur le lien de ce fichier
que ce fichier s'ouvre avec MS-ACCES de mon PC(de manière toute simple)

Ce que j'ai à l'heure actuelle est un peu bizare !
Au clic de mon lien :
- il ouvre une nouvelle fenêtre internet Iexplorer(contenant le lien du fichier)
- il me propose bien le popup de l'ouverture/sauvegarde du fichier .mdb
je choisi "Ouvrir",par la suite :
-dans un popup windows : j'ai le message suivant
L'éditeur n'a pas pu être vérifié,voulez-vous vraiment exécuter ce logiciel ?
je choisi "Exécuter"
- Il réouverture,le menu d'ACCESS "user/pwd" dans ACCES
je choisi OK
- Et là, seulement, il ouvre l'application ACCESS en local

Merci pour votre aide
voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
 
<html>
 
<head>
 
<title></title>
 
 
<script language="javascript">
 
function lancer(chemin)
{
var ExcelApp = new ActiveXObject("Excel.Application");
ExcelApp.Application.Visible = true;
ExcelApp.Workbooks.Open(chemin);
}
 
function lancer2(fic)
{
w = new ActiveXObject("WScript.Shell");
w.run ('start "'+fic+'"');
 } 
 
function lancer3(fic)
{
var xlapp = Server.Createobject("Excel.Application") 
xlapp.Application.Visible = true
xlapp.workbooks.Open(fic) 
}
function exec (cmd) { new ActiveXObject ("WScript.Shell").run (cmd) } 
 
</script>
 
</head>
 
<body topmargin="0" leftmargin="50" rightmargin="50" background="bck.jpg" >
 
<!--
<div >
<a href onclick="javascript:lancer3('c:\\Inetpub\\wwwroot\\applications\\a.xls')">LANCER</a>
</div>
-->
 
<div>
<center>
    <table border="0"height="100">
      <tr>
        <td width="100" valign="middle" align="center" ><a style="CURSOR:pointer" onClick="javascript:document.location.href='select_access.asp';"><img  src="ACCESS.PNG"  width=70 height="70"></a><td>
        <td width="100" valign="middle" align="center" ><a style="CURSOR:pointer" onClick="javascript:document.location.href='select_asp.asp';"><img  src="IEXPLORER.PNG"  width=70 height="70"></a><td>
        <td width="100" valign="middle" align="center" ><a style="CURSOR:pointer" onClick="javascript:document.location.href='select_xls.asp';"><img  src="EXCEL.PNG"  width=70 height="70"></a><td>
<!--        <td width="30"</td><td width="100" valign="middle" align="center" ><a style="CURSOR:pointer" onClick="javascript:document.location.href='users.asp';"><img  src="USER_COMPUTER.PNG"  width=70 height="70"></a><td>-->
    </tr>
    </table>
</center>
</div>
 
<%
Dim conn
Dim rs
 
dim my_name,my_path,my_file,my_ico
my_name=""
my_path=""
my_file=""
my_ico=""
 
Set conn = Server.CreateObject("ADODB.Connection")
'conn.open "lst_prog","",""
conn.Open "PROVIDER=MSDASQL;dsn=lst_prog;uid=;pwd=;"
 
 
'
' pour les applications ACCESS
'
 
sql = "SELECT * FROM pgm where pgm_group in ('mdb','mdb_interne') order by pgm_order asc;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3 
If Not rs.eof Then
        rs.MoveFirst
%>
	<table border="0" cellspacing="0" >
	  <thead>
	    <tr>
	      <th width="110"  border="0" ><img border="0" src="access.png"  width="50" height="50"></th>
	      <th border="0" ></th>
	      <th width="160" align="LEFT" <strong><font face="Arial" color="#000000" size="2">Nom</font></strong></th>
	      <th width="32"  align="LEFT" <strong><font face="Arial" color="#000000" size="2"></font></strong></th>
	      <th width="200" align="LEFT" <strong><font face="Arial" color="#000000" size="2">Fichier</font></strong></th>
	      <th width="32"  align="LEFT" <strong><font face="Arial" color="#000000" size="2"></font></strong></th>
	      <th width="250" align="LEFT" <strong><font face="Arial" color="#000000" size="2">Emplacement</font></strong></th>
	    </tr>
	  </thead>
<%
        On Error Resume Next
        Do while Not rs.eof
                my_name=rs("pgm_name")
                my_path=rs("pgm_path")
                my_file=rs("pgm_file_name")
                my_ico =rs("ico_name")
        rs.MoveNext
%>
	<tr valign="TOP">
	      <td ></td>
	      <td  align="LEFT" > <img border="0" src=<%=my_ico%> width="24" height="24"   ></td>
	      <td  valign="middle" bordercolor="#C0C0C0" align="LEFT"> <font face="Arial" size="2" color="#000000"><%=my_name%></td>
	      <td  valign="middle" bordercolor="#C0C0C0" align="LEFT"> <img border="0" src="pgm2.ico"  width="24" height="24"   ></td>
	      <td  valign="middle" bordercolor="#C0C0C0" align="LEFT"> <font face="Arial" size="1" color="#000000"><a href="<%=my_path%>\<%=my_file%>" target="_BLANK"><%=my_file%></td>
	      <td  valign="middle" bordercolor="#C0C0C0" align="LEFT"> <img border="0" src="path2.ico"  width="24" height="24"   ></td>
	      <td  valign="middle" bordercolor="#C0C0C0" align="LEFT"> <font face="Arial" size="1" color="#000000"><a href="<%=my_path%>" target="_BLANK"><%=my_path%></td>
      </tr>
<%
        Loop
%>
	</table>
<%
End If
    rs.close 
    Set rs=Nothing 
%>
 
 
 
<%
'
' Fernmeture de la session
' 
    conn.close 
    Set conn=Nothing 
%>
<br><br><br>
 
<a href=http://172.16.10.214:8080/PRJTOMCAT5/GenerateRapport.pdf><img  src="FolderAdobe.png"  width=40 height="40" border=0></a>
</body>