XL 2019 Ouvrir plusieurs hyperliens en même temps?

vgendron

XLDnaute Barbatruc

• 18 Juin 2024

• #2

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

 

Vote positif 0 Vote négatif

R

rttx

XLDnaute Nouveau

• 18 Juin 2024

• #3

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 18 Juin 2024

• #4

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 18 Juin 2024

• #5

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

VB:

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 18 Juin 2024

• #6

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

VB:

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

 

Vote positif 0 Vote négatif

R

rttx

XLDnaute Nouveau

• 18 Juin 2024

• #7

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 18 Juin 2024

• #8

rttx à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

R

rttx

XLDnaute Nouveau

• 19 Juin 2024

• #9

Merci bcp cela fonctionne SUPER !!!!

 

Vote positif 0 Vote négatif

R

rttx

XLDnaute Nouveau

• 20 Juin 2024

• #10

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.

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 20 Juin 2024

• #11

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.

 

Vote positif 0 Vote négatif

Solution

R

rttx

XLDnaute Nouveau

• 20 Juin 2024

• #12

ok merci!

 

Vote positif 0 Vote négatif