Connexion à Translate de Google pour traduction

Bonjour,
J'avais fais en VBA sous Excel un traducteur de texte qui se connectait au serveur Translate de Google, ça marchait bien avant mais depuis ça ne marche plus.
il se peut que la connexion ne soit plus gratuite, qu'en pensez vous ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Function Translate(RQ As Object, Html As Object, texte As String, Lang_Source As String, Lang_Cible As String) As String Dim URL As String Dim elem As Object   'UTF8_Encode (texte)   URL = "https://translate.google.pl/m?&sl=" & Lang_Source & "&tl=" & Lang_Cible & "&ie=UTF-8&prev=_m&q=" & UTF8_Encode(texte)   RQ.Open "POST", URL, False RQ.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" RQ.send   Html.body.innerHTML = RQ.responseText Translate_new = Replace(RQ.responseText, "<>", ">" & vbCrLf & "<")   For Each elem In Html.all If elem.tagName = "DIV" And elem.className = "t0" Then Translate_new = elem.innerHTML Exit For End If Next elem   End Function

---

hello,
je crois que cela ne fonctionne plus car la réponse est envoyée par Ajax et si ton objet RQ (on ne voit pas ce que c'est dans ton code) ne les gère pas (comme l'objet MSXML2.ServerXMLHTTP par exemple) tu n'as pas la traduction. Il faut utiliser un navigateur pour gérer ce genre de réponse. On peut utiliser l'objet InternetExplorer.application ou utiliser SeleniumBasic qui est capable d'utiliser Chrome ou Edge Chromium ou FireFox.
Par exemple avec SeleniumBasic , j'ai créé une fonction personnalisée TraductionGoogle qui traduit le texte d'une cellule Excel en utilisant une instance de Chrome :

Pièce jointe 589208

installation de seleniumbasic ici

Ami calmant, J.P

Bonjour,
merci pour la réponse,
Ta fonction personnalisée TraductionGoogle qui traduit le texte d'une cellule Excel en utilisant une instance de Chrome répond parfaitement à mon besoin
j'ai pas trouvé le script VBA de cette fonction pour le mettre dans une macro et tester ?

Citation:

---

Envoyé par itasoft

j'ai pas trouvé le script VBA de cette fonction pour le mettre dans une macro et tester ?

---

C'est normal c'est une fonction personnelle en test actuellement et pas publiée et cela oblige à installer seleniumbasic. Par contre tu pourrais rechercher un code qui utilise InternetExplorer.Application

re bonjour,
OK, merci, je vais chercher un code VBA qui utilise InternetExplorer.Application pour traduire automatiquement un texte de français à rosbif, si je trouve
A+

j'ai dû raconter des bêtises car je viens d'essayer une macro personnalisée googletranslate qui se trouve ici ( prendre la dernière version en fin de page) et qui utilise un objet MSXML2.XMLHTTP et cela à l'air de fonctionner.
Ami calmant, J.P