Bonjour,
Je tente de faire exécuter un fichier son .wav à l'affichage d'un userForm
Voici le code que j'ai tapé

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
 
Private Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long
 
    Dim FichierWAV As String
    Const SON_ASYNC = &H1
    Const SON_NOMFICHIER = &H20000
 
Private Sub CommandButton3_Click()
 
  FichierWAV = ThisWorkbook.C:\Documents and Settings\proprietaire\Bureau\kk.wav
         Call PlaySound(FichierWAV, 0&, SON_ASYNC Or SON_NOMFICHIER)
End Sub
Avant même de lancer l'exécution s'affiche un message Erreur de syntaxe et la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 FichierWAV = ThisWorkbook.C:\Documents and Settings\proprietaire\Bureau\kk.wav
est écrite en rouge
Quelqu'un pourrait-il examiner cette ligne de code et me dire quelle est l'erreur de syntaxe, car je ne vois pas en quoi elle consiste
Merci aux Docteurs qui feront leur diagnostic car je suis vraiment allergique aux messages Excel
Avnaim