Bonjour,
J'ai une fonction de traduction de texte qui fonctionne très bien mais si j'ai des retours à la ligne dans mon texte de base, cela me mets une erreur #valeur.
Est-il possible de faire quelque chose pour ce problème.
Voici mon code :
D'avance merci pour votre aide.
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 Public Function GoogleTranslate(text As String, Optional fromLanguage As String = "en", Optional toLanguage As String = "es") As String Static objHTTP As Object Dim URL As String If objHTTP Is Nothing Then Set objHTTP = CreateObject("MSXML2.XMLHTTP") URL = "https://translate.google.com/m?hl=" & fromLanguage & "&sl=" & fromLanguage & "&tl=" & toLanguage & "&ie=UTF-8&prev=_m&q=" & WorksheetFunction.EncodeURL(text) With objHTTP .Open "GET", URL, False .setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" .Send ("") If InStr(.responseText, "<div class=""result-container""") > 0 Then GoogleTranslate = Clean(RegexExecute(.responseText, "div[^""]*?""result-container"".*?>(.+?)</div>")) Else GoogleTranslate = CVErr(xlErrValue) End If End With End Function
Excellente soirée.
Michael.
Partager