Translate google API et VBA [Résolu]

[figarojuju]

Bonjour,

Je sollicite votre intelligence afin de m'aider : j'ai dans mon association une feuille XLS qui nous sert de rapport. Hors ce rapport est fait pour des gens qui ne lisent pas le français mais le hindi !!
J'ai essayé de faire appel aux fonctions de l'API de google mais, je suis novice en VBA , et je comprends pas mon erreur...

Voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
 
Sub translateJulien()
textToBeTranslated = Range("A1").Value
    Set objhttp = CreateObject("MSXML2.ServerXMLHTTP")
    URL = "https://www.googleapis.com/language/translate/v2?key=MA_CLE_TRANSLATION_GOOGLE&q=" & textToBeTranslated & "&source=en&target=de"
    objhttp.Open "GET", URL, False
    objhttp.setTimeouts 1000000, 1000000, 1000000, 1000000
    objhttp.send ("")
    Range("A2").Value = objhttp.responseText
End Sub

Pour l'instant, je n'en suis qu'à essayer de comprendre comment ça marche, soyez indulgent . Une belle erreur m'est renvoyée...
Auriez-vous une idée, merci et à très bientôt !

Bonjour,
je me suis dit que je devais préciser mes erreurs :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
// API callback
translateText({
 "error": {
  "errors": [
   {
    "domain": "global",
    "reason": "badRequest",
    "message": "Bad Request"
   }
  ],
  "code": 400,
  "message": "Bad Request"
 }
}
);

Merci et bonne journée

[bbil]

Est tu sur de la validité de ta clef ?

[figarojuju]

Bonjour,
tu as raison, la clé que j'ai utilisé était une clé obsolète. Je l'ai renouvelée, et maintenant ça marche ! Merci beaucoup.

Maintenant, il faut que j'extrais mon texte traduit de :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
// API callback
translateText({
 "data": {
  "translations": [
   {
    "translatedText": "Verehrer"
   }
  ]
 }
}
);

A très bientôt sans doute !

Bonjour,
voici le code final de l'extraction :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub translateJulien()
Dim textToBeTranslated As String
Dim translate As String
 
textToBeTranslated = Range("A1").Value
    Set objhttp = CreateObject("MSXML2.ServerXMLHTTP")
    'var source = https://www.googleapis.com/language/translate/v2?key=IAIzaSyBaJrqCV1r_UA4FnpqhIvq0Uwz5t371juwY&source=fr&target=de&callback=translateText&q=' & textToBeTranslated
 
    URL = "https://www.googleapis.com/language/translate/v2?key=MA_CLE_TRANSLATION_GOOGLE&source=en&target=hi&callback=translateText&q=" & textToBeTranslated
    Call objhttp.Open("GET", URL, False)
    objhttp.setTimeouts 1000000, 1000000, 1000000, 1000000
    Call objhttp.send("")
    translate = objhttp.responseText
    translate = Right(translate, Len(translate) - InStr(1, translate, "translatedText") - 16)
    translate = Left(translate, InStr(2, translate, Chr(34)))
    translate = Replace(translate, """", Chr(39))
    Range("A2").Value = translate
End Sub

Je vais faire une fonction qui prendra en argument la cellule à traduire.
A très bientôt

et voici l'automatisation avec une fonction. Si vous avez des suggestions, elles sont les bienvenues ! Bonne journée

Code :

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
 
Function translateIntoHindi(cellule)
textToBeTranslated = Range(cellule).Value
    Set objhttp = CreateObject("MSXML2.ServerXMLHTTP")
    'var source = https://www.googleapis.com/language/translate/v2?key=IAIzaSyBaJrqCV1r_UA4FnpqhIvq0Uwz5t371juwY&source=fr&target=de&callback=translateText&q=' & textToBeTranslated
 
    URL = "https://www.googleapis.com/language/translate/v2?key=AIzaSyD5s_NZEjhR1R8-HF6thbUqayXMNDoTOwU&source=en&target=hi&callback=translateText&q=" & textToBeTranslated
    Call objhttp.Open("GET", URL, False)
    objhttp.setTimeouts 1000000, 1000000, 1000000, 1000000
    Call objhttp.send("")
    translate = objhttp.responseText
    translate = Right(translate, Len(translate) - InStr(1, translate, "translatedText") - 16)
    translate = Left(translate, InStr(2, translate, Chr(34)))
    translate = Replace(translate, """", Chr(32))
    Range(cellule).Value = translate
End Function
 
Sub translateJulienAutomation()
    Dim i As Integer
    Dim sarray As Variant
    sarray = Array("D", "G", "H", "t")
    For Each tt In sarray
        For i = 1 To 350
            translateIntoHindi (tt & i)
            Next i
        Next tt
End Sub

C'est hallucinant la puissance du code de Google API, je suis juste déçu qu'ils ne supportent pas le langage Marathi pour la V2

[mercatog]

Pour la fonction

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function TranslateIntoHindi(ByVal Txt As String) As String
Dim Objhttp As Object, Translate As String
Dim URL As String
 
Set Objhttp = CreateObject("MSXML2.ServerXMLHTTP")
URL = "https://www.googleapis.com/language/translate/v2?key=AIzaSyD5s_NZEjhR1R8-HF6thbUqayXMNDoTOwU&source=en&target=hi&callback=translateText&q=" & Txt
Call Objhttp.Open("GET", URL, False)
Objhttp.SetTimeouts 1000000, 1000000, 1000000, 1000000
Call Objhttp.Send("")
Translate = Objhttp.ResponseText
Set Objhttp = Nothing
Translate = Mid(Translate, InStrRev(Translate, "translatedText") + 17)
Translate = Left(Translate, InStr(Translate, "}") - 1)
Translate = Replace(Translate, Chr(34), Chr(32))
TranslateIntoHindi = Trim(Translate)
End Function

[figarojuju]

c'est beau du beau code
J'ai une autre question, connaitriez-vous une API pour la translitération ?
la V1 de Google semble ne plus être soutenue...http://code.google.com/apis/language/#Transliteration

Bonne journée