XL 2019 Ouvrir plusieurs hyperliens en même temps?

[rttx]

Bonjour,

J'ai un petit pb avec ma macro, je souhaite ouvrir en même temps plusieurs hyperliens mais il ouvre bien le navigateur mails il télécharge charge uniquement
le doc de la première ligne (comme si il s'arrêtait juste sur la 1ère ligne ???) alors que j'ai bien une boucle ds ma macro (inspiré depuis le net ;-)) )
merci pr votre aide,
surement un truc tout bête !!!

PS: A l'exécution de la macro, il ouvre une pop-up demandant le range , je saisis sous le format
$A$1:$A$5

 

[vgendron]

Hello
tu te rends compte que la, tu donnes accès libre à des tickets ciné non nominatifs que n'importe qui peut récuperer??
supprimes ton fichier

supprimes aussi la ligne on error resume next qui ne te donne aucune info lorsqu'il y a un bug dans la macro

 

[rttx]

Oui je sais je n'avais pas le choix pour expliquer mon pb !! :-((

 

[vgendron]

perso, quand j'ai executé la macro,
ca m'a bien ouvert le premier lien

ensuite, comme je te disais, si il y a une erreur, le "on error resume next' bypasse cette erreur et la macro se termine sans que tu saches ce qui s'est mal passé

execute ta macro pas à pas, pour voir ou ca bug
sinon, la boucle me semble ok

 

[vgendron]

execute ceci.. tu devrais voir pourquoi tu n'as pas tous les liens

Sub OpenHyperLinks()
    Dim xHyperlink As Hyperlink
    Dim WorkRng As Range
    'On Error Resume Next
    xTitleId = "OpenHyperlinksInExcel"
    'Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, Type:=8)
    MsgBox "Nb de liens hypertextes: " & WorkRng.Hyperlinks.Count
    
    'For Each xHyperlink In WorkRng.Hyperlinks
    '    xHyperlink.Follow
   ' Next
End Sub

 

[vgendron]

en fait ce que tu penses etre un lien hypertexte, n'en est pas un
ce sont juste des chaines de caractères (si tu doubles clic dedans, excel va les reconnaitre et les transformer automatiquement en lien hypertexte)
pour t'en affranchir ceci devrait regler ton problème

Sub OpenHyperLinks()
    Dim xHyperlink As Hyperlink
    Dim WorkRng As Range
    'On Error Resume Next
    xTitleId = "OpenHyperlinksInExcel"
    'Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, Type:=8)
    MsgBox "Nb de liens hypertextes: " & WorkRng.Hyperlinks.Count
    
    For Each chaine In WorkRng
        ThisWorkbook.FollowHyperlink chaine, NewWindow:=False, AddHistory:=True
    Next chaine
    
    
'    For Each xHyperlink In WorkRng.Hyperlinks
'
'        xHyperlink.Follow
'    Next
End Sub

 

[rttx]

Merci pour ton aide !! je ferai un test demain au moins as-tu pu avoir qqs places gratos ? ;-))
encore désolé!

 

[vgendron]

Merci pour ton aide !! je ferai un test demain au moins as-tu pu avoir qqs places gratos ? ;-))
encore désolé!

t'inquiète, je les ai supprimées

 

[rttx]

Merci bcp cela fonctionne SUPER !!!!

 

[rttx]

Bjr,
Une petite remarque:

Est-il possible de conserver les onglets ouverts ds le navigateur ?

Car l'utilisateur souhaiterait garder pour chaque pdf (ex 10 de téléchargés) chaque nouvel onglet ouvert ds son navigateur (en fait , autant d'onglets ouverts qu'il y a de pdf à télécharger).
Actuellement, l'ouverture de chaque onglet se fait bien correspondant au téléchargement de chaque pdf mais une fois le pdf téléchargé, l'onglet se referme.
J'ai essayé de mettre à True (ds NewWindow:=False) mais cela ne change rien.
Merci.

 

[vgendron]

Hello

je pense que l'enregistrement "forcé" des pdf est sans doute provoqué par le site lui-même, ou tes options de navigations internet.

 

[rttx]

ok merci!