BONJOUR à tous ;
j'ai fait un script qui permet d' Afficher le contenu d'un fichier Excel dans une page ASP avec un chemin physique ;
il marche trés bien sur mon pc ;
mais lorsque change le chemin ( c:/test1.xls) par un autre ( un chemin vers un serveur sur le reseau local k :/aaa/ test1xls)
il affiche ce message
"Type d'erreur :
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Pilote ODBC Excel]Erreur générale Impossible d'ouvrir la clé de registre 'Temporary (volatile) Jet DSN for process 0x700 Thread 0x818 DBC 0x13d8f9c Excel'. "
c-a-d : il y a un probleme de chemin
SVP aide moi en urgence !!!!!!!!!!!!
le code le voila :
<%Option Explicit%>
<html>
<title>Afficher le contenu d'un fichier Excel dans une page ASP avec un liens physique </title>
<body bgcolor="#FFFFFF" Text="#000000" link="#0000FF" vlink="#0000FF" alink="#FF0000">
<%
Dim MonObjRs, strConn, MaConn, strCmd, CompteurColonne
' Création de la connexion
Set MaConn = Server.CreateObject("ADODB.Connection")
strConn = "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=c:\test1.xls"
MaConn.Open strConn
strCmd ="SELECT * FROM MesDonnees;"
Set MonObjRs = Server.CreateObject("ADODB.Recordset")
' Exécution de la requête
MonObjRs.Open strCmd, MaConn
%>
<table border="1" cellspacing="0" cellpadding="2" align="center" bordercolor="#000000">
<tr>
<td colspan="2"><font face="Verdana" size="2" color="#0000FF"><b>Contenue de "MesDonnees" dans "MaFeuille</b></font>"</td>
</tr>
<tr>
<%For CompteurColonne = 0 To (MonObjRs.Fields.Count - 1)%>
<td bgcolor="#C0C0C0"><b><font face="Verdana" size="2"><%
' Le nom des champs
%><%=MonObjRs.Fields.Item(CompteurColonne).Name%></font></b></td>
<%Next%>
</tr>
<%Do While Not MonObjRs.EOF%>
<tr><%
For CompteurColonne = 0 To (MonObjRs.Fields.Count - 1)%>
<td align="center"><font face="Arial" size="2">
<%=MonObjRs.Fields.Item(CompteurColonne).Value %></font></td>
<%Next %>
</tr>
<%MonObjRs.MoveNext
Loop%>
</table>
<%
' On vide tous les objets tout bien comme il faut :)
MonObjRs.close
Set MonObjRs = Nothing
MaConn.close
Set MaConn = Nothing
%>
</body>
</html>
A+
salut
moh