Pb: Nouvelle session ie avec liens hypertexte

[damien]

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

 

[myDearFriend]

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