Discussion :

[mohammed0585]

comment déclencher la lecture d un fichier mp3
lorsque la cellule A1=100

et merci d avance chers amis de votre aide.

[Invité]

Bonjour

Un peu de lecture : http://silkyroad.developpez.com/VBA/WindowsMediaPlayer/

Philippe

[ucfoutu]

Bonjour,

Je dirais que si la machine peut lire un MP3, c'est qu'un outil pour ce faire y est installé et que cet outil est utilisé par défaut pour la lecture...
Dans ce cas, tout bêtement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
 Dim ta_zizique As String, voir As Integer
 voir = 1 ' si tu veux  écouter en voyant l'outil
 'voir = 0 ' si tu veux écouter sans voir l'outil
 ta_zizique = "d:\musique\titis\toto.mp3"
 ShellExecute 0, "open", ta_zizique, vbNullString, "c:\", voir
End Sub

Pour déclencher si la valeur d'une cellule est celle de ton choix, tu adaptes comme tu l'entends ...

[mohammed0585]

merci bcp

[AlainTech]

Problème résolu?

Bouton , en bas de discussion.

Merci