importer et traduisez un site avec vba

**foulyoo** · 05/03/2020, 18h49

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** · 05/03/2020, 19h40

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