Ouvrire plusieurs URL en même temps

Bsr à tous ,

svp est-il possible ouvrier plusieurs liens en même temps exemple : 20 liens

en ajoutons +1 a la fin de lien

https://forum.excel-pratique.com/post/nouveau/1

https://forum.excel-pratique.com/post/nouveau/2

https://forum.excel-pratique.com/post/nouveau/n+1

exemple dans la cellule Q = 1 si en clic sur le bouton en même temps ouvrire 20 liens de : https://forum.excel-pratique.com/post/nouveau/1 jusqau...... https://forum.excel-pratique.com/post/nouveau/20

Sub LienWEB()
Dim sURL As String, sContact As String
sURL = "https://forum.excel-pratique.com/post/nouveau/1"
sContact = Range("Q" & ActiveCell.Row).Value
If sContact <> "" Then
ThisWorkbook.FollowHyperlink Address:=sURL & sContact, NewWindow:=True
End If
End Sub

merci

Salut

en supposant comprendre:

Sub LienWEB()
Dim sURL As String, sContact As String

For i = 1 to 20
sURL = "https://forum.excel-pratique.com/post/nouveau/" & i
sContact = Range("Q" & ActiveCell.Row).Value
If sContact <> "" Then
ThisWorkbook.FollowHyperlink Address:=sURL & sContact, NewWindow:=True
End If
next
End Sub

Merci mais le code fonctionne par x10

exemple 10 , 20, 30, si je met 0 si je met 1 fonctionne 11,21,31,...

puis il arrête est un message erreur apparaitre

eur

Peut-il me corriger le code

merci

Re,

Salut mais euhh, je comprends rien de ce que tu dis

merci

bsr

voir exemple comment il fonctionne le code : 11,21,31,41,....

je veux successive 1,2,3,4,5......

merci

3test-vba.xlsm (15.75 Ko)

Bjr

aucune reponse ou aide

merci

Rechercher des sujets similaires à "ouvrire url meme temps"