Discussion :

[babafredo]

J'aimerais savoir comment exporter des données issues d'une requête sql vers un fichier excel de chemin par exemple Mes documents/liste_membre.xls..
Merci d'avance

[pc75]

Bonjour,

Tu es sur d'avoir fait une recherche ?

[babafredo]

J'ai utilisé cela comme code et cela marche :

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
 
'récupération des champs d'export
    sqlp= "select id_membre,nom,prenom,adresse,complement,cp,ville,departement,region,pays,telephone,portable,date_naissance,lieu_naissance,situation,profession,nb_enfants,date_inscription,sexe,secteur from Liste_Membres where id_membre>0 and id_pays='200'"
    set rs=OBJdbConnection.Execute(sqlp)
 
    'export vers fichier excel
    ligne = ""
	If Not rsp.Eof Then
		Do While Not rsp.Eof
			For i = 0 to rsp.Fields.count-1
				If i = rsp.Fields.count-1 Then
					addComa = ""
				Else
					addComa = "[_comma_]"
				End If
				'if rsp.fields(i).value <>"" then
				ligne = ligne & rsp.Fields(i).Value & addComa
				'ligne = ligne & Replace(rsp.Fields(i).Value,"_"," " ) & addComa
				'end if
			Next
			ligne = ligne & "[_linebreak_]"
			rs.moveNext
		Loop
	End If
	ligne = Replace(ligne,";","," )
	ligne = Replace(ligne,"<br>"," - " )
	ligne = Replace(ligne,vbCrlf," ")
	ligne = Replace(ligne,"[_linebreak_]",vbCr)
	ligne = Replace(ligne,"[_comma_]",";")
	fichier = "membres.csv"
	Response.ContentType = "application/xls"
	Response.AddHeader  "Content-Disposition", "attachment; filename=" & fichier
	Response.Write(ligne)
	Response.End()
 
	' Destruction de l'objet
	rsp.Close
	Set rsp = Nothing
 
End If

N'existe-t-il pas des tutos sur le transfert de données vers des fichiers excel, word...???
merci

[pc75]

Re,

J'avais proposé un truc là => http://www.developpez.net/forums/sho...3BPWXL%3BN%3BE

[babafredo]

merci je vais regarder cela.