Discussion :

[mfoxy]

Bonsoir à tous,

Petit question :

Connaîtriez-vous une fonction , ou autre, qui me permettrait de modifier un "mot" présent sur une page HTML via vba?

Le soucis :
Dans la tâche que j essaie d automatiser, je dois , modifier un template ( mail) présent sur la page du site et clic sur envois.

Je parviens à sélectionner la langue, le template,envoyer le mail.

Cependant je dois modifier une zone de texte dans ce template en HTML.

J'y parviens si je prends le outerhtml dans une variable ( replace (*,*,*,1)) mais pas sur la page proprement dite

Si je remplace le outerhtml présent par le modifier, cela modifie l entièreté de la page et pas juste l' encart template mail.

D avance merci pour votre précieuse aide.

[patricktoulon]

sans code source difficile de t'aider
cependant le dom est capricieux en VB la librairie ie n'ayant pas trop evoluer par rapport au javascript

donc en vb(A/s) on ne peut remplacer un element.outerHTMLpar un autre outerHTML tandis qu'en JS oui

il te faut recupérer l'entiereté de ce que tu veux transférer dans ton mail dans une variable string et faire le replace de ton element .outerHTML dans cette variable
cela dit vu ce que tu veux replacer j'ai peur que tu confonde le outerHTML ,innerHTML,innerText,outerText

du texte

outerHTML=<balise style="blablabla"> <strong>du</strong> <font color=red>texte</font></balise>
innerHTML= <strong>du</strong> <font color=red>texte</font>
innerText=du texte
outerText= style="blablabla"

[mfoxy]

Merci Patrick
toujours aussi proactif.

Je vais vérifier au niveau des différentes variantes, innerText,outerText,inner&outer HTML

Je reviens vers vous après test des différentes variantes.

Pour le replace dans un string pas de souci j y suis arrivé, mais c est la réinjection sur la page web qui me pose soucis

Au lieu de garder sa forme mais avec le contenu modifier , je me retrouve avec une page avec le outerhtml modifier mais en format "text" toutes balises apparente.

J aurais donc espère qu' une fonction de remplacement de texte en direct sur la page web existerait. À l'instar d un find and replace sur excel



Bat,

[patricktoulon]

la réinjection:
exemple
dans le document

ToTo mange des bannanes

<div id="toto"><font color=red><strong>ToTo</strong> </font> <em>mange des </em> <font color="blue>bannanes</font></div>

methode string externe(VBA)

Code :

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

1
2
3
4
5
6
with ie.document
set montoto=.getelementById("toto")
texte=montoto.innerhtml
texte=replace(texte,"bannanes","pommes")
montoto.innerhtml=texte
end with

methode DOM 1 a l'ancienne vba commence a buguer quand on manipule en DOM 2/3

Code :

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

1
2
3
4
5
with ie.document 
set toto=.getElementById("toto")
set myfont=toto.getElementsByTagName("FONT") (1)
myfont.innerHTML="Pommes"
end With

edit:
je me suis amballé on touche pas le parentelement dans cet exemple et excuse moi pour les double " == " j'ai du mal a revenir en VB je me crois toujours en JS
mille excuse



une petite derniere
comme vba estr capricieux en DOM
il y a une solution radicale pas jolie certe mais efficace si tu n'a qu'une seule occurence de ton replace

Code :

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

1
2
3
4
5
with ie.document
for each elem in .all
if elem.innerHTML="bannanes" then elem.innerHTML="pommes"
next
end with

[mfoxy]

Re merci ;-)

Au pire des cas ,
Il me serait aussi possible via les "sale" sendkey de :

Ouvrir l outil développeur de Ie ( f12 / ctrl+maj+j) en mode console

Coller la ligne de code JavaScript :

Code javascript :

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

document.body.innerHTML = document.body.innerHTML.replace(/ABC/g, "XYZ")

Fermer outil développer

Retour ie , clck send mail

[patricktoulon]

re

Code javascript :

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

document.body.innerHTML = document.body.innerHTML.replace(/ABC/gi, "XYZ")