salut,
merci pour ton aide.
j'ai essayé mais ça ne change rien. je t'envoie mon code. dans la même page avant la balise html je récupère des données de la page précédente et je lance une requête pour avoir les informations à mettre dans le fichier excel.
merci encore.
<HTML>
<HEAD>
<meta http-equiv="Content-Language" content="fr">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1252">
<TITLE>Résultats de la requête</TITLE>
</HEAD>
<BODY onload="window.open('telecharge/<% =nomfich %>.xls?<% =date() & time() %>');">
<div style="position: absolute; width: 829px; height: 24px; z-index: 9; left: 10px; top: -13px" id="couche11">
<table border="0" width="100%" id="table1">
<tr>
<td bgcolor="#ff9600"> </td>
</tr>
</table>
</div>
<%
' Créer un objet Scripting.FileSystemObject
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
' Récupérer le path long du dossier qui contient le fichier
dir = Server.MapPath("telecharge/")
' Composer le chemin complet du fichier
Fnm = dir & "\" & nomfich & ".xls"
' Créer le fichier l ouvre en même temps !
set inF = FSO.CreateTextFile(Fnm)
set CONN=server.createobject("adodb.connection")
CONN.open "profils","",""
set RS = Server.CreateObject("ADODB.recordset")
RS.open sql,CONN,3,3
%>
<%
LL="Date de la requête : " & date()
inF.writeLine LL
LL="Critères de la requête"
inF.writeLine LL
LL="Agence sélectionnée : " & agence
inF.writeLine LL
if gestionnaire="000" then
LL="Tous les gestionnaires"
else
LL="Gestionnaire : " & gestionnaire
end if
inF.writeLine LL
LL="Tranche(s) d'âge selectionnée(s) : "
if g18="1" then
LL=LL & "* de 18 à 24 ans "
end if
if g25="1" then
LL=LL & "* de 25 à 30 ans "
end if
if g31="1" then
LL=LL & "* de 31 à 40 ans "
end if
if g41="1" then
LL=LL & "* de 41 à 50 ans "
end if
if g50="1" then
LL=LL & "* de 51 à 63 ans "
end if
if g63="1" then
LL=LL & "* Plus de 63 ans "
end if
inF.writeLine LL
LL="Ancienneté du (des) comptes : "
if a0="1" then
LL=LL & "* Moins de 1 an "
end if
if a1="1" then
LL=LL & "* de 1 à 2 ans "
end if
if a3="1" then
LL=LL & "* de 3 à 5 ans "
end if
if a6="1" then
LL=LL & "* de 6 à 10 ans "
end if
if a10="1" then
LL=LL & "* Plus de 10 ans "
end if
inF.writeLine LL
LL="Equipement : "
if e0="1" then
LL=LL & "* Equipement 0 "
end if
if e1="1" then
LL=LL & "* Equipement 1 "
end if
if e2="1" then
LL=LL & "* Equipement 2 "
end if
if e3="1" then
LL=LL & "* Equipement 3 "
end if
inF.writeLine LL
LL="Segment(s) :"
if s1="1" then
LL=LL & "* Segment 1 "
end if
if s2="1" then
LL=LL & "* Segment 2 "
end if
if s3="1" then
LL=LL & "* Segment 3 "
end if
if s4="1" then
LL=LL & "* Segment 4 "
end if
if ns="1" then
LL=LL & "* Non Segment. "
end if
LL="Domiciliation Rev. :"
if dom1="1" then
LL=LL & "* Oui "
end if
if dom2="1" then
LL=LL & "* Non "
end if
inF.writeLine LL
LL="Agence Gestionnaire Profil Clt Client Anciennete Tranche d'âge Segment Monetique Assurance Credits Cons Credits Immo Encours Credit Cons Conf Encours Credits Immo Domiciliation revenus CSP Profession Qualité Tél. Dom. Tél. Pro. GSM Adresse 1 Adresse 2 Adresse 3 Code Postal Ville"
inF.writeLine LL
j=1
Dim tableau(30)
Do while Not RS.eof and j<=i
'RESPONSE.WRITE(rs("categorie"))
LL=rs("Agence") & " " & rs("Gestionnaire") & " " & rs("Profil") & " =TEXTE(" & rs("N Compte") & ";""00000000000"")" & " " & rs("Client") & " " & rs("Anciennete") & " " & rs("age") & " " & rs("Segment") & " " & rs("Mon") & " " & rs("Ass") & " " & rs("Cons") & " " & rs("Immo") & " " & rs("encourscc") & " " & rs("encoursci") & " " & rs("domsal")& " " & rs("csp") & " " & rs("profession") & " " & rs("Situation") & " _" & rs("Teldom") & " _" & rs("Telprof")& " _" & rs("gsm") & " " & rs("Adresse1") & " " & rs("Adresse2") & " " & rs("Adresse3") & " " & rs("Cp") & " " & rs("Ville")
'response.write("<p>" & LL)
inF.writeLine LL
tableau(j)= rs("N Compte")
j=j+1
rs.MoveNext
loop
inF.close
j=j-1
%>
<font color="#800000"><b>Nombre de comptes :</b></font> <b>
<font color="#800000"> <% =rs.RecordCount %> </font></b>
<a href="telecharge/<% =nomfich %>.xls?<% =date() & time() %>"> Télécharger le fichier Excel </a><br>
<font color="#800000"><b>Nombre à télécharger :</b></font> <b>
<font color="#800000"> <% =j %> </font></b>
<%
CONN.close
set CONN=server.createobject("adodb.connection")
CONN.open "profils"
if session("req") <> "brd" then
for y=1 to i
a=tableau(y)
mysql="update " & session("req") & " set M1='T' where [N Compte] like '" & a & "'"
set rs= CONN.Execute(mysql)
next
CONN.close
set CONN=nothing
set RS=nothing
end if %>
</BODY>
</HTML>
<br>
<br>