Bonjour,
Je suis encore débutant en VBA
Je travaille depuis un certain temps à automatiser l'importation de plusieurs pages web sur Excel. mais je me heurte à des difficultés.
La procédure fonctionne mais il arrive souvent qu'il apparaisse l'erreur "Délai de connexion dépassé". Comment faire pour y remédier?
Par ailleurs je souhaiterais importer les codes sources des pages web sur Excel, à partir de quoi je pourrais accéder aux données des liens sélectionnés.
Et Enfin, je trouve l'exécution de la procédure un peu lente (environ 15 mn pour environ 6000 lignes traitées).
Pourriez vous m'aider à trouver des solutions?
ci - dessous la procédure d'importation que j'utilise.
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
Sub req_web_Chev(Chaine As String)
 
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
 
On Error GoTo Erreurs1
 
 
 With Workbooks("Etat Préparatoire Courses").Worksheets("Perf Chev")
 With .QueryTables.Add(Connection:= _
 "URL;" & Chaine, _
 Destination:=.Range("B1048576").End(xlUp).Offset(1, 0))
 
 .BackgroundQuery = True
 .TablesOnlyFromHTML = True
 .Refresh BackgroundQuery:=False
 .SaveData = True
 End With
 End With
 
Exit Sub
 
Erreurs1:
 
Workbooks("Etat Préparatoire Courses").Worksheets("Perf Chev").UsedRange.ClearContents
Call Importations_Chev
 
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic