Jouer des notes audio à l’aide VBA dans Microsoft Excel
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.