Formule translate

Bonjour,

les deux formules ci-dessous renvoient #Nom? et ne fonctionnent pas aussi bien sur Excel 2010 et 2016

=translate("ceci est un texte"; "fr", "en") ou =translate(A1; "fr", "en")

ou

=googletranslate("ceci est un texte"; "fr", "en")

Ca devrait renvoyer le texte traduit en anglais d'après plusieurs exemples que j'ai vu sur le net

Avez-vous une idée ?

Merci de votre aide

ex

Bonjour,

je viens de voir cela sur le Net également :

cells(A1) is Present

=TransulateText(A1,"en","fr")

crdlt,

André

Merci pour ta réponse mais ça ne marche pas chez moi...

Je suppose que tu voulais écrire =translatetext(A1; "en"; "fr") ?

Le résultat de mais recherches, j'ai testé ça fonctionne

Pour changer la langue modifier cette ligne :

Public Function Translate(rng As Range, Optional translateFrom As String = "en", Optional translateTo As String = "fr")

'http://analystcave.com/excel-google-translate-functionality/
'What if I want an UDF?
'The procedure above can easily be converted to a User Defined Function (UDF) instead, allowing you
'to use it as a formula. Be 'sure to copy the required supporting functions (from the sections above) ConvertToGet, Clean and RegexExecute.

' utiliser cette formule dans excel => en B1 par exemple =translate(A1)
'cette ligne traduit de Eng="en" en "fr"
Public Function Translate(rng As Range, Optional translateFrom As String = "en", Optional translateTo As String = "fr")

    Dim getParam As String, trans As String, objHTTP As Object, URL As String
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    getParam = ConvertToGet(rng.Value)
    URL = "https://translate.google.pl/m?hl=" & translateFrom & "&sl=" & translateFrom & "&tl=" & translateTo & "&ie=UTF-8&prev=_m&q=" & getParam
    objHTTP.Open "GET", URL, False
    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.send ("")
    If InStr(objHTTP.responseText, "div dir=""ltr""") > 0 Then
        trans = RegexExecute(objHTTP.responseText, "div[^""]*?""ltr"".*?>(.+?)</div>")
        Translate = Clean(trans)
    Else
        Translate = CVErr(xlErrValue)
    End If
End Function