VB Excel son sur demande
Résolu
ACTS
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous!
Je désire créer une application qui lorsque j'ai une nouvelle entrée dans Excel, qu'un son soit diffusé en lien avec l'entrée en question.
Lorsque j'ai identifié la codification de l'entrée, je suis en mesure de savoir vers quel ligne spécialisée envoyé le contenu relié à l'entrée Excel, je parle ici d'une séparation des boites vers ligne1, ligne2, ligne3, etc...
Donc je voudrais avoir un signal sonore distinctif pour chaque ligne.
J'imagine que le code en question aurait les allures suivantes...mais je n'arrive pas à faire le lien avec les fichiers sonores...
Si mon entrée commence par 222....
jouer le son 1
Si mon entrée commence par C400 jusqu'à C460
jouer le son 2
Si mon entrée commence par 999
jouer le son3
Sinon jouer le son PasDeLocation.
À noter ici, que la partie qui me cause problème c'est de faire jouer un son, de l'imbriquer au Si..Sinon ne devrai pas trop être compliqué.
Dernier détail, je voudrais que les sons soient à même le fichier si possible, pour assurer la disponibilité des fichiers de son en tout temps...peu importe la machine utilisée.
Merci bcp de votre aide!
ACTS
Je désire créer une application qui lorsque j'ai une nouvelle entrée dans Excel, qu'un son soit diffusé en lien avec l'entrée en question.
Lorsque j'ai identifié la codification de l'entrée, je suis en mesure de savoir vers quel ligne spécialisée envoyé le contenu relié à l'entrée Excel, je parle ici d'une séparation des boites vers ligne1, ligne2, ligne3, etc...
Donc je voudrais avoir un signal sonore distinctif pour chaque ligne.
J'imagine que le code en question aurait les allures suivantes...mais je n'arrive pas à faire le lien avec les fichiers sonores...
Si mon entrée commence par 222....
jouer le son 1
Si mon entrée commence par C400 jusqu'à C460
jouer le son 2
Si mon entrée commence par 999
jouer le son3
Sinon jouer le son PasDeLocation.
À noter ici, que la partie qui me cause problème c'est de faire jouer un son, de l'imbriquer au Si..Sinon ne devrai pas trop être compliqué.
Dernier détail, je voudrais que les sons soient à même le fichier si possible, pour assurer la disponibilité des fichiers de son en tout temps...peu importe la machine utilisée.
Merci bcp de votre aide!
ACTS
A voir également:
- VB Excel son sur demande
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Comment trier par ordre alphabétique sur excel - Guide
- Comment calculer la moyenne sur excel - Guide
- Déplacer colonne excel - Guide
Mais je l'ai modifié un peu...
' --------------------------------------------------------------------------------
' Copyright ©1999-2007, Shyam Pillai, All Rights Reserved.
' --------------------------------------------------------------------------------
' You are free to use this code within your own applications, add-ins,
' documents etc but you are expressly forbidden from selling or
' otherwise distributing this source code without prior consent.
' This includes both posting free demo projects made from this
' code as well as reproducing the code in text or html format.
' --------------------------------------------------------------------------------
Modified by ACTS
Option Explicit
' ===== API declarations =====
Private Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" _
(ByVal lpszName As String, _
ByVal hModule As Long, _
ByVal dwFlags As Long) As Long
' Sound Flag
Private Const SOUND_FILENAME = &H20000
'===== Test the functions ======
Sub Sounds()
If Range("B1") = 2 Then
Debug.Print PlaySoundFileA("C:\Documents and Settings\Desktop\sounds test\bomb.wav")
ElseIf Range("B1") = 3 Then
Debug.Print PlaySoundFileA("C:\Documents and Settings\Desktop\sounds test\child.wav")
ElseIf Range("B2") = 3 Then
Debug.Print PlaySoundFileA("C:\Documents and Settings\Desktop\sounds test\chainsaw.wav")
End If
End Sub
' ===== Method 1 =====
Public Function PlaySoundFileA(sndFileName As String) As Boolean
Dim iSuccess As Integer
iSuccess = sndPlaySound(sndFileName, SOUND_FILENAME)
If iSuccess = 0 Then
PlaySoundFileA = False
Else
PlaySoundFileA = True
End If
End Function
C'est très sympa, ceux qui cherchent cela apprécieront sûrement ta découverte : Merci beaucoup !