Discussion :

[Nowoday]

Bonjour à tous

Suite à un export d'une vue depuis Lotus Notes en mode Tabular text j'ai besoin de mettre en forme mon texte avant de l'importer sous excel (ou si vous avez une solution directement avec VBA Excel ...).
Voila le corps de mon probleme ,mon texte est de cette forme :


vbfd; vhfght; fkjgrrd fhrbehd;gkjfhg frhiugf; jigbrebg;
gjihiiutfhi;uidht gierh; jgroigjo; fnuirehgui;fuirhg; fuirheu cbyre;
....

Le but es d'arriver a ca :
vbfd;vhfght;fkjgrrd fhrbehd;gkjfhg frhiugf;jigbrebg;
gjihiiutfhi;uidht gierh;jgroigjo;fnuirehgui;fuirhg;fuirheu cbyre;


Vous l'aurez compris : une suite lignes dans lesquelles chaque donnée se termine par un ";" avec un retour chariot a la fin de la ligne. La taille est indéterminée (ligne et colonne). Il peut y avoir des champs vides. Chaque ligne a le meme nombre de colonnes.
Mon probleme vient des espaces entre les ";" et la valeur du champ suivant.
J'aurais voulu faire un programme (Batch ou VBA de preference) qui supprime ces espaces, sachant que certaines valeurs de champs peuvent contenir 1 espace mais jamais plusieurs consécutifs.

Pour ceux qui voudraient le faire sous VBA Excel j'ai reussi a mettre tous mes champs en colonnes correctements structurées et à supprimer la majorité des espaces (si je vois 2 espaces consecutifs, je supprime). Il me reste donc parfois un espace au début de la valeur de la cellule s'il y avait un nombre impaire d'espace).

Merci

[Nowoday]

alors pour VBA word g un debut de macro

Sub Macro1()
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "; "
End With
Selection.Find.Execute
Do While Right(Selection.Text, 1) = " "
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Loop
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Text = ";"
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

Maintenant il faudrait ke j'arrive à la faire boucler avec la condition "tant qu'on n'est pas a la fin du texte"

[Mat.M]

1-c'est pas de la programmation Windows mais VBA.
Sauf si tu poses une question spécifique API win32
2-et la fonction Split ça n'exist pas avec VBA ?