Pb: Nouvelle session ie avec liens hypertexte

  • Initiateur de la discussion Initiateur de la discussion damien
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

damien

Guest
Bonjour à tous,

J'utilise un fichier excel avec des liens hypertexte qui pointent vers des URL sur le web. Mon problème est qu'à chaque fois qu'on clique sur un lien, mon navigateur démarre une nouvelle session alors que je souhaiterais rester dans la session déja ouverte lorsqu'il y en a une.

J'utilise Excel 2000 sous windows XP familiale (et Pro), et internet explorer 6.0.

Vous pouvez tester ce phénomène avec le fichier joint :
Sur mon poste, lorsque je clique sur le 1er lien, internet explorer démarre et m'affiche la page d'accueil de google,
lorsque je clique ensuite sur le 2ème lien, une 2è-me session s'ouvre sur excel_downloads, indépendamment de la 1ère session déja ouverte.

C'est ennuyeux pour moi car je comptais utiliser une feuille excel pour accéder à différentes pages d'un site protégé par login et mot de passe, et le fait de rester dans la même session me permettrait de ne pas avoir à me reconnecter quand je veux passer d'une page à l'autre.

Merci beaucoup pour les conseils que vous pourrez m'apporter

A bientôt
Damien
 

Pièces jointes

Bonsoir Damien,


Ci-joint un exemple pouvant servir de base pour résoudre ton problème...

N'ayant pu trouver de solution avec les liens classiques dans la feuille Excel, j'ai contourné le problème en insérant de FAUX liens dans cette page et en appliquant le code ci-dessous pour en assurer l'affichage dans Internet Explorer.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static IE As Object
   'S'assure qu'on se situe en colonne A
   If Application.Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
   'S'assure qu'une seule cellule est sélectionnée
   If Target.Count > 1 Then Exit Sub
   'S'assure que la cellule contient une valeur
   If Target.Value = "" Then Exit Sub
   On Error GoTo Erreur
   'Affiche le lien dans Internet Exploreur
   IE.Visible = True
   IE.Navigate Target.Value
   Target.Hyperlinks.Delete
Exit Sub
Erreur:
   'Définit l'objet IE
   Set IE = CreateObject("InternetExplorer.Application")
   Resume
End Sub


Cordialement.

Didier_mDF
myDearFriend-3.gif
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
  • Question Question
Réponses
4
Affichages
1 K
NickBerg
N
Retour