Bonjour,
Est-il possible, lors de la création d'un lien renvoyant vers une page web,
d'obliger Excel à utiliser un autre browser (Firefox en l'occurrence) plutôt
que celui assigné par défaut sur le PC utilisé.
Je voudrais, pour diverses raisons, que lorsque l'on clique sur le lien
d'une cellule, ce soit Firefox qui permette de lire la page et pas IE.
Merci à vous
Christian
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
Michel Angelosanto
il faut passer par le VBA
Sub firefoxII() Dim RetVal ' Lance Firefox sur une URL spécifiée RetVal = Shell("C:progra~1mozill~1firefox.exe http://www.excel-downloads.com", 1) End Sub
"Christian de BXL" a écrit dans le message de news:
Bonjour, Est-il possible, lors de la création d'un lien renvoyant vers une page web, d'obliger Excel à utiliser un autre browser (Firefox en l'occurrence) plutôt que celui assigné par défaut sur le PC utilisé. Je voudrais, pour diverses raisons, que lorsque l'on clique sur le lien d'une cellule, ce soit Firefox qui permette de lire la page et pas IE. Merci à vous Christian
-- Michel Angelosanto, Bordeaux Dernières mises à jour du site Voyage au pays Internet http://angelosa.free.fr/index.php?t=8
il faut passer par le VBA
Sub firefoxII()
Dim RetVal
' Lance Firefox sur une URL spécifiée
RetVal = Shell("C:progra~1mozill~1firefox.exe
http://www.excel-downloads.com", 1)
End Sub
"Christian de BXL" <ChristiandeBXL@discussions.microsoft.com> a écrit dans
le message de news:8BDF147A-77CB-4DFD-A7F0-027FE6F03564@microsoft.com...
Bonjour,
Est-il possible, lors de la création d'un lien renvoyant vers une page
web,
d'obliger Excel à utiliser un autre browser (Firefox en l'occurrence)
plutôt
que celui assigné par défaut sur le PC utilisé.
Je voudrais, pour diverses raisons, que lorsque l'on clique sur le lien
d'une cellule, ce soit Firefox qui permette de lire la page et pas IE.
Merci à vous
Christian
--
Michel Angelosanto, Bordeaux
Dernières mises à jour du site Voyage au pays Internet
http://angelosa.free.fr/index.php?t=8
Sub firefoxII() Dim RetVal ' Lance Firefox sur une URL spécifiée RetVal = Shell("C:progra~1mozill~1firefox.exe http://www.excel-downloads.com", 1) End Sub
"Christian de BXL" a écrit dans le message de news:
Bonjour, Est-il possible, lors de la création d'un lien renvoyant vers une page web, d'obliger Excel à utiliser un autre browser (Firefox en l'occurrence) plutôt que celui assigné par défaut sur le PC utilisé. Je voudrais, pour diverses raisons, que lorsque l'on clique sur le lien d'une cellule, ce soit Firefox qui permette de lire la page et pas IE. Merci à vous Christian
-- Michel Angelosanto, Bordeaux Dernières mises à jour du site Voyage au pays Internet http://angelosa.free.fr/index.php?t=8
Christian de BXL
Merci Michel pour ta réponse. Où dois-je placer la macro pour pouvoir l'activer en cliquant dans une cellule? Cordialement
Merci Michel pour ta réponse.
Où dois-je placer la macro pour pouvoir l'activer en cliquant dans une
cellule?
Cordialement
Merci Michel pour ta réponse. Où dois-je placer la macro pour pouvoir l'activer en cliquant dans une cellule? Cordialement
MichDenis
Bonjour Christian,
La procédure Worksheet_Change doit être située dans le module feuille où l'action se déroule. L'autre peut-être placée soit dans le module feuille ou un module standard.
Choisis la cellule de ton choix évidemment. -------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("A1").Address Then firefoxII End If End Sub '------------------------------------- Sub firefoxII() Dim RetVal ' Lance Firefox sur une URL spécifiée RetVal = Shell("C:progra~1mozill~1firefox.exe http://www.excel-downloads.com", 1) End Sub '-------------------------------------
"Christian de BXL" a écrit dans le message de groupe de discussion : Merci Michel pour ta réponse. Où dois-je placer la macro pour pouvoir l'activer en cliquant dans une cellule? Cordialement
Bonjour Christian,
La procédure Worksheet_Change doit être située dans
le module feuille où l'action se déroule. L'autre peut-être
placée soit dans le module feuille ou un module standard.
Choisis la cellule de ton choix évidemment.
--------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
firefoxII
End If
End Sub
'-------------------------------------
Sub firefoxII()
Dim RetVal
' Lance Firefox sur une URL spécifiée
RetVal = Shell("C:progra~1mozill~1firefox.exe
http://www.excel-downloads.com", 1)
End Sub
'-------------------------------------
"Christian de BXL" <ChristiandeBXL@discussions.microsoft.com> a écrit dans le message de
groupe de discussion : 1048693A-1A31-40ED-9F0C-4D77C966AAF6@microsoft.com...
Merci Michel pour ta réponse.
Où dois-je placer la macro pour pouvoir l'activer en cliquant dans une
cellule?
Cordialement
La procédure Worksheet_Change doit être située dans le module feuille où l'action se déroule. L'autre peut-être placée soit dans le module feuille ou un module standard.
Choisis la cellule de ton choix évidemment. -------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("A1").Address Then firefoxII End If End Sub '------------------------------------- Sub firefoxII() Dim RetVal ' Lance Firefox sur une URL spécifiée RetVal = Shell("C:progra~1mozill~1firefox.exe http://www.excel-downloads.com", 1) End Sub '-------------------------------------
"Christian de BXL" a écrit dans le message de groupe de discussion : Merci Michel pour ta réponse. Où dois-je placer la macro pour pouvoir l'activer en cliquant dans une cellule? Cordialement
MichDenis
Oups, si tu veux déclencher la procédure seulement en cliquant sur une cellule,
utilise plutôt cet événement : '---------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = Range("A1").Address Then firefoxII End If End Sub '----------------------------------
Oups, si tu veux déclencher la procédure seulement en cliquant sur une cellule,
utilise plutôt cet événement :
'----------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
firefoxII
End If
End Sub
'----------------------------------
Oups, si tu veux déclencher la procédure seulement en cliquant sur une cellule,
utilise plutôt cet événement : '---------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = Range("A1").Address Then firefoxII End If End Sub '----------------------------------
Corto
Bonjour Christian de BXL, Il faut mettre cette macro dans ThisWorkbook :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink) XRESULT = Shell("C:Program FilesMozilla Firefoxfirefox.exe " & Target.Address, 1) End Sub
Bonjour Christian de BXL,
Il faut mettre cette macro dans ThisWorkbook :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
XRESULT = Shell("C:Program FilesMozilla Firefoxfirefox.exe " &
Target.Address, 1)
End Sub
Bonjour Christian de BXL, Il faut mettre cette macro dans ThisWorkbook :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink) XRESULT = Shell("C:Program FilesMozilla Firefoxfirefox.exe " & Target.Address, 1) End Sub
