Discussion :

[Arsene12]

Bonjour,

je voudrais copier le code source d'une page. Mon code est le suivant :

Code VBA :

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

1
2
3
data = doc.getElementsByTagName("HTML").item(0).innerHTML
msgbox(data)
NewFichier.WriteLine(data)

la msgbox affiche bien le code source mais j'ai une erreur avec .WriteLine :

Code :

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

Argument ou appel de procédure incorrect

Si je fais

Code VBA :

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

NewFichier.WriteLine("data")

j'ai plus d'erreur et j'obtiens un fichier output.txt avec écris data à l'intérieur.

Pourriez-vous m'aider à résoudre ce problème, svp?

Merci d'avance,
Arsène

[tsuji]

Si la description est fidèle, c'est effectivement curieux. Qu'est-ce que ça donne, pour voir ?

Code vbs :

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

1
2
3
    msgbox(data)
    msgbox typename(data)
    msgbox escape(data)    'pour verifier si il y a des caractères bizarres comme %00 ou du genre

[hackoofr]

Je crois que c'est un problème d'encodage, peut-être que le contenu est unicode !
Pouvez-vous poster l'url en question ?

[l_autodidacte]

L'erreur se produit si l'un des caractères contenus dans le code de la page correspond à l'un des codes ASCII suivants :

129, 138, 141, 142, 143, 144, 152, 154, 157, 158, 159, 161, 170, 186, 191, 193, 195, 196, 197, 198, 204, 205,
208-->211, 213, 214, 216, 218, 221-->223, 225, 227-->230, 236, 237, 240-->243, 245, 246, 248, 250, 253-->255.

Wscript ne gère pas de tels caractères en écriture.