Discussion :

[TheJejefull]

Bonjour,

Je suis en train de créer une macro qui récupére la date de livraison par rapport a un tracking sur laposte.
Voici un extrait de mon code:

Code :

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

1
2
3
4
5
 
Do: DoEvents: Loop While IEDoc.getElementsByClassName("date").Length = 0
Set Ligne = IEDoc.getElementsByClassName("date")
                    a = Ligne(4).innerText
                    b = Replace(a, "?", "")

a = "?mercredi? ?9? ?octobre"

Savez vous pourquoi b est égal a exactement la même chose que a ?
Je pense ne pas me tromper dans mon code si ?

[unparia]

Bonjour

Savez vous pourquoi b est égal a exactement la même chose que a ?

Très probablement, sinon sûrement, parce que les "?" qu'affiche a ne sont pas des points d'interrogation, mais la représentation de caractères non ANSI.

[TheJejefull]

J'ai pensé a cela, donc j'ai fait un truc du genre:

c = left(a,1) résultat c="?"
d = asc (c) résultat d= 63

Donc les ? sont bien des ? non ??

[unparia]

ce petit test devrait te permettre de comprendre ce que j'ai exprimé plus haut

Code :

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

1
2
3
4
a = ChrW(800) & "blabla" & ChrW(411) & " " & ChrW(927) & "blibli" & ChrW(777) & "blabla"
  MsgBox a
  MsgBox Asc(Mid(a, 1))
  MsgBox Replace(a, Chr(63), "")

Pour ce qui est de :

Personne n'a d'idée ?

J'ai montré il y a peu de temps ma manière de traiter. Cela m'a valu des réactions inattendues -->> Désolé, donc ...

EDIT : un remplacement global est peut-être envisageable, mais aux deux conditions sine qua non suivantes :
1) que le premier caractère (remplacé par un "?") soit toujours le même (pour chaque date)
2) que tous les caractères remplacés par un "'?" soient identiques à ce premier caractère
J'estime personnellement que ce risque, même si infime, ne doit pas être couru.

[Pierre Fauconnier]

Salut.

Voir ma réponse dans cette discussion

[TheJejefull]

Merci de ta réponse je vais étudier tout cela