Changer caractère dans TextBox

[Temjeh]

Bonjour et merci à l'avance
(je suis assez tranquille question programmation ces mois-ci)

Dans un TextBox je colle cette adresse:
'http://findaperson.canada411.ca/search/ad/1/-/cZQQstZrougemontQQciZmontrealQQpvZQCQQpcZh1n2r3]Canada 411 - Canada’s People Directory

Je clic sur mon bouton et ca exporte des données de cette page web(via données externe).

Pour lui faire une boucle j'aurais besoin qu'à la fin de mon code l'adresse du TextBox change de 1 chiffre pour looper la page suivante.

Donc il faudrait remplacer le 43 ème caractére à partir de gauche (ici 1) et mettre un 2.

Pour avoir
'http://findaperson.canada411.ca/search/ad/2/-/cZQQstZrougemontQQciZmontrealQQpvZQCQQpcZh1n2r3]Canada 411 - Canada’s People Directory

Ensuite:
'http://findaperson.canada411.ca/search/ad/3/-/cZQQstZrougemontQQciZmontrealQQpvZQCQQpcZh1n2r3]Canada 411 - Canada’s People Directory

Du genre Textbox1.value = Textbox1.value(mais avec +1 du 43ème caractère) à la fin de ma boucle

Merci beaucoup de votre aide

Temjeh

 

[job75]

Re : Changer caractère dans TextBox

Bonjour Temjeh,

J'imagine que la TextBox1 n'est pas destinée à recevoir uniquement l'adresse indiquée. C'est donc une procédure particulière à cette adresse que vous voulez mettre en place (si j'ai bien compris).

Essayez alors d'utiliser le code suivant (s'il y a 3 pages à traiter) :

deb = "http://findaperson.canada411.ca/search/ad/"
fin = "/-/cZQQstZrougemontQQciZmontrealQQpvZQCQQpcZh1n2r3]Canada 411 - Canada’s People Directory"
If TextBox1.Value = deb & 1 & fin Then
For i = 1 To 3
TextBox1.Value = deb & i & fin
-----------------(par exemple : Call Macro1)
Next
Else
-----------------(par exemple : Call Macro1)
End If

A+

 

[Temjeh]

Re : Changer caractère dans TextBox

Merci de ta solution

J'avais juste oublié que le début avant le chiffre a changé ne changeais pas et vu que l'adresse du lien change donc ta solution est bonne pour mon explication mais pas si l'adresse change. Alors tu m'a fait penser a quelque chose avec replace.

For i = 2 To 5
TextBox1.Value = Replace(expression:=TextBox1.Value, Find:="http://findaperson.canada411.ca/search/ad/" & i, Replace:="http://findaperson.canada411.ca/search/ad/" & i + 1)
...macro
next i

Prob régler

A+

Temjeh