Bonjour à tous,

Je débute en VBA et j'aurais besoin d'un petit coup de main svp... Mon objectif est de créer une macro permettant de transformer un fichier texte contenant des coordonnées de points (x,y) en un fichier python directement codé pour créer ces points dans un logiciel de simulation numérique.

En gros le fichier est comme ci-dessous :

0.00 -791.0
5.98 -791.0
11.95 -791.1
17.93 -791.1
23.90 -791.2
29.88 -791.2
etc...
Que je voudrais transformer en :

s.Line(point1=(0.00,-791.0),point2=(5.98,-791.0))
s.Line(point1=(5.98,-791.0),point2=(11.95,-791.0))
s.Line(point1=(11.95,-791.1),point2=(17.93,-791.1))
s.Line(point1=(17.93,-791.1),point2=(23.90,-791.1))
s.Line(point1=(23.90,-791.2),point2=(29.88,-791.2))


Donc j'ai déjà ecrit pas mal de trucs : comment demander l'adresse du fichier à l'utilisateur, puis ouvrir ce fichier, lire des données dedans, les écrire dans un nouveau fichier,etc.. en voici un extrait ci dessous :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Creation d'un fichier python
Open "python.py" For Output As #2
 
' Ouverture du fichier texte
Open Nom_Fichier For Input As 1
 
While Not EOF(1)
Line Input #1, strLigne
Print #2, strLigne
Wend
 
Close 1
 
Close #2
Je voudrais juste savoir comment programmer en VBA une lecture jusqu'à un espace (pour la première coordonnée) et jusqu'à un retour à la ligne (pour la seconde) ?

Merci d'avance pour votre aide