Export automatique de requête

**Herman** · 12/04/2007, 13h53

Rererebonjour,

J'aurais voulu savoir si il était possible d'exporter une fois par jour par exemple le résultat d'une requête vers un fichier .txt. Je m'explique :

J'utilise des graphiques en flash (http://www.amcharts.com/ pour ceux qui ne connaissent pas) qui prennent, dans mon cas, les données dans un fichier .txt. Ces données sont celles que j'ai d'abord exporter manuellement depuis Access.

Le problème n'est pas tant dans l'automatisation d'un export, puisque je sais que c'est faisable, mais il sera plutôt question ici d'un export automatisé une fois par jour, et ce sans rentrer dans la base. Pourquoi sans rentrer dans la base me direz-vous ? Et bien si on rentre dans la base, tant qu'à faire, pourquoi s'amuser à faire des graphiques en flash alors qu'il y a ceux d'Access directement !!

Si je ne veux pas passer par ceux d'access c'est qu'il est beaucoup plus facile dans mon cas de lancer une page Internet Explorer que de rentrer dans Access. Voilà !

Donc si quelqu'un a une idée pour automatiser ces exportations une fois par jour ! Merci

Invité · 12/04/2007, 14h02

Bonjour

L'idée serait la suivante

1 - Tu crées une macro que tu nommes AutoExec, dans cette macro tu lances ton exportation, et puis qui referme cette base.
2 - Dans les tâches plannifiés de Windows, tu lances la base à l'heure que tu veux.

Starec

**Heureux-oli** · 12/04/2007, 14h02

Tu va dans tache planifiées, et tu fais tourner Access une fois par jour avec un formulaire qui va lancer tes tâches d'export et ensuite fermer Access.

Sans quoi, il faut utiliser une solution logicielle capable de piloter Access.
Et dans ce cas, il vaut mieux utiliser Access.

**Herman** · 12/04/2007, 14h12

ok, je vois un peu le truc. Donc il faudrait que je fasse ça sur plusieurs PC au cas où un des PC serait éteint.

C'est transparent de faire ça via les tâches planifiées, ou ça va s'en ressentir pour celui qui utilise la machine ? (les exportations sont de l'ordre de 5 ou 6 requêtes, chacune des requêtes renvoyant une dizaine de lignes, donc quedale quoi).

**Heureux-oli** · 12/04/2007, 14h13

Ca devrait te faire dans les 25 ou 30 secondes !

**gd_dev** · 12/04/2007, 14h14

Vous pouvez utiliser un script "vbs" du genre ci-dessous que vous lancer via le scheduleur

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
 
	'**!
	'	Exportation de mes données
	'
	'*/
	On Error Resume Next
 
 
 
	Dim objConnection, objRecordSet, strSqlRequest
 
	Set objConnection = CreateObject("ADODB.Connection")
	Set objRecordSet = CreateObject("ADODB.Recordset")
 
	'**!
	'	Connection à la base de donnée anydatabase.mdb
	'
	'*/
	objConnection.Open 	"PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=c:\anydatabase.mdb"
 
	'**!
	'	Requette SQL à exécuter
	'
	'*/
   strSqlRequest = 	"select x, y, z from toto" 
 
	'**!
	'	Execute la requette
	'
	'*/
	objRecordSet.Open	strSqlRequest, objConnection
 
 
	'**!
	'	Fichier text
	'
	'*/
	Dim fso
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set fsoCSV = fso.OpenTextFile("sql.txt", ForWriting, True)	
 
	objRecordSet.MoveFirst		
 
	Do Until objRecordset.EOF
		soCSV.WriteLine objRecordset.Fields.Item("x") & ";" & objRecordset.Fields.Item("y")
 
		objRecordset.MoveNext
	Loop
 
	fsoCSV.Close