Discussion :

[cortex59]

bonjour,

j'aurais besoin d'un peu aide pour manipuler un fichier html a partir d'excel

- ouvrir le fichier

- rechercher puis remplacer un mot dans tout le code

-enregistrer les modification

- fermer le fichier

merci

[Nico820]

Bonjour,

il faudrait que t'utilises une macro avec un html un xml parser pour traiter le fichier html

remarque: vaut mieux le faire avec un htmlparser, car html c'est pas exactement du xml et donc il peut y avoir des conflits

[cortex59]

Comment ouvre ton un fichier?

je veux juste l'ouvrir en texte pour le modifier l'enregistrer puis le fermer c tout

pas d'execution

[cortex59]

Moi j'ai essayer ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim a As Scripting.FileSystemObject
Dim b As Scripting.file
Dim c As Scripting.TextStream
 
Set a = New Scripting.FileSystemObject
Set b = a.GetFile(chemineTrain)
Set c = b.OpenAsTextStream(Forreading)
 
Dim d As String
d = Replace(c.ReadAll, "mpu0", "mpu")
Set c = b.OpenAsTextStream(Forwriting)
c.Write (d)
c.Close

- deja je pense que d (un string) ne peut contenir tout le fichier

Ensuite est ce que le reste vous parrait correct?

[EDIT]
Je vous confirme que ceci fonctionne MAIS

le string d ne contient pas la totalite de mon fichier

des idees?

merci

[cortex59]

OK le string fonctionne correctement
Je vien de trouver le PB mais il est incomprehensible

voici le code qui fonctionne :

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
16
17
18
19
20
21
Dim a As Scripting.FileSystemObject
Dim b As Scripting.file
Dim c As Scripting.TextStream
Dim d As String
 
'Ouvrir le fichier e-nom.htm
Set a = New Scripting.FileSystemObject
Set b = a.GetFile(chemineTrain)
Set c = b.OpenAsTextStream(ForReading)
 
MsgBox (c.ReadLine)
 
'Rechercher mpu0 et ramplacer par mpu
d = Replace(c.ReadAll, "mpu0", "mpu")
'Rechercher mpu1 et ramplacer par mpu_red
d = Replace(d, "mpu1", "mpu_red")
'Ecrire sur le fichier e-nom.htm
Set c = b.OpenAsTextStream(ForWriting)
c.Write (d)
'Fermer le fichier e-nom.htm
c.Close

Si j'enleve MsgBox (c.ReadLine) aucun remplacement est effectué;
Comme je veu pas de mess j'ai essaye c.readline mais non ca ne fonctionne pas

quelqu'un comprend?

merci

[cortex59]

ok encore plus fort

cela na rien avoir avec le c.readline mais avec le msgbox