Le portail francophone de la géomatique

Bonjour.

Merci pour vos nombreuses reponses.
Le probleme etait de reussir a exporter des reels (lat/lon en DD) de ACCESS vers un fichier texte en conservant 5 decimales.

La procedure d'exportation de ACCESS fonctionne tres bien, le probleme est ailleurs ! Ce qu'il faut savoir, c'est que cette commande utilise le format defini dans les parametres regionaux de window - Notamment le nombre de decimales - (Merci Annabelle pour la piste).

Ci-joint, deux petites routines VBA permettant de repondre a la question. A mediter.

Merci encore.

Joseph Le Cuziat.
---
annabelle

Quelles sont les fonctions d''exports utilisee ?
De plus verifier les parametres regionaux sous windows ( . ou , )
Si tu possedes Access le plus simple est d'ecrire une petite routine dans un module du type
Set fs = CreateObject( Scripting.FileSystemObject )
Set monfichiertexte =
fs.createTextFile(nomfichencours, false)
set rst = mabase.openrecordset( matable )
rst.movefirst

while not rst.eof
latitude=rst( lat ).value
longitude=rst( long ).value
a=str(latitude) &  :  & str(longitude)
monfichiertexte.writeline a
rst.movenext
loop

salutations
---
De: Eric Mauviere

Bonjour,
je vois 2 autres methodes :
1) avec Access 2000, en VBA :
Set MaDB = DBEngine.Workspaces(0).Databases(0)
Set rs = MaDB.OpenRecordset( table , DB_OPEN_DYNASET)
Set fs = CreateObject( Scripting.FileSystemObject )
Set a = fs.CreateTextFile( C:cartoexport.txt ,
True)
Do While (Not rs.EOF())
a.WriteLine (rs(0))
rs.MoveNext
Loop
rs.Close
a.Close

les decimales sont conservees.

2) multiplier les donnees par 100 000 et arrondir
avant d'exporter au
format texte : Clong(100000*x)

puis diviser par 100 000 a l'arrivee...

----
Joseph LE CUZIAT
IMEP, FST St Jerome, case 461, 13397 Marseille cedex 20, FRANCE
ECWP, Province de Boulemane, BP 47 Missour, MAROC