max12 : je les prends en charge mais je ne les colorise pas car VB dans sa version 6 du moins ne le fait pas non plus si cependant tu veux le faire tu peut enlever les commentaire des ligne suivante et changer la constante par une nouvelle du choix de tacouleur :
Case Chr(34) ' les strings (")
strBufferOut = strBufferOut & M_Color_Comments ' cette ligne
strBufferOut = strBufferOut & strCaractere
i = i + 1
Do While Mid(strBufferIn, i, 1) <> Chr(34)
strCaractere = Mid(strBufferIn, i, 1)
' caractere reserve au HTML
If strCaractere "&" Then strCaractere "&"
If strCaractere "<" Then strCaractere "<"
If strCaractere ">" Then strCaractere ">"
strBufferOut = strBufferOut & strCaractere
i = i + 1
Loop
strBufferOut = strBufferOut & """"
strBufferOut = strBufferOut & M_Color_End & vbCrLf ' cette ligne
30 juil. 2001 à 10:43
Case Chr(34) ' les strings (")
strBufferOut = strBufferOut & M_Color_Comments ' cette ligne
strBufferOut = strBufferOut & strCaractere
i = i + 1
Do While Mid(strBufferIn, i, 1) <> Chr(34)
strCaractere = Mid(strBufferIn, i, 1)
' caractere reserve au HTML
If strCaractere "&" Then strCaractere "&"
If strCaractere "<" Then strCaractere "<"
If strCaractere ">" Then strCaractere ">"
strBufferOut = strBufferOut & strCaractere
i = i + 1
Loop
strBufferOut = strBufferOut & """"
strBufferOut = strBufferOut & M_Color_End & vbCrLf ' cette ligne
27 juil. 2001 à 21:55
5 juil. 2001 à 11:47
4 juil. 2001 à 12:10