Discussion :

[tranksen76]

Bonjour,

J'ai enfin réussi à créer une macro qui parcours le corps d'un email à la recherche d'un morceau de texte précis.
Le texte en question commence par "REF: 12" et mesure 17 caractères de long.
Ma macro est donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If InStr(1, myItem.Body, "REF: 12") = 0 Then
machaine = Mid(myItem.Body, InStr(1, myItem.Body, "12"), 17)

Mon problème maintenant réside dans le fait que le corps de mon email contient ce texte sous la forme "1234.5678.901.234" or j'ai besoin de le changer en "1234-5678-901.234".

je ne peux pas utiliser 4 commandes Mid puis décomposer mon texte en 4 morceaux et choisir manuellement les - ou les . car dans toute la chaine il n'y a que le 12 qui est toujours présent donc je ne sais pas où prendre repère.

Si quelqu'un peut me conseiller une autre commande pour remplacer Mid ou alors un paramètre pour Mid pour retenir certains caractères de toute le chaine.

Vous remerciant par avance.
Amicalement
Tranksen

[Oliv-]

Tu peux faire comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
machaine = "1234.5678.901.234"
machaine = Replace(machaine, ".", "-", 1, 2)
MsgBox machaine