Discussion :

[Nonno 94]

Bonjour le forum,

je viens solliciter votre aide pour modifier, si cela est possible, un code qui me permet de télécharger des données dans des pages Internet.

Le code que j'utilise est le suivant :

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 Import_Cours_Historique()
 
    With Sheets("Cours Hist 1")                 'URL = Valeur de la cellule "L3"
        With .QueryTables.Add( _
             Connection:="URL;http://bourse.lesechos.fr/bourse/details/donnees_histo.jsp?fw3_component=dataList&fw3_autonomous=/bourse/details/donnees_histo-view.jsp&dataList_pageNum=1&&place=XPAR&code=FR0000120404&OFFSET_START_RANGE=-36&CODE_RESOLUTION=WEEK&codif=ISIN", _
             Destination:=.Cells(2, 2))
            .BackgroundQuery = True
            .WebSelectionType = xlSpecifiedTables
            .WebTables = "11"
            .TablesOnlyFromHTML = True
            .WebDisableDateRecognition = True
            .Refresh BackgroundQuery:=False
            .SaveData = True
        End With
    End With
 
    With Sheets("Cours Hist 2")                 'URL = Valeur de la cellule "N3"
        With .QueryTables.Add( _
             Connection:="URL;http://bourse.lesechos.fr/bourse/details/donnees_histo.jsp?fw3_component=dataList&fw3_autonomous=/bourse/details/donnees_histo-view.jsp&dataList_pageNum=2&&place=XPAR&code=FR0000120404&OFFSET_START_RANGE=-36&CODE_RESOLUTION=WEEK&codif=ISIN", _
             Destination:=.Cells(2, 2))
            .BackgroundQuery = True
            .WebSelectionType = xlSpecifiedTables
            .WebTables = "11"
            .TablesOnlyFromHTML = True
            .WebDisableDateRecognition = True
            .Refresh BackgroundQuery:=False
            .SaveData = True
        End With
    End With
End Sub

Il me permet de télécharger les données de la valeur

FR0000120404

.

Si je veux télécharger les mêmes données pour la valeur

FR0010340141

il me faut changer les "URL" dans la macro.

Pour l'éviter, j'ai essayé de modifier sans succès le code de la macro en "écrivant" que les nouvelles "URL" se trouvent dans 2 cellules : "L3" et "N3".
Soit pour la 1 ère :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        With .QueryTables.Add( _
             Connection:="L3", _
             Destination:=.Cells(2, 2))

Ainsi que vous vous en doutez, cela ne "marche pas".

Est-ce possible ? Si oui, comment ?

Afin de vous permettre de vous pencher sur mon problème, je vous joins mon fichier d'essai.

Je vous remercie par avance pour vos réponses.
Cordialement.

Nonno 94.

[parmi]

Si toute l'adresse URL est en L3, tu pourrais essayer ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
       With .QueryTables.Add( _
             Connection:="URL;" & Range("L3"), _
             Destination:=.Cells(2, 2))

[Nonno 94]

Bonjour Parmi et chaleureux remerciements pour votre réponse qui répond parfaitement à ma demande.

C'est avec grand plaisir que j'ai ajouté "résolu" pour cette discussion.
Encore bravo pour votre expertise.

Cordialement.
Nonno 94.