Bonjour,

J'ai un message d'erreur avec la procédure InStr, chose que je n'avais pas avant. Le programme a été modifié, mais pas à cette endroit.

Voiçi mon code: (chainef = <p><font size="3" face="Arial"><b>REGLEMENT #95</b></font></p>)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'Vérifier l'existence d'un tableau champ (voir si balise <FIN> existe)
   PosFin = InStr(1, chainef, "<FIN>")
   If PosFin > 0 Then
      PosDeb = PosFin + 5
   Else
      PosDeb = InStr(1, chainef, "<Body")        ' Trouver la position de la balise <Body
      If PosDeb = 0 Then
        PosDeb = InStr(1, chainef, "<body")      ' ou <body
      End If
      If PosDeb = 0 Then
        PosDeb = InStr(1, chainef, "<BODY")      ' ou <BODY
      End If
      PosDeb = InStr(PosDeb, chainef, ">") + 1   ' Trouver la position juste après la fin de la balise <Body ...>
 
   End If
Là où ça "bug" c'est à la dernière utilisation du InStr:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
PosDeb = InStr(PosDeb, chainef, ">") + 1   ' Trouver la position juste après la fin de la balise <Body ...>
Quand je met mon curseur au-dessus de InStr, j'ai le message suivant:
"Argument ou appel de la procédure incorrect"

Pourtant
PosDeb est un long = 0
chainef est un string = <p><font size="3" face="Arial"><b>REGLEMENT #95</b></font></p>
Alors InStr devrait me retourner 3, mais ce n'est pas le cas...je ne comprends pas pourquoi

Quelqu'un connait se problème?