Traduction français > anglais avec Google

Bonjour à tous,

Tout d'abord, je vous remercie pour votre site et ce super forum qui m'a dépanné plus d'une fois lors de mon projet.

Cependant, je bloque sur un sujet.

En effet, je souhaite traduire une feuille excel du français vers l'anglais en appuyant sur un bouton.

C'est super, ça marche mais par cellule!

J'ai 89 cellules à traduire et il doit donc se connecter 89 fois à Google pour traduire chaque cellule.

Voici le code (pour la cellule 92) :

If Sheets(onglet).Range("B92") <> "" Then
 result_data = ""
 text_to_convert = Sheets(onglet).Range("B92")
 IE.navigate "http://translate.google.com/#" & inputstring & "/" & outputstring & "/" & text_to_convert
 Do Until IE.ReadyState = 4
 DoEvents
 Loop
 Application.Wait (Now + TimeValue("0:00:2"))
 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
  Sheets(onglet).Range("B92") = Sheets(onglet).Range("B92") & vbLf & result_data
 End If

Y'a-t'il un autre moyen?

Est-ce possible de tout envoyer en une fois ?

Merci beaucoup pour votre attention

Damien

Bonjour,

Un fichier qui pourra peut-être t'apporter une aide.

Cdlt.

Bonsoir Jean-Eric,

Juste un mot : Wahou!

Rapide et efficace!

Je vais m'amuser à intéger le code

Un tout grand merci pour ton aide.

Damien

Re,

Ingrat !...

Même pas un petit cœur pour cette contribution !...

Sinon, pense à clore le sujet.

Cdlt.

Pas un mais deux.

Quelle tuerie cette fonction.

Juste un dernier merci avant de clôturer