Import données site web : Amélioration code

Version imprimable

Bonjour à tous
A l'aide de l'enregistreur automatique j'ai obtenu un code me permet d'importer les données d'un site internet ; ce code prend du temps lors de l'exécution et j'ai constaté lors de l'enregistrement du code que le téléchargement passe par internet Explorer et non pas par google chrome (je sais pas si le fait de passer par chrome réduire le temps d'exécution)
Je suis preneur de toutes solution
merci à vous tous, merci developpez.net :D

Code:

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
33
34
35
36
37
Sub ImportCoursBCT()
Application.ScreenUpdating = False
Dim a As Long
With Sheets("COURS")
a = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A1:D" & a).Select
 Selection.ClearContents
 
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://www.bct.gov.tn/bct/siteprod/cours.jsp", Destination:=Sheets("COURS").Range( _
        "$A$1"))
        .Name = "cours"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "1"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
 
End With
    Application.ScreenUpdating = True
End Sub

Bonne journée

25/10/2017, 11h38
Marc-L

Bonjour Ben !

Excel étant une application Microsoft, Internet Explorer étant aussi une application Microsoft, ceci expliquant cela …

Chrome en VBA à oublier sauf via l'add-on selenium (et là voir directement sur son forum pour des questions).

Sinon utiliser l'outil d'inspection d'Internet Explorer pour voir la requête appliquée lors du chargement de la page
afin de la reproduire en VBA (voir les tutoriels et les exemples dans les discussions de ce forum).

Ou encore à partir d'Excel 2010 via PowerQuery …

Power Query : Import Data from Web Pages

Utilisation des outils de développement F12
Analyse du trafic réseau de votre page Web

VBA et développement Web …

___________________________________________________________________________________________________________
Je suis Paris, Mogadicio, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
25/10/2017, 11h49
BENNASR

Bonjour MARC,
Merci de cette réponse claire
je vais voir les liens et je reviens en cas de progression
BONNE JOURNÉE

Bonjour
peut etre que cela sera plus rapide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub IMPORTATION()
    Dim ReQ, shap, mémorisation, CodeHtMl
    Set ReQ = CreateObject("microsoft.xmlhttp")
    With ReQ
        .Open "post", "https://www.bct.gov.tn/bct/siteprod/cours.jsp", False: .send
        CodeHtMl = ReQ.responsetext
        With CreateObject("htmlfile")
            .body.innerhtml = CodeHtMl 
            mémorisation = .parentwindow.clipboardData.setData("Text", .getelementsbytagname("TABLE")(1).outerhtml)
            With Sheets("COURS")
                .Activate: .Cells(1, 1).Select .Paste
                ' netoyage des shapes vides qui seront de toute facon vide daans le sheets
                For Each shap In .Shapes
                    If shap.Name Like "*Auto*" Then shap.Delete
                Next
            End With
        End With
    End With
End Sub

25/10/2017, 15h10
BENNASR

Bonsoir patrick, la forum
ça fonctionne à merveille
merci :aie: