Discussion :

[romulus34]

Bonjour à tous,

j'utilise ACCESS 2000
Je souhaîte insérer le résultat de deux requetes dans un même fichier.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Set fs = New Scripting.FileSystemObject
If fs.FileExists(strFichierExport1) Then
MsgBox "Le Fichier a déjà été envoyé."
Exit Function
Else
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(strFichierExport)
a.Close
DoCmd.TransferText acExportFixed, "Param_V1", "Req1", strFichierExport, False
DoCmd.TransferText acExportFixed, "Param_V2", "Req2", strFichierExport, False

Les param V1 et V2 donnent la même structure aux données.

Mon problème est le suivant :

Dans le fichier, je n'ai que les données de la req2.
j'imagine qu'il écrase les données de la req1.

Comment faire pour mettre les données de req2 à la suite de celles de la req1?

Merci bcp pour votre aide.

[fevec]

bonjour,

Une piste que j'utilise...

Exporter dans 2 fichiers texte
Les concatener par une commande système..
(à mettre dans un .bat) ou avec un shell execute
dans l'exemple ci-dessous concaténation de 3 fichiers en 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
c:
cd\
cd c:\base97
copy Etbac03.txt+Etbac06.txt+etbac08.txt Etbac.txt
pause
exit

bonne journée

fevec

[romulus34]

Merci Fevec.
En fait j'ai pris ton idée de faire deux fichiers et en cherchant dans la faq et forum j'ai réussi à faire ce que je souhaitais.
Voci le résultat :

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Function Export()
Dim fs As Scripting.FileSystemObject
Dim a As Scripting.TextStream
Dim strFichierExport As String
Dim strFichierExport1 As String
Dim strFichierExport2 As String
Dim fso     As FileSystemObject
Dim fFile   As File
Dim ts      As TextStream
Dim str As String
Dim today As String
 
today = Format(Now, "yymmdd")
strFichierExport = "C:\NomFichier.txt"
strFichierExport1 = "C:\NomFichier1.txt"
strFichierExport2 = "C:\NomFichier2." & today & ".msg"
 
 
Set fs = New Scripting.FileSystemObject
If fs.FileExists(strFichierExport2) Then
MsgBox "Le Fichier a déjà été envoyé."
Exit Function
Else
'création du fichier NomFichier.txt
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(strFichierExport)
a.Close
'export de la requête1 dans le fichier NomFichier.txt
DoCmd.TransferText acExportFixed, "Param_V1", "Req1", strFichierExport, False
 
'création du fichier NomFichier1.txt
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(strFichierExport1)
a.Close
'export de la requête2 dans le fichier NomFichier1.txt
DoCmd.TransferText acExportFixed, "Param_V2", "Req2", strFichierExport1, False
 
 
Set fso = New FileSystemObject
'ouvre le fichier NomFichier1.txt
Set ts = fso.OpenTextFile(strFichierExport1)
'met tout le contenu du fichier NomFichier1.txt dans une variable
str = ts.ReadAll
ts.Close
 
 
Set fFile = fso.GetFile(strFichierExport)
'ouvre le fichier NomFichier.txt en mode ajout
Set ts = fFile.OpenAsTextStream(ForAppending)
'écrit le contenu de la variable str dans le fichier NomFichier.txt
ts.WriteLine str
ts.Close
 
'renomme le fichier NomFichier.txt
Name "C:\NomFichier.txt" As "C:\NomFichier2." & today & ".msg"
 
'supprime le fichier NomFichier1.txt
Kill (strFichierExport1)
 
'libère la mémoire
    Set ts = Nothing
    Set fFile = Nothing
    Set fso = Nothing
    Set fs = Nothing
 
End If
 
End Function

Qu'en pensez vous?

Merci encore à ce forum qui est trés utile.

[mout1234]

Bonjour,


Pourquoi ne pas avoir fait une requête UNION des 2 sources avant export ?

[romulus34]

Bonjour,


Pourquoi ne pas avoir fait une requête UNION des 2 sources avant export ?

Oui en effet tu as tout à fait raison et c'est beaucoup plus simple.
Je n'y ai pas pensé du tout.
Desfois on cherche à faire compliquer alors que la solution est sous nos yeux.
Merci encore.

[mout1234]

De rien