Extraire une partie d'adresse web et la faire évoluer | ||
---|---|---|
Inscription: 23/02/2015
Messages:
8
Système d'exploitation: PC Version Excel utilisée: 2013 |
Posté le : 23-02-2015 15h54
Bonjour le forum,
Et ravi d'être parmi vous,
Je viens vers vous afin de sollicité votre savoir en programmation VBA.
J' ai besoin de récupérer des données de plusieurs pages sur un site internet, avec une fin d'adresse changeante.
Comment faire évoluer celle-ci? En sachant que j'ai entre 8,9 ou 10 pages de données à extraire et que l'adresse change en prenant +1 à chaque fois Ex:
Peut-on par interaction HTML, récupérer ce morceau "155176" et le faire évoluer en sachant également que ce numéro peut évoluer d'un jour à l'autre.
MerKi pour vos conseils A tchao
|
|
|
Re: Extraire une partie d'adresse web et la faire évoluer | ||
---|---|---|
Inscription: 17/08/2007
De Québec, Canada
Messages:
180
Système d'exploitation: PC Version Excel utilisée: Excel 2003, 2007 (FR) & MsProject 2003 |
Posté le : 24-02-2015 22h05
Salut le Forum
Tu peux te servir de la fonction SPLIT ID = Split(URL, "id=") Pour URL = "Http://.../../temp?id=155176" ID(0) va te retourner Http://.../../temp? ID(1) va te retourner 155176
Mytå Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre. |
|
|
Re: Extraire une partie d'adresse web et la faire évoluer | ||
---|---|---|
Inscription: 23/02/2015
Messages:
8
Système d'exploitation: PC Version Excel utilisée: 2013 |
Posté le : 25-02-2015 09h47
Bonjour le forum Bonjour Myta
Merci de t'interesser au sujet
Pourrais-tu me donner plus d'informations, car je ne vois pas très bien comment faire évoluer ce morceau d'adresse web?
En autre ici
Merci d'avance |
|
|
Re: Extraire une partie d'adresse web et la faire évoluer | ||
---|---|---|
Inscription: 17/08/2007
De Québec, Canada
Messages:
180
Système d'exploitation: PC Version Excel utilisée: Excel 2003, 2007 (FR) & MsProject 2003 |
Posté le : 25-02-2015 18h22
Re le Forum
Un exemple avec une boucle FOR...NEXT Sub Boucle_Url() Dim Idx As Byte, Url As String, Tablo Url = "Http://.../../temp?id=155176" Tablo = Split(Url, "id=") For Idx = 0 To 5 MsgBox Tablo(0) & "id=" & Tablo(1) + Idx Next Idx End Sub Mytå Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre. |
|
|
Re: Extraire une partie d'adresse web et la faire évoluer | ||
---|---|---|
Inscription: 23/02/2015
Messages:
8
Système d'exploitation: PC Version Excel utilisée: 2013 |
Posté le : 26-02-2015 09h54
Bonjour le forum Et bonjour Myta,
Merci pour cette info, je la teste et reviens vers toi pour te dire si j'ai réussi à l'adapter.
Bonne journée |
|
|