Erreur de requete XML Forbiden Google translate

**rampage92** · 27/06/2023, 11h56

Bonjour à tous,

Je cherche à utiliser google translate via Excel et j'utilise le code suivant :

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
22
23
24
25
26
27
28
Public Function GoogleTranslate(rng As String, Optional translateFrom As String = "en", Optional translateTo As String = "es")
 
    Dim getParam As String, objHTTP As Object, URL As String
 
    Set objHTTP = CreateObject("MSXML2.XMLHTTP")
 
    getParam = "Hello"
 
    URL = "https://translate.google.pl/m?hl=" & translateFrom & "&sl=" & translateFrom & "&tl=" & translateTo & "&ie=UTF-8&prev=_m&q=" & getParam
    Debug.Print URL
 
    With objHTTP
        .Open "GET", URL, False
        '.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
        .Send ("")
        Debug.Print (objHTTP.StatusText)
        If InStr(.responseText, "<div class=""result-container""") > 0 Then
            Application.Wait (Now + TimeValue("0:00:01"))
            GoogleTranslate = Clean(RegexExecute(.responseText, "div[^""]*?""result-container"".*?>(.+?)</div>"))
            Application.Wait (Now + TimeValue("0:00:01"))
        Else
            Application.Wait (Now + TimeValue("0:00:01"))
            GoogleTranslate = CVErr(xlErrValue)
            Application.Wait (Now + TimeValue("0:00:01"))
        End If
    End With
 
End Function

Cela marche parfaitement bien sur mon PC.

Quand j'utilise le meme fichier d'un autre PC cela ne marche pas. J'ai creusé et j'ai vu que la différence se trouvé ici :

Code :

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

Debug.Print (objHTTP.StatusText)

Ce Code me renvoit Forbiden

Comment puis-je changer cela ?

en modifiant le

Code :

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

.setRequestHeader

?

Meric pour votre aide

**umfred** · 27/06/2023, 12h45

ton setRequestHeader est en commentaire, donc pas utilisé, active le pour voir.
et fait également le test manuellement via le navigateur
ou alors ta requête n'est pas la même

**jurassic pork** · 27/06/2023, 13h41

Hello,
regarde dans mon post ici pour voir ce que j'utilise en en-tête de requête.
Ami calmant, J.P

**binarygirl** · 27/06/2023, 13h43

Probablement que Google se rend compte que la requête est faite par un robot et donc décide de bloquer la requête.
Pour en avoir le coeur net, vous pouvez afficher le code HTML reçu.

En faisant ce genre de choses sur des sites, vous allez forcément vous taper des captcha ou être bloqué par Cloudflare très souvent.

Dans ce cas d'utilisation, il existe peut-être une API.

**rampage92** · 27/06/2023, 14h22

J'ai ajouté

Code :

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

.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko"

J'ai la meme erreur.

Quand j'essaye de passer avec

Code :

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

Set ResultCont = MyHTML.getElementsByClassName("result-container")

La methode ne semble pas exister (Meme en ayant coché microsoft HTML) dans les references

**jurassic pork** · 27/06/2023, 14h37

sur le PC où il y a l'erreur la connexion internet passe-t-elle par un vpn ou un proxy server ?

**rampage92** · 27/06/2023, 15h31

Non ni l'un ni l'autre.

comment je peux utiliser :

Code :

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

MyHTML = CreateObject("HTMLFILE")

pour recuperer le HTML, après je peux coder la fonction pour recupérer le resultat moi meme .

**umfred** · 27/06/2023, 18h45

Si tu as une réponse "forbiden" comme tu nous l'indiques, alors il n'y a pas de résultat à récupérer ....

**rampage92** · 28/06/2023, 12h57

Pas de moyen de contourner ?

**umfred** · 28/06/2023, 13h14

as-tu tester ta requête directement dans le navigateur du PC où ça ne marche pas ?
https://translate.google.pl/m?hl=en&...rev=_m&q=Hello
(question bête mais, ce PC est bien relié et a accès à internet ?)