Je sais comment récuperer le chemin ou se situe le fichier excel (le meme que le son) et me mettre dans une variable:
Code:
TOTO = ActiveWorkbook.Path & "\SON_0.wav"
TOTO sera par exemple égal à "C:\Program Files\ACTIONS\SON_0.wav"
Par contre comment faire pour allier les 2...C'est à dire remplacer C:\Program Files\ACTIONS\SON_0.wav (chemin écrit en dur qui ne marche pas si le chemin change) par TOTO (qui lui "suivra" si le répertoire change) ?
J'ai tout essayé notamment d'écrire la ligne suivante qui me paraissait correcte mais cela ne fonctionne pas...une idée ???
Par acquit de conscience j'ai verifié et, chez moi ,ni une version ni l'autre ne fonctionne (pas plus sous 2000 que 2007 ) et sans qu'une erreur soit detectée !!!
Ba oui bizarre...j'espère que je trouverais une solution...
Sachant que le fichier excel et le fichier audio se trouve obligatoirement dans le même répertoire exemple :
...\repertoire\fichier.xls
...\repertoire\son.wav
Ou bien ça dans un module standard... de Denis Michon.
Code:
Declare Function sndPlaySound32 Lib "C:\WINDOWS\SYSTEM32\winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Sub Son()
Call sndPlaySound32(ThisWorkbook.Path & "\SON_0.Wav", 0)
End Sub