Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Convertir un fichier GPS

19 réponses
Avatar
hein ? Quoi ? hein ? Quoi ?
Bonjour,

je cherche a savoir s'il existe un modele excel pour convertir des
track de GPS afin de faire des graphs.

Sinon comment faire pour convertir un TDatetime (temps 0 = 19eme
siecle) en xx/xx/xxxx et hh:mm ?

merci d'avance.



--
Les fautes d'orthographes sus-citées sont déposées auprès de leurs
propriétaires respectifs. Aucune responsabilité n'est engagée sur
la lisibilité du message ou les éventuels dommages qu'ils peuvent
engendrer.

9 réponses

1 2
Avatar
hein ? Quoi ? hein ? Quoi ?
On Mon, 12 Apr 2004 10:49:29 +0200, FxM wrote:

Bonjour,

Pourrais-tu donner quelques exemple d'entrées - sorties ?



Par exemple avec le fichier "TrackLogMem 2004-02-20 16-20-57.pl" :


OziExplorer Track Point File Version 2.0
WGS 84
Altitude is in Feet
Reserved 3
0,2,255,OziCE Track Memory Log,1
0

48.5856543, 7.7255900,0, 661.7,38031.6346065
48.5856544, 7.7255067,0, 657.8,38031.6346296
48.5855655, 7.7255550,0, 647.3,38031.6346875


Je cherche a convertir au format excel la colonne 38031.6346065

En fait je sais pas trop encore ce que je vais faire de ces fichier.
Probablement faire des graph sous excel pour faire un historique de
mes balade. Il y aurra peut etre aussi des stats sur la vitesse
moyenne, altitude (le 661.7 exprimé en pieds ici), le temps de pause,
ETC ETC....


--
Les fautes d'orthographes sus-citées sont déposées auprès de leurs
propriétaires respectifs. Aucune responsabilité n'est engagée sur
la lisibilité du message ou les éventuels dommages qu'ils peuvent
engendrer.

Avatar
FxM
Bonsoir,

48.5856543, 7.7255900,0, 661.7,38031.6346065


Si j'ai tout bien compris :
Environs de Strasbourg (disons sur l'A35 à l'ouest)
le 16/02/2004 à 15:13:50

@+
FxM

Avatar
hein ? Quoi ? hein ? Quoi ?
On Tue, 13 Apr 2004 23:04:26 +0200, FxM wrote:

Bonsoir,

48.5856543, 7.7255900,0, 661.7,38031.6346065


Si j'ai tout bien compris :
Environs de Strasbourg (disons sur l'A35 à l'ouest)
le 16/02/2004 à 15:13:50

voui mais manque l'altitude ;o))

C'est possible de faire ca sous excel en lisant un fichier ?
Y a une fonction qui permet de convertir 38031.6346065 en 16/02/2004 à
15:13:50 ?

merci

--
Les fautes d'orthographes sus-citées sont déposées auprès de leurs
propriétaires respectifs. Aucune responsabilité n'est engagée sur
la lisibilité du message ou les éventuels dommages qu'ils peuvent
engendrer.


Avatar
JièL Goubert
Bonjoir(c) hein ? Quoi ? hein ? Quoi ?

Le 14/04/2004 01:19 vous nous disiez ceci :
Y a une fonction qui permet de convertir 38031.6346065 en 16/02/2004 à
15:13:50 ?


Oui, le format "jj/mm/aaaa hh:mm:ss" dans les formats de cellules

merci


--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr
Celle d'Outlook Express ici : www.faqOE.com

Avatar
FxM
Bonsoir,

48.5856543, 7.7255900,0, 661.7,38031.6346065


Si j'ai tout bien compris :
Environs de Strasbourg (disons sur l'A35 à l'ouest)
le 16/02/2004 à 15:13:50


voui mais manque l'altitude ;o))
Mais euh ... 201,686 m ??


C'est possible de faire ca sous excel en lisant un fichier ?
Y a une fonction qui permet de convertir 38031.6346065 en 16/02/2004 à
15:13:50 ?

merci


Quelque chose comme ce qui suit devrait aller :
(Sachant que j'ai recréé le fichier, je le suppose comme OK)

Sub test3()
Dim fil As String, col As String, feuille As String
Dim arr_coef As Variant, inp As Variant, ligne As Variant
Dim line As Long, vale as variant
Dim zz As Integer, a As Integer

'nom du fichier à ouvrir
fil = "D:inboxTrackLogMem 2004-02-20 16-20-57.pl"
'1ère colonne où mettre les données
col = "B"
'nom de la feuille où mettre les données
feuille = "Feuil1"
'array de conversion d'unités
arr_coef = Array("1*x+0", "1*x+0", "1*x+0", "0.3048*x+0", "1*x+2")

With Sheets(feuille)
NumFile = FreeFile
'ouvrir le fichier en texte
Open fil For Input As #NumFile
'rechercher la première ligne vide
ligne = col: Do Until IsEmpty(ligne): Input #NumFile, ligne: Loop
line = 1
Do While Not EOF(NumFile)
'lire chacune des lignes
Line Input #NumFile, ligne
'séparer les infos (séparateur = ,)
vale = Split(ligne, ",")
'mettre en place les données
.Range(col & line).Resize(1, UBound(vale) + 1) = vale
'préparer la ligne suivante
line = line + 1
Loop
'fermer le fichier
Close

'ce qui suit suppose que le nombre de colonnes est
'le même que le nombre d'items dans arr_coefs
zz = UBound(arr_coef)
'pour chacune des colonnes
For a = 0 To zz
'parcourir la colonne
For Each vale In Range(col & ":" & col).Offset(0, a)
'sortir si la cellule est vide
If IsEmpty(vale) Then
Exit For
Else
'sinon convertir
vale.Value = Evaluate(Replace(arr_coef(a), "x", vale.Text))
End If
Next vale
Next a
'mettre en forme la dernière colonne au format date
.Columns(col).Offset(0, zz).NumberFormat = "dd/mm/yy hh:mm:ss"
End With
End Sub


Voilà, voilà

@+
FxM



Avatar
FxM
Bonsoir JièL,

JièL Goubert wrote:
Y a une fonction qui permet de convertir 38031.6346065 en 16/02/2004 à
15:13:50 ?
Oui, le format "jj/mm/aaaa hh:mm:ss" dans les formats de cellules



Ouuuuuuuhhhhh, il n'a pas lu la spéc de conversion ! Le zéro est le
30/12/1899. Il faut donc ajouter deux jours.

@+
FxM


Avatar
hein ? Quoi ? hein ? Quoi ?
On Wed, 14 Apr 2004 22:29:25 +0200, FxM wrote:


Voilà, voilà


MDR il m'a torché ca. C'etait pas la peine, mais merci quand meme.
;o))

--
Les fautes d'orthographes sus-citées sont déposées auprès de leurs
propriétaires respectifs. Aucune responsabilité n'est engagée sur
la lisibilité du message ou les éventuels dommages qu'ils peuvent
engendrer.

Avatar
JièL Goubert
Bonjoir(c) FxM

Le 14/04/2004 22:31 vous nous disiez ceci :
Ouuuuuuuhhhhh, il n'a pas lu la spéc de conversion ! Le zéro est le
30/12/1899. Il faut donc ajouter deux jours.


Argh... si en plus y faut tout lire ;-))))))))
Et pis comme j'ai encore le décalage horaire dans la tête, c'est
excusable : un jour de plus, un jour de moins, on en est pas à ça prés
quand même ;-)))))))))))

--
JièL Décallé journellement

Avatar
FxM
Jette voir un oeil sur
http://www.gratilog.net/nouveau.htm

Il y a un soft nommé GPS traces sorti aujourd'hui :o)

@+
FxM




hein ? Quoi ? hein ? Quoi ? wrote:
On Wed, 14 Apr 2004 22:29:25 +0200, FxM wrote:


Voilà, voilà



MDR il m'a torché ca. C'etait pas la peine, mais merci quand meme.
;o))




1 2