bonjour
- Existe t'il un raccourci pour déclencher un lien hypertexte dans une
cellule, autre que le double clic de la souris ?
- Existe t'il un moyen de contourner le player "magnétophone" lancé par
défaut par le lien hypertexte et de lancer Quicktime ou Windows media player
à la place ?
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
michdenis
Bonjour Help Me,
Pour ton raccourci dans ta cellule, tu diriges ce dernier vers la cellule elle-même.
Et dans la feuille module où est situé cette cellule, tu copies ceci :
Ceci va ouvrir Windows media player et exécuter le fichier défini.
'-------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim Fichier As String
Fichier = "E:MusicMy way.mp3" If Dir(Fichier) <> "" Then Fichier = Chr(34) & Fichier & Chr(34) Shell "C:Program FilesWindows Media Playerwmplayer.exe " & _ Fichier, vbMaximizedFocus Else MsgBox " Ce fichier """ & Fichier & """ n'existe pas." End If
End Sub '--------------------------
Salutations!
"Help Me" a écrit dans le message de news: 4368bea6$0$29675$ bonjour - Existe t'il un raccourci pour déclencher un lien hypertexte dans une cellule, autre que le double clic de la souris ? - Existe t'il un moyen de contourner le player "magnétophone" lancé par défaut par le lien hypertexte et de lancer Quicktime ou Windows media player à la place ?
Merci
Bonjour Help Me,
Pour ton raccourci dans ta cellule, tu diriges ce dernier vers la cellule elle-même.
Et dans la feuille module où est situé cette cellule, tu copies ceci :
Ceci va ouvrir Windows media player et exécuter le fichier défini.
'--------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim Fichier As String
Fichier = "E:MusicMy way.mp3"
If Dir(Fichier) <> "" Then
Fichier = Chr(34) & Fichier & Chr(34)
Shell "C:Program FilesWindows Media Playerwmplayer.exe " & _
Fichier, vbMaximizedFocus
Else
MsgBox " Ce fichier """ & Fichier & """ n'existe pas."
End If
End Sub
'--------------------------
Salutations!
"Help Me" <yapasdemailici@dutout.com> a écrit dans le message de news: 4368bea6$0$29675$626a14ce@news.free.fr...
bonjour
- Existe t'il un raccourci pour déclencher un lien hypertexte dans une
cellule, autre que le double clic de la souris ?
- Existe t'il un moyen de contourner le player "magnétophone" lancé par
défaut par le lien hypertexte et de lancer Quicktime ou Windows media player
à la place ?
Pour ton raccourci dans ta cellule, tu diriges ce dernier vers la cellule elle-même.
Et dans la feuille module où est situé cette cellule, tu copies ceci :
Ceci va ouvrir Windows media player et exécuter le fichier défini.
'-------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim Fichier As String
Fichier = "E:MusicMy way.mp3" If Dir(Fichier) <> "" Then Fichier = Chr(34) & Fichier & Chr(34) Shell "C:Program FilesWindows Media Playerwmplayer.exe " & _ Fichier, vbMaximizedFocus Else MsgBox " Ce fichier """ & Fichier & """ n'existe pas." End If
End Sub '--------------------------
Salutations!
"Help Me" a écrit dans le message de news: 4368bea6$0$29675$ bonjour - Existe t'il un raccourci pour déclencher un lien hypertexte dans une cellule, autre que le double clic de la souris ? - Existe t'il un moyen de contourner le player "magnétophone" lancé par défaut par le lien hypertexte et de lancer Quicktime ou Windows media player à la place ?
Merci
michdenis
Dans la mesure où tu peux avoir plusieurs liens hypertextes dans la même feuille,
tu devrais ajouter ceci au code déjà saisi comme condition d'exécution :
En prenant pour acquis que ton lien hypertexte est dans A2 Tu peux toujours remplacer If .. Then par un select case !
If Range(Target.SubAddress).Address = Range("A2").Address Then Fichier = "E:MusicMy way.mp3" If Dir(Fichier) <> "" Then Fichier = Chr(34) & Fichier & Chr(34) Shell "C:Program FilesWindows Media Playerwmplayer.exe " & _ Fichier, vbMaximizedFocus Else MsgBox " Ce fichier """ & Fichier & """ n'existe pas." end if End If
Salutations!
"michdenis" a écrit dans le message de news: % Bonjour Help Me,
Pour ton raccourci dans ta cellule, tu diriges ce dernier vers la cellule elle-même.
Et dans la feuille module où est situé cette cellule, tu copies ceci :
Ceci va ouvrir Windows media player et exécuter le fichier défini.
'-------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim Fichier As String
Fichier = "E:MusicMy way.mp3" If Dir(Fichier) <> "" Then Fichier = Chr(34) & Fichier & Chr(34) Shell "C:Program FilesWindows Media Playerwmplayer.exe " & _ Fichier, vbMaximizedFocus Else MsgBox " Ce fichier """ & Fichier & """ n'existe pas." End If
End Sub '--------------------------
Salutations!
"Help Me" a écrit dans le message de news: 4368bea6$0$29675$ bonjour - Existe t'il un raccourci pour déclencher un lien hypertexte dans une cellule, autre que le double clic de la souris ? - Existe t'il un moyen de contourner le player "magnétophone" lancé par défaut par le lien hypertexte et de lancer Quicktime ou Windows media player à la place ?
Merci
Dans la mesure où tu peux avoir plusieurs liens hypertextes dans la même feuille,
tu devrais ajouter ceci au code déjà saisi comme condition d'exécution :
En prenant pour acquis que ton lien hypertexte est dans A2
Tu peux toujours remplacer If .. Then par un select case !
If Range(Target.SubAddress).Address = Range("A2").Address Then
Fichier = "E:MusicMy way.mp3"
If Dir(Fichier) <> "" Then
Fichier = Chr(34) & Fichier & Chr(34)
Shell "C:Program FilesWindows Media Playerwmplayer.exe " & _
Fichier, vbMaximizedFocus
Else
MsgBox " Ce fichier """ & Fichier & """ n'existe pas."
end if
End If
Salutations!
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news: %23XaQaX73FHA.3588@TK2MSFTNGP15.phx.gbl...
Bonjour Help Me,
Pour ton raccourci dans ta cellule, tu diriges ce dernier vers la cellule elle-même.
Et dans la feuille module où est situé cette cellule, tu copies ceci :
Ceci va ouvrir Windows media player et exécuter le fichier défini.
'--------------------------
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim Fichier As String
Fichier = "E:MusicMy way.mp3"
If Dir(Fichier) <> "" Then
Fichier = Chr(34) & Fichier & Chr(34)
Shell "C:Program FilesWindows Media Playerwmplayer.exe " & _
Fichier, vbMaximizedFocus
Else
MsgBox " Ce fichier """ & Fichier & """ n'existe pas."
End If
End Sub
'--------------------------
Salutations!
"Help Me" <yapasdemailici@dutout.com> a écrit dans le message de news: 4368bea6$0$29675$626a14ce@news.free.fr...
bonjour
- Existe t'il un raccourci pour déclencher un lien hypertexte dans une
cellule, autre que le double clic de la souris ?
- Existe t'il un moyen de contourner le player "magnétophone" lancé par
défaut par le lien hypertexte et de lancer Quicktime ou Windows media player
à la place ?
Dans la mesure où tu peux avoir plusieurs liens hypertextes dans la même feuille,
tu devrais ajouter ceci au code déjà saisi comme condition d'exécution :
En prenant pour acquis que ton lien hypertexte est dans A2 Tu peux toujours remplacer If .. Then par un select case !
If Range(Target.SubAddress).Address = Range("A2").Address Then Fichier = "E:MusicMy way.mp3" If Dir(Fichier) <> "" Then Fichier = Chr(34) & Fichier & Chr(34) Shell "C:Program FilesWindows Media Playerwmplayer.exe " & _ Fichier, vbMaximizedFocus Else MsgBox " Ce fichier """ & Fichier & """ n'existe pas." end if End If
Salutations!
"michdenis" a écrit dans le message de news: % Bonjour Help Me,
Pour ton raccourci dans ta cellule, tu diriges ce dernier vers la cellule elle-même.
Et dans la feuille module où est situé cette cellule, tu copies ceci :
Ceci va ouvrir Windows media player et exécuter le fichier défini.
'-------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim Fichier As String
Fichier = "E:MusicMy way.mp3" If Dir(Fichier) <> "" Then Fichier = Chr(34) & Fichier & Chr(34) Shell "C:Program FilesWindows Media Playerwmplayer.exe " & _ Fichier, vbMaximizedFocus Else MsgBox " Ce fichier """ & Fichier & """ n'existe pas." End If
End Sub '--------------------------
Salutations!
"Help Me" a écrit dans le message de news: 4368bea6$0$29675$ bonjour - Existe t'il un raccourci pour déclencher un lien hypertexte dans une cellule, autre que le double clic de la souris ? - Existe t'il un moyen de contourner le player "magnétophone" lancé par défaut par le lien hypertexte et de lancer Quicktime ou Windows media player à la place ?
