Discussion :

[christ-94]

Bonjour


Est-il possible de crée un fichier txt a partir du résultat d'une requête ?
chaque champs de la requête doit être une ligne dans le fichier txt
et comment faire .

Merci

[DMboup]

Je supposes que c'est possible.

Dans les codes sources on trouve

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
 
'Créer un fichier : 
Function CreerFichier(ByVal sPath As String)
    Dim fso As FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CreateTextFile sPath
    Set fso = NothingEnd Function
 
 
'Ajouter une ligne : 
Function AjoutLigneDansFichier(ByVal sPath As String, ByVal sTexte As String)
    Dim fso As FileSystemObject
    Dim fFile As File
    Dim ts As TextStream
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fFile = fso.GetFile(sPath)
    Set ts = fFile.OpenAsTextStream(ForAppending)
    ts.WriteLine sTexte
    ts.Close
    Set ts = Nothing
    Set fFile = Nothing
    Set fso = NothingEnd Function

En parcourant les champs de ta requête tu devrait pouvoir t'en sortir.

[LostIN]

un simple export (clic droit sur la requete, format txt...)

ca se fait aussi très bien en vba

[christ-94]

Bonjour et merci pour les reponses

un simple export (clic droit sur la requete, format txt...)

ca se fait aussi très bien en vba

je ne vois pas comment faire en VBA

avec la sourrie pas de probleme

de plus le format doit etre "chaque champs de la requete doit represente une ligne de texte sans ajout "

ce txt doit servir de script pour autocad donc pas d'ajout