XL 2016 Traduire le contenu d'une cellule (Fr - En)

[SebCam]

Bonsoir à tous. Nouveau ici et débutant en VBA. Je cherche un moyen pour traduire une chaîne de caractères d'une cellule "B3" (Le chat mange) ouvrir google traduction pour effectuer la traduction, et récupérer la traduction dans la cellule voisine "D3". Merci de votre aide.

 

[soan]

=>Staple : à propos de la chronologie que tu as mentionnée,
il y a eu une méprise : j'ai édité mon post #12 et je te laisse
le relire.

soan

 

[Staple1600]

Re

=>SebCam
Pour éviter les allers et retours dans les archives, je remets le lien ici
Excel 2016 sait traduire en natif (apparemment)

 

[soan]

=>SebCam : à propos de ton post #13, NOM? vient peut-être
de la fonction .msi qui a été évoquée dans la conversation
du lien que tu as suivi ?

---

essaye le lien de mon post #12, en particulier les 3 derniers
posts ; dont celui de Jean-Eric, qui contient ce fichier Excel .xlsm :

transalte-google-vba.xlsm (27.00 Ko)

voici le lien du post de Jean-Eric, du 8 juillet 2018 à 11:10.

nota bene : j'ai pu vérifier que le fichier joint est bien disponible.

soan

 

[Staple1600]

Re

=>SebCam
Si tu as bien Excel 2016, la fonction Traduire est native sur le ruban.
Est-ce que sur ce que tu vois sur ton ruban est identique à ce qu'on voit sur le site de Microsoft?
(cf lien message#17)

 

[Staple1600]

Re

=>SebCam
Moi qui suis sur Excel 2013, je viens de voir que j'avais accès à cette fonctionnalité
Merci donc pour ton post
Si je l'ai sur Excel 2013, tu dois l'avoir sur Excel 2016, non ?

 

[SebCam]

Re, 2016 Pro, cette traduction est bien pour Outlook. Si vous voulez, j'ai un fichier Excel où je dois saisir une fiche signalétique de pièces de rechange, pour la gestion de stock. Description article, Code SAP, Qté mini et maxi, Fournisseur, Référence fournisseur.
Le comble, les codifications doivent être renseignées en anglais en plus, pour la société qui nous ont racheté.

 

[Staple1600]

Re

=>SebCam
PS: J'ai édité mon précédent message.
Tu n'as pas cela sur ton menu?
Dans l'onglet Révision

 

[SebCam]

J'ai trouvé ceci :

Sub GoogTranslate()

' Microsoft HTML Object et Microsoft Internet Control de cochés

Dim IE As Object, Trans As String, snarT As String
Dim I As Long, LastA As Long, checkBack As Boolean

Trans = Range("G1").Value
checkBack = True '<<< traduction inverse True /False
'
snarT = "#" & Mid(Trans, 5, 3) & Mid(Trans, 2, 3)
Set IE = CreateObject("InternetExplorer.Application")
LastA = Cells(Rows.Count, 1).End(xlUp).Row
For I = 2 To LastA
If Cells(I, 1) <> "" Then
With IE
.Visible = True
.Navigate "https://translate.google.fr/" & Trans & Cells(I, 1).Value
Application.Wait (Now + TimeValue("0:00:01"))
Do While .Busy: DoEvents: Loop
Do While .readyState <> 4: DoEvents: Loop

.Cells(I, 2).Value = .Document.all("result_box").innerHTML ' Copie le contenu de la boîte

If checkBack Then
.Navigate "https://translate.google.fr/" & snarT & Cells(I, 2).Value
Application.Wait (Now + TimeValue("0:00:01"))
Do While .Busy: DoEvents: Loop
Do While .readyState <> 4: DoEvents: Loop
Cells(I, 3).Value = .Document.all("result_box").innerText
End If
End With
End If
Next I
IE.Quit
Set IE = Nothing
End Sub

Mais cela bug ici : .Cells(I, 2).Value = .Document.all("result_box").innerHTML

J'ai regardé dans les préférence de la page VBA, tout me semble y être :

 

[soan]

@SebCam

je crois que tu as zappé mon post #18.

je te laisse le (re)lire, car je l'ai beaucoup
modifié et complété.

soan

 

[Staple1600]

Re

=>SebCam
Tu n'as pas répondu à ma question du message#22

J'ai testé la traduction directement dans Excel (sans macro)
J'ai mis chaise en A1
Et j'obtiens: chair comme traduction

 

[SebCam]

Ok soan, .msi oui vu mais consiste en quoi?
Staple pas ce complément traducteur. je pense que traduire "La chaise est sous la table" il le fait sans problème, mais à l'écrire dans la cellule B1?

 

[Staple1600]

Re

=>SebCam
Donc voici un exemple de traduction depuis Excel (sans macro)

 

[soan]

@SebCam, Staple,

* selon l'énoncé, il faudrait une traduction de B3 en D3

* selon le post #21, il semble s'agir de la Description article
(pièces de rechange) ; mais références de cellules non indiquées !

* selon le code VBA du post #23 : de Cells(i, 1) en Cells(i, 3) ?

* selon le post #26 : traduction de A1 en B1

y'a le choix, quoi !

soan

 

[Staple1600]

Re

Laissons la parole au monsieur du post#8.
Qui explique bien des choses.
Et entre autres choses, pourquoi (si j'étais moi) pour le moment, je traduirai nativement avec Excel.

 

[SebCam]

Re , pour le test, j'ai A1 à A9 le texte en français, que je cherche à rapatrier en colonne B la traduction. L'ouverture de la page web google traduction se fait, la phrase en français s'y met et est traduite. Il reste la copie qui ne se s'effectue pas vers la cellule destination.