Sub PlayMIDI(voiceNum, noteNum, Duration)
Dim Note As Long
On Error Resume Next
midiOutClose hMidiOut
midiOutOpen hMidiOut, 0, 0, 0, 0
midiOutShortMsg hMidiOut, RGB(192, voiceNum - 1, 127)
lanote = 12 + CLng(noteNum)
Note = RGB(144, lanote, 127)
midiOutShortMsg hMidiOut, Note
Sleep (Duration)
midiOutClose hMidiOut
End Sub
Sub Elvis_chante_dans_mon_Excel()
Dim r As Long
Dim vNum As Long
noteN = Split("50,55,54,55,57,52,57,55,54,52,54,55", ",")
duree = Split("100,100,75,125,100,100,200,100,100,50,100,400", ",")
vNum = 10 'ici on peut changer d'instrument de :1 à 127
'j'ai testé jusqu'à 125 OK)
For r = 0 To 11
Call PlayMIDI(vNum, noteN(r), duree(r) * 6)
Next r
End Sub