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
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
Bonjour,
Tu es sur d'avoir fait une recherche ?
J'ai utilisé cela comme code et cela marche :
N'existe-t-il pas des tutos sur le transfert de données vers des fichiers excel, word...???
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
merci
Re,
J'avais proposé un truc là => http://www.developpez.net/forums/sho...3BPWXL%3BN%3BE
merci je vais regarder cela.
![]()
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager