Excel Fonction pour convertir les noms arabe vers l'anglais

Question

A travers ce lien [Excel Function To Convert English Names To Arabic] J'ai essayé d'adapter le code suivant pour traduire les noms de l'arabe à l'anglais

Function Translate_To_English (Rng As Range) As String 
' Tools Refrence Select Microsoft internet Control 


    Dim IE As Object, i As Long 
    Dim inputstring As String, outputstring As String, text_to_convert As String, result_data As String, CLEAN_DATA 

    Set IE = CreateObject("InternetExplorer.application") 
    ' TO CHOOSE INPUT LANGUAGE 

    inputstring = "ar" 

    ' TO CHOOSE OUTPUT LANGUAGE 

    outputstring = "en" 

    text_to_convert = Rng.Text 

    'open website 

    IE.Visible = False 
    IE.navigate "http://translate.google.com/#" & inputstring & "/" & outputstring & "/" & text_to_convert 

    Do Until IE.ReadyState = 4 
     DoEvents 
    Loop 

    Application.Wait (Now + TimeValue("0:00:5")) 

    Do Until IE.ReadyState = 4 
     DoEvents 
    Loop 

    CLEAN_DATA = Split(Application.WorksheetFunction.Substitute(IE.Document.getElementById("result_box").innerHTML, "</SPAN>", ""), "<") 

    For j = LBound(CLEAN_DATA) To UBound(CLEAN_DATA) 
     result_data = result_data & Right(CLEAN_DATA(j), Len(CLEAN_DATA(j)) - InStr(CLEAN_DATA(j), ">")) 
    Next 


    IE.Quit 
    Translate_To_English = result_data 
End Function` 

mais il ne fonctionne pas et dit erreur

this is a screenshot

Toute aide, s'il vous plaît?

Answer 1

Je viens de recevoir un code pour lier Google translate avec Google feuilles.

=GOOGLETRANSLATE(C4, "ar", "en") 

Cela fonctionne mais il donne parfois la signification des noms et le résultat devient si drôle.

Par exemple:

patience Ali Saleh علي صالح صبر

Ali Hussein est ennuyeux علي حسين غثيث

L'âge de l'âge actuel عمر حاضر عمر