Dans Excel 5 et 95, il est possible de joindre des notes à une cellule à l’aide d’un fichier son. Cette note sonore peut être lue en ouvrant la boîte de dialogue d’édition des notes de cellule.

La macro ci-dessous peut également jouer la note sonore attachée à une cellule pour vous:

Sub PlaySoundNotesInExcel95(CellAddress As String)

' for Excel 5 and 95 only

If Not Application.CanPlaySounds Then Exit Sub

On Error Resume Next ' in case there is no soundnote

Range(CellAddress).SoundNote.Play

On Error GoTo 0

End Sub

Excel 97 ou version ultérieure ne prend plus en charge l’utilisation de notes sonores.

Avec les macros ci-dessous, il est possible de créer une solution de contournement pour obtenir le même effet:

Public Declare Function sndPlaySound Lib "winmm.dll" _

Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _

ByVal uFlags As Long) As Long

Sub PlayWavFile(WavFileName As String, Wait As Boolean)

If Dir(WavFileName) = "" Then Exit Sub ' no file to play

If Wait Then ' play sound before running any more code

sndPlaySound WavFileName, 0

Else ' play sound while code is running

sndPlaySound WavFileName, 1

End If

End Sub

Sub PlaySoundNotesInExcel97(CellAddress As String)

' workaround for playing sound notes in Excel 97 or later

Dim SoundFileName As String

SoundFileName = ""

On Error Resume Next ' an error occurs if the cell doesn't have a note

SoundFileName = Range(CellAddress).Comment.Text

On Error GoTo 0

If SoundFileName = "" Then Exit Sub ' no cell note

If InStr(1, SoundFileName, Chr(10)) > 0 Then ' the note contains a line-break

' use the first line as the filename

SoundFileName = Left(SoundFileName, InStr(1, SoundFileName, Chr(10)) - 1)

End If

PlayFileWav SoundFileName, False

End Sub

Comment créer une note sonore:

Insérez un commentaire de cellule en faisant un clic droit dans une cellule et sélectionnez Insérer un commentaire …​.

Remplissez le nom de fichier complet et le chemin d’accès au fichier son à lire dans la première phrase du commentaire de la cellule, par ex. C: \ Foldername \ Soundfilename.wav.

Si vous souhaitez ajouter un message écrit en plus du nom de fichier audio, appuyez sur la touche ENTRÉE après le nom de fichier pour créer une nouvelle phrase dans le commentaire. Ajoutez le texte souhaité à la nouvelle phrase.

La macro PlaySoundNotesInExcel97 peut être activée par le eventmacro Worksheet_SelectionChange (), cela fera jouer la note sonore chaque fois que l’utilisateur active la cellule avec la note sonore.