Discussion :

[AVNAIM]

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

[fring]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FichierWAV = ThisWorkbook.C:\Documents and Settings\proprietaire\Bureau\kk.wav

As-tu adapté le chemin ou tu as laissé "propriétaire" ?

[ucfoutu]

Bonjour,

le paramètre lpszName de la fonction Playsound est une chaîne de caractères représentant le fichier.
Pour toi, c'est donc FichierWAV

Ecris donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox FichierWav

juste avant de "jouer ton son" (avant la ligne d'erreur) ...
Tu devrais vite comprendre ce qui se passe lorsque tu écris que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FichierWav = ThisWorkbook.C:\Documents and Settings\proprietaire\Bureau\kk.wav

Edit : j'ai comme dans l'idée (si tu as mis ce fichier son dans le répertoire du classeur actif) que tu veux de référer à
ThisWorkBook.Path & "\ & "nom_du_fichier.wav"

Et si finalement il n'est pas dans le répertoire de ton classeur mais ailleurs, c'est alors :
FichierWav = "C:\....\....\ton_fichier.Wav"
ou les ... représentent les dossiers du chemin.

[AVNAIM]

Bonjour et merci UCFOUTU,

J'ai tapé MsgBox "FichierWAV" j'obtiens un message Microsoft Excel "OK"
Dans ma petite cervelle j'ai l'impression qu'Excel me dit dans son message " d'accord ou tout va bien " mais cela ne va pas plus loin ( à mon âge 91 on a la comprenette qui faiblit )
Cordialement
Avnaim

Bonjour FRING,
Merci encore de t'occuper d'un pauvre malade qui appelle toujours son docteur

J'ai simplement fait un clic droit sur mon fichier .WAV placé sur le bureau et cliqué sur Propriétés qui me donne je crois le chemin complet : j'ai donc laissé propriétaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

C:\Documents and Settings\proprietaire\Bureau

Cordialement merci et à +

[fring]

Je n'ai pas essayé le code mais à première vue je dirais (comme l'a signalé UC)
que FichierWAV doit contenir le nom et le chemin complet du fichier à jouer.
Essaye comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FichierWAV = "C:\Documents and Settings\proprietaire\Bureau\kk.wav"

en oubliant pas de mettre les guillemets

[AVNAIM]

Re-Bonjour,

Voici à présent le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  FichierWAV = ThisWorkbook."C:\Documents and Settings\proprietaire\Bureau\kk.wav"

Et le message que j'obtiens est : Attendu identificateur ou expression entre crochets

J'ai remplacé les guillemets par des crochets [ ]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FichierWAV = ThisWorkbook.[C:\Documents and Settings\proprietaire\Bureau\kk.wav]

et le message que j'obtiens est : Membre de méthode ou de données introuvable

très cordialement à+
avnaim