Le samedi 18 janvier 2014 20:44:09 UTC+1, MichD a écrit :
Bonjour,
Si tu veux d�sactiver le message de s�curit� lors d'un clic sur un lien
hypertexte :
http://support.microsoft.com/kb/925757
Lorsque tu cliques sur le lien hypertexte, Windows choisit le lecteur par
d�faut
associ� � ce type de fichiers.
Un fichier exemple sur ce qui est aussi possible de faire:
http://cjoint.com/?DAsuRHB4Zsx
MichD
;-))
Au lieu de cliquer sur le bouton "Jouer", si tu copies ceci dans le code module de la feuille où l'action se déroule, le simple fait de cliquer sur une cellule contenant un fichier ayant une extension ".mp3", déclenche le début de la chanson.
À toi de décider l'approche que tu préfères!
'-------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If LCase(Right(Target.Value, 4)) = ".mp3" Then Call PlayOn End If
End Sub '--------------------------------------
;-))
Au lieu de cliquer sur le bouton "Jouer", si tu copies ceci
dans le code module de la feuille où l'action se déroule, le
simple fait de cliquer sur une cellule contenant un fichier
ayant une extension ".mp3", déclenche le début de la
chanson.
À toi de décider l'approche que tu préfères!
'--------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If LCase(Right(Target.Value, 4)) = ".mp3" Then
Call PlayOn
End If
Au lieu de cliquer sur le bouton "Jouer", si tu copies ceci dans le code module de la feuille où l'action se déroule, le simple fait de cliquer sur une cellule contenant un fichier ayant une extension ".mp3", déclenche le début de la chanson.
À toi de décider l'approche que tu préfères!
'-------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If LCase(Right(Target.Value, 4)) = ".mp3" Then Call PlayOn End If
End Sub '--------------------------------------
magic-dd
Bonsoir MichD
merci pour cette petite modif
c'est meme mieux
bonne soiree
Le dimanche 19 janvier 2014 12:38:52 UTC+1, MichD a écrit :
;-))
Au lieu de cliquer sur le bouton "Jouer", si tu copies ceci
dans le code module de la feuille o� l'action se d�roule, le
simple fait de cliquer sur une cellule contenant un fichier
ayant une extension ".mp3", d�clenche le d�but de la
chanson.
� toi de d�cider l'approche que tu pr�f�r es!
'--------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If LCase(Right(Target.Value, 4)) = ".mp3" Then
Call PlayOn
End If
End Sub
'--------------------------------------
Bonsoir MichD
merci pour cette petite modif
c'est meme mieux
bonne soiree
Le dimanche 19 janvier 2014 12:38:52 UTC+1, MichD a écrit :
;-))
Au lieu de cliquer sur le bouton "Jouer", si tu copies ceci
dans le code module de la feuille o� l'action se d�roule, le
simple fait de cliquer sur une cellule contenant un fichier
ayant une extension ".mp3", d�clenche le d�but de la
chanson.
� toi de d�cider l'approche que tu pr�f�r es!
'--------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)