Bonjour,
je souhaite mettre un hyperlien vers une page internet dans une cellule.
Le problème est que le lien fait 511 caractères et que la page ne
s'ouvre pas.
Y a-t-il une astuce pour "contourner" la longueur du lien (en nombre de
caractères?
Merci d'avance.
--
cdavid33@gmail.com ou cdavid33@mac.com au choix ;^)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Tu mets un nom quelconque en "imitation" hyperlien (bleu souligné). Ta ajoutes la macro suivante dans le code de la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub If Target.Count > 1 Then Exit Sub ActiveWorkbook.FollowHyperlink Address:="http://TonAdresseLongue" End Sub Si ton adresse est encore trop longue pour tenir sur une seule ligne, tu la coupe en autant de sous-chaines que nécessaire : ActiveWorkbook.FollowHyperlink Address:="http://TonAdresse", _ "Longue" De sorte qu'en cliquant sur la cellule (A1 dans la macro), le lien s'activera. Cordialement. Daniel "Christian" a écrit dans le message de news: 1hs1ur1.rvtvp8bm1c74N%
Bonjour, je souhaite mettre un hyperlien vers une page internet dans une cellule. Le problème est que le lien fait 511 caractères et que la page ne s'ouvre pas. Y a-t-il une astuce pour "contourner" la longueur du lien (en nombre de caractères?
Merci d'avance.
-- ou au choix ;^)
Bonjour.
Tu mets un nom quelconque en "imitation" hyperlien (bleu souligné).
Ta ajoutes la macro suivante dans le code de la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Count > 1 Then Exit Sub
ActiveWorkbook.FollowHyperlink Address:="http://TonAdresseLongue"
End Sub
Si ton adresse est encore trop longue pour tenir sur une seule ligne, tu la
coupe en autant de sous-chaines que nécessaire :
ActiveWorkbook.FollowHyperlink Address:="http://TonAdresse", _
"Longue"
De sorte qu'en cliquant sur la cellule (A1 dans la macro), le lien
s'activera.
Cordialement.
Daniel
"Christian" <cdavidnn@club-internet.fr> a écrit dans le message de news:
1hs1ur1.rvtvp8bm1c74N%cdavidnn@club-internet.fr...
Bonjour,
je souhaite mettre un hyperlien vers une page internet dans une cellule.
Le problème est que le lien fait 511 caractères et que la page ne
s'ouvre pas.
Y a-t-il une astuce pour "contourner" la longueur du lien (en nombre de
caractères?
Merci d'avance.
--
cdavid33@gmail.com ou cdavid33@mac.com au choix ;^)
Bonjour. Tu mets un nom quelconque en "imitation" hyperlien (bleu souligné). Ta ajoutes la macro suivante dans le code de la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub If Target.Count > 1 Then Exit Sub ActiveWorkbook.FollowHyperlink Address:="http://TonAdresseLongue" End Sub Si ton adresse est encore trop longue pour tenir sur une seule ligne, tu la coupe en autant de sous-chaines que nécessaire : ActiveWorkbook.FollowHyperlink Address:="http://TonAdresse", _ "Longue" De sorte qu'en cliquant sur la cellule (A1 dans la macro), le lien s'activera. Cordialement. Daniel "Christian" a écrit dans le message de news: 1hs1ur1.rvtvp8bm1c74N%
Bonjour, je souhaite mettre un hyperlien vers une page internet dans une cellule. Le problème est que le lien fait 511 caractères et que la page ne s'ouvre pas. Y a-t-il une astuce pour "contourner" la longueur du lien (en nombre de caractères?
Merci d'avance.
-- ou au choix ;^)
Daniel
Oups. Au lieu de : ActiveWorkbook.FollowHyperlink Address:="http://TonAdresse", _ "Longue" lire : ActiveWorkbook.FollowHyperlink Address:="http://TonAdresse" & _ "Longue"
"Daniel" a écrit dans le message de news: %
Bonjour. Tu mets un nom quelconque en "imitation" hyperlien (bleu souligné). Ta ajoutes la macro suivante dans le code de la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub If Target.Count > 1 Then Exit Sub ActiveWorkbook.FollowHyperlink Address:="http://TonAdresseLongue" End Sub Si ton adresse est encore trop longue pour tenir sur une seule ligne, tu la coupe en autant de sous-chaines que nécessaire : ActiveWorkbook.FollowHyperlink Address:="http://TonAdresse", _ "Longue" De sorte qu'en cliquant sur la cellule (A1 dans la macro), le lien s'activera. Cordialement. Daniel "Christian" a écrit dans le message de news: 1hs1ur1.rvtvp8bm1c74N%
Bonjour, je souhaite mettre un hyperlien vers une page internet dans une cellule. Le problème est que le lien fait 511 caractères et que la page ne s'ouvre pas. Y a-t-il une astuce pour "contourner" la longueur du lien (en nombre de caractères?
Merci d'avance.
-- ou au choix ;^)
Oups.
Au lieu de :
ActiveWorkbook.FollowHyperlink Address:="http://TonAdresse", _
"Longue"
lire :
ActiveWorkbook.FollowHyperlink Address:="http://TonAdresse" & _
"Longue"
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23XJZ2UaOHHA.1248@TK2MSFTNGP03.phx.gbl...
Bonjour.
Tu mets un nom quelconque en "imitation" hyperlien (bleu souligné).
Ta ajoutes la macro suivante dans le code de la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Count > 1 Then Exit Sub
ActiveWorkbook.FollowHyperlink Address:="http://TonAdresseLongue"
End Sub
Si ton adresse est encore trop longue pour tenir sur une seule ligne, tu
la coupe en autant de sous-chaines que nécessaire :
ActiveWorkbook.FollowHyperlink Address:="http://TonAdresse", _
"Longue"
De sorte qu'en cliquant sur la cellule (A1 dans la macro), le lien
s'activera.
Cordialement.
Daniel
"Christian" <cdavidnn@club-internet.fr> a écrit dans le message de news:
1hs1ur1.rvtvp8bm1c74N%cdavidnn@club-internet.fr...
Bonjour,
je souhaite mettre un hyperlien vers une page internet dans une cellule.
Le problème est que le lien fait 511 caractères et que la page ne
s'ouvre pas.
Y a-t-il une astuce pour "contourner" la longueur du lien (en nombre de
caractères?
Merci d'avance.
--
cdavid33@gmail.com ou cdavid33@mac.com au choix ;^)
Oups. Au lieu de : ActiveWorkbook.FollowHyperlink Address:="http://TonAdresse", _ "Longue" lire : ActiveWorkbook.FollowHyperlink Address:="http://TonAdresse" & _ "Longue"
"Daniel" a écrit dans le message de news: %
Bonjour. Tu mets un nom quelconque en "imitation" hyperlien (bleu souligné). Ta ajoutes la macro suivante dans le code de la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub If Target.Count > 1 Then Exit Sub ActiveWorkbook.FollowHyperlink Address:="http://TonAdresseLongue" End Sub Si ton adresse est encore trop longue pour tenir sur une seule ligne, tu la coupe en autant de sous-chaines que nécessaire : ActiveWorkbook.FollowHyperlink Address:="http://TonAdresse", _ "Longue" De sorte qu'en cliquant sur la cellule (A1 dans la macro), le lien s'activera. Cordialement. Daniel "Christian" a écrit dans le message de news: 1hs1ur1.rvtvp8bm1c74N%
Bonjour, je souhaite mettre un hyperlien vers une page internet dans une cellule. Le problème est que le lien fait 511 caractères et que la page ne s'ouvre pas. Y a-t-il une astuce pour "contourner" la longueur du lien (en nombre de caractères?
Merci d'avance.
-- ou au choix ;^)
cdavidnn
Daniel wrote:
Bonjour. [...]
Cordialement. Daniel Merci encore !
-- ou au choix ;^)
Daniel <dZZZcolardelle@free.fr> wrote:
Bonjour.
[...]
Cordialement.
Daniel
Merci encore !
--
cdavid33@gmail.com ou cdavid33@mac.com au choix ;^)
