Discussion :

[foulyoo]

salut les amis est(ce que c'est possible de traduire un site russe vers l'anglais et le copier directement sur page Excel
j'utilise ce code il marche correctement mais avec la langue russe et moi je le veux en anglais si possible et merci d'avance

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
23
24
25
26
27
28
29
30
31
32
Sub DOWNLOADsite()
Call A
Call truelist
Dim straddress As String
straddress = Sheets("set").Range("a1").Value
Sheets("site").Select
Sheets("site").Range("A1:d1500").clear
            With ActiveSheet.QueryTables.Add(Connection:= _
            "URL;" & straddress _
            , Destination:=Range("a1"))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = True
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        End With
        Call sortersite
End Sub

[mfoxy]

Hello,

Pourrais-tu fournir l'URL du site Web ?

Il serait peut-être possible de modifier directement dans l URL la langue du site, ou via un bouton sur celui-ci ?

Sinon, PatrickToulon avait déposer sur ce forum, une fonction permettant de traduire des chaînes de caractères via Google translate, qui pourrait-être utile si la première approche n'est pas réalisable.

https://www.developpez.net/forums/d1...nslate-google/

Bat,
Mfoxy

[foulyoo]

le url est :

https://nb-bet.com/Default?ShowTool=True

[mfoxy]

Hello,

Sans certitude essaie peut-être avec l URL
Traducteur de site google

https://translate.googleusercontent....hv5CNCVxseg5IA

[foulyoo]

merci pour ton essai mais il ne marche pas

[mfoxy]

Hello,

Alors des news, es-tu arrivé à tes fins avec la fonction translate fournie ?

[mfoxy]

Re,

Je reviens vers toi à ce sujet, lorsque l'on tente de "traduire" ta feuille Excel, Excel ne reconnait pas les caractères "Cyrillic" et donc sort un résultat "??????"


Pièce jointe 543845

Pour corriger la chose sur ton PC :

https://answers.microsoft.com/en-us/...7-67e35022247f

Losrque tu auras corriger/modifier tes paramètres, le code suivant devrait faire le job ;-)
(Je te laisse le soin de corriger la plage dans la boucle)

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
23
24
25
26
27
28
29
30
Sub test()
 
Dim cel As Range
 
 For Each cel In Worksheets("site").Range("A1:A10") ' ("A1:A10") à modifier par ta plage
     cel.Value = Translate(urlI:="https://translate.google.pl/m?&sl=ru&tl=fr&ie=UTF-8&prev=_m&q=" & cel.Value)
 Next cel
 
End Sub
 
Public Function Translate(Optional texte As String, Optional From As String = "en", Optional ToLang As String = "fr", Optional urlI As String)
    'PatrickToulon DVP
    Dim RQ As Object, URL As String, code As String, elem As Object, x As Long
    Set RQ = CreateObject("microsoft.xmlhttp")    '"MSXML2.ServerXMLHTTP"
    If urlI <> "" Then
        URL = urlI
    Else
        URL = "https://translate.google.pl/m?&sl=" & From & "&tl=" & ToLang & "&ie=UTF-8&prev=_m&q=" & texte
    End If
    RQ.Open "POST", URL, False
    RQ.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    RQ.send
    With CreateObject("htmlfile")
        .body.innerhtml = RQ.responsetext
        Debug.Print Replace(RQ.responsetext, "<>", ">" & vbCrLf & "<")
        For Each elem In .ALL
            If elem.Tagname = "DIV" And elem.classname = "t0" Then Translate = elem.innerhtml: Exit For
        Next
    End With
End Function