vba IE interaction : modifier texte outerhtml

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.

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"

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,

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:

---

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:mouarf: vba commence a buguer quand on manipule en DOM 2/3

Code:

---

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 :ptdr: je me crois toujours en JS
mille excuse :oops:



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:

---

1 2 3 4 5

with ie.document for each elem in .all if elem.innerHTML="bannanes" then elem.innerHTML="pommes" next end with

---

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:

---

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

---

Fermer outil développer

Retour ie , clck send mail

re

Code:

---

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

---

MercI Patrick,

Je reviens vers toi demain pour te donner du feedback.

et mememieux cette ligne peut etre executer depuis vba

Code:

---

1 2	fonction="blablablab" ie.Document.parentWindow.execScript (" function(){#blablabla}"

---

attention il faut doubler voir tripler les guillement selon le code de la fonction
c'est ce que l'on appelle une fonction anonyme en js

une demo vaut mieu que tout les discours
teste et regarde avant et apres le message qui lui meme est executer en JS piloté par vba

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() With CreateObject("internetexplorer.application") .Visible = True .navigate "about:blank" .document.write "<div id=""toto""><font color=red><strong>ToTo</strong> </font> <em>mange des </em> <font color=""blue"">bannanes</font></div>" .document.parentwindow.execscript "javascript:alert(""je remplace bannanes par pommes regarde bien!!!!"");" .document.parentwindow.execscript "javascript:document.body.innerHTML = document.body.innerHTML.replace(/bannanes/gi, ""pommes"");" End With End Sub

---

je crois que tu a tout :mouarf:

Hello Patrick,

Seul la dernière fonctionne avec le code de ma page.

Js via Vba , cela marche du tonnerre, le seul souci que j ai eu, si souci il est , c'est que je ne dois pas attendre l apparition du template sur la feuille via un ie.readystate, apres choix et click bouton pour chargement,mais de lancer le code directement js directement lors du chargement template.

Si vous aviez une liste de code js, à lancer via Vba, avec des explications je suis preneur.

Encore merci pour précieuse aide.
Au top Patrick !

re
salut
il n'y a pas de liste a proprement parler
tu ecrit ton code comme si tu etait en javascript sauf que selon tu double ou triple les guillemets quand tu fait apel a une fonction avec arguments dans la balise javascript par exemple



et tu code simplement dans un string comme pour ton replace
c'est comme si tu executais une balise noscript ou du code dans la balise jascript a l'exterieur d'une fonction
ces ligne de code s'executent des l'ouverture du fichier
toi comme c'est dans vba tu code puis execute
voila