Le probl=E8me suivant se produit seulement quand le fichier=20
excel est ouvert dans Internet Explorer avec un lien...
Une fois que le document excel est ouvert, il y a un lien=20
hypertexte dans celui-ci qui pointe vers un autre lien=20
http. Il faudrait que ce lien hypertexte s'ouvre dans une=20
nouvelle fen=EAtre, car pr=E9sentement la page s'ouvre et=20
remplace le fichier excel d=E9j=E0 ouvert sans demander=20
d'enregistrer...les usagers perdent ainsi leurs=20
modifications apport=E9es
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
Denis Michon
Bonsoir Bruni,
Dans la feuille module où l'action se déroule, copie ce qui suit :
Dans mon exemple, j'ai supposé que la cellule A5 contenait une adresse Internet valide.
Reste à tester si ceci est fonctionnel à partir d'un site internet.
'---------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Not Intersect(Range("A5"), Range(Target.Parent.Address)) Is Nothing Then Application.EnableEvents = False Target.Follow NewWindow:=True Application.EnableEvents = True End If
End Sub '----------------------------
Salutations!
"Bruni" a écrit dans le message de news:1fa501c49a74$bc8b8300$ Le problème suivant se produit seulement quand le fichier excel est ouvert dans Internet Explorer avec un lien... Une fois que le document excel est ouvert, il y a un lien hypertexte dans celui-ci qui pointe vers un autre lien http. Il faudrait que ce lien hypertexte s'ouvre dans une nouvelle fenêtre, car présentement la page s'ouvre et remplace le fichier excel déjà ouvert sans demander d'enregistrer...les usagers perdent ainsi leurs modifications apportées
Bonsoir Bruni,
Dans la feuille module où l'action se déroule, copie ce qui suit :
Dans mon exemple, j'ai supposé que la cellule A5 contenait une adresse Internet valide.
Reste à tester si ceci est fonctionnel à partir d'un site internet.
'----------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Not Intersect(Range("A5"), Range(Target.Parent.Address)) Is Nothing Then
Application.EnableEvents = False
Target.Follow NewWindow:=True
Application.EnableEvents = True
End If
End Sub
'----------------------------
Salutations!
"Bruni" <anonymous@discussions.microsoft.com> a écrit dans le message de news:1fa501c49a74$bc8b8300$a501280a@phx.gbl...
Le problème suivant se produit seulement quand le fichier
excel est ouvert dans Internet Explorer avec un lien...
Une fois que le document excel est ouvert, il y a un lien
hypertexte dans celui-ci qui pointe vers un autre lien
http. Il faudrait que ce lien hypertexte s'ouvre dans une
nouvelle fenêtre, car présentement la page s'ouvre et
remplace le fichier excel déjà ouvert sans demander
d'enregistrer...les usagers perdent ainsi leurs
modifications apportées
Dans la feuille module où l'action se déroule, copie ce qui suit :
Dans mon exemple, j'ai supposé que la cellule A5 contenait une adresse Internet valide.
Reste à tester si ceci est fonctionnel à partir d'un site internet.
'---------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Not Intersect(Range("A5"), Range(Target.Parent.Address)) Is Nothing Then Application.EnableEvents = False Target.Follow NewWindow:=True Application.EnableEvents = True End If
End Sub '----------------------------
Salutations!
"Bruni" a écrit dans le message de news:1fa501c49a74$bc8b8300$ Le problème suivant se produit seulement quand le fichier excel est ouvert dans Internet Explorer avec un lien... Une fois que le document excel est ouvert, il y a un lien hypertexte dans celui-ci qui pointe vers un autre lien http. Il faudrait que ce lien hypertexte s'ouvre dans une nouvelle fenêtre, car présentement la page s'ouvre et remplace le fichier excel déjà ouvert sans demander d'enregistrer...les usagers perdent ainsi leurs modifications apportées
michdenis
Et si tu désires que cela se reproduise pour toutes les cellules contenant un lien hypertexte, copie ceci dans le module feuille où l'action se déroule :
'--------------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
"Denis Michon" a écrit dans le message de news:oUL1d.2735$ Bonsoir Bruni,
Dans la feuille module où l'action se déroule, copie ce qui suit :
Dans mon exemple, j'ai supposé que la cellule A5 contenait une adresse Internet valide.
Reste à tester si ceci est fonctionnel à partir d'un site internet.
'---------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Not Intersect(Range("A5"), Range(Target.Parent.Address)) Is Nothing Then Application.EnableEvents = False Target.Follow NewWindow:=True Application.EnableEvents = True End If
End Sub '----------------------------
Salutations!
"Bruni" a écrit dans le message de news:1fa501c49a74$bc8b8300$ Le problème suivant se produit seulement quand le fichier excel est ouvert dans Internet Explorer avec un lien... Une fois que le document excel est ouvert, il y a un lien hypertexte dans celui-ci qui pointe vers un autre lien http. Il faudrait que ce lien hypertexte s'ouvre dans une nouvelle fenêtre, car présentement la page s'ouvre et remplace le fichier excel déjà ouvert sans demander d'enregistrer...les usagers perdent ainsi leurs modifications apportées
Et si tu désires que cela se reproduise pour toutes les cellules contenant un lien hypertexte, copie ceci dans le module
feuille où l'action se déroule :
'---------------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de news:oUL1d.2735$0f.1956@charlie.risq.qc.ca...
Bonsoir Bruni,
Dans la feuille module où l'action se déroule, copie ce qui suit :
Dans mon exemple, j'ai supposé que la cellule A5 contenait une adresse Internet valide.
Reste à tester si ceci est fonctionnel à partir d'un site internet.
'----------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Not Intersect(Range("A5"), Range(Target.Parent.Address)) Is Nothing Then
Application.EnableEvents = False
Target.Follow NewWindow:=True
Application.EnableEvents = True
End If
End Sub
'----------------------------
Salutations!
"Bruni" <anonymous@discussions.microsoft.com> a écrit dans le message de news:1fa501c49a74$bc8b8300$a501280a@phx.gbl...
Le problème suivant se produit seulement quand le fichier
excel est ouvert dans Internet Explorer avec un lien...
Une fois que le document excel est ouvert, il y a un lien
hypertexte dans celui-ci qui pointe vers un autre lien
http. Il faudrait que ce lien hypertexte s'ouvre dans une
nouvelle fenêtre, car présentement la page s'ouvre et
remplace le fichier excel déjà ouvert sans demander
d'enregistrer...les usagers perdent ainsi leurs
modifications apportées
Et si tu désires que cela se reproduise pour toutes les cellules contenant un lien hypertexte, copie ceci dans le module feuille où l'action se déroule :
'--------------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
"Denis Michon" a écrit dans le message de news:oUL1d.2735$ Bonsoir Bruni,
Dans la feuille module où l'action se déroule, copie ce qui suit :
Dans mon exemple, j'ai supposé que la cellule A5 contenait une adresse Internet valide.
Reste à tester si ceci est fonctionnel à partir d'un site internet.
'---------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Not Intersect(Range("A5"), Range(Target.Parent.Address)) Is Nothing Then Application.EnableEvents = False Target.Follow NewWindow:=True Application.EnableEvents = True End If
End Sub '----------------------------
Salutations!
"Bruni" a écrit dans le message de news:1fa501c49a74$bc8b8300$ Le problème suivant se produit seulement quand le fichier excel est ouvert dans Internet Explorer avec un lien... Une fois que le document excel est ouvert, il y a un lien hypertexte dans celui-ci qui pointe vers un autre lien http. Il faudrait que ce lien hypertexte s'ouvre dans une nouvelle fenêtre, car présentement la page s'ouvre et remplace le fichier excel déjà ouvert sans demander d'enregistrer...les usagers perdent ainsi leurs modifications apportées
