Ouvrire url successive

je veux : URL/1 , URL/2 , URL/3 ...

merci

Bonjour toutes et tous

pas trop compris, j'ai testé comme ceci cela fonctionne @tester

Option Explicit

Sub LienWEB()
Dim sURL, sContact As String
On Error Resume Next
Dim i, j As Integer
 For j = 1 To 10
sURL = "https://forum.excel-pratique.com/excel/" & i
sContact = Range("Q" & ActiveCell.Row).Value & (j)
If sContact <> "" Then
ThisWorkbook.FollowHyperlink Address:=sURL & sContact, NewWindow:=True
End If
Next j
End Sub

crdlt,

André

Merci bcp ca marche bien....

Est-il possible de changer le code pour qu'il soit quand je mettais dans la cellule Q2 un chiffre de départ exemple : 100

le code ouvre les page 100,101,102,...... 150. si For j = 1 To 50

merci

Re, Bonne année à toutes et tous

j'ai bidouillé cela à l'air de fonctionné (Sheet1 ==> cellule Q2)

Option Explicit

Sub LienWEB()
Dim sURL, sContact As String
On Error Resume Next
Dim i, j As Integer
Dim valeur As Integer
valeur = Range("Q2").Value
i = 1 '+ j
 For j = 1 To 10
sURL = "https://forum.excel-pratique.com/excel/" & j + 1 ' & j '& i
'sContact = ActiveCell.Value + 1 ' & (i)  ' * 1
'If sContact <> "" Then
'ThisWorkbook.FollowHyperlink Address:=sURL & sContact, NewWindow:=True
'End If
If sURL <> "" Then
ThisWorkbook.FollowHyperlink Address:=sURL & sContact, NewWindow:=True
End If
Next j
End Sub

crdlt,

André

Re,

Il faudrait partir sur un message box (InputBox) combien doit-on ouvrir l'url puis, démarrer de la valeur de la cellule Q1

un truc du genre :

Option Explicit

Sub LienWEB()
' il reste plus que l'incrementation de la cellule Q1
Dim numero As Long
Dim sURL, sContact As String
Dim valeur, Cpt, essai, j As Integer

On Error Resume Next ' facultatif
numero = Application.InputBox("Entrez un nombre entier : ", "Saisie numérique", Type:=1)

Cpt = Cpt + 1
valeur = Range("Q1").Value
 For j = Cpt To numero

essai = numero + j - 1
sURL = "https://forum.excel-pratique.com/excel/" & valeur & essai

If sURL <> "" Then
ThisWorkbook.FollowHyperlink Address:=sURL & sContact, NewWindow:=True
End If
Next j
End Sub

Je n'ai plus les idées claires là, sorry