Fichier son dans un UserForm

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

Code:

---

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:

---

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

Bonjour,

Code:

---

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

---

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

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:

---

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:

---

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.

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:

---

C:\Documents and Settings\proprietaire\Bureau

---

Cordialement merci et à +

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:

---

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

---

en oubliant pas de mettre les guillemets

Re-Bonjour,

Voici à présent le code :

Code:

---

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:

---

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

Euh...

T'arrive-t-il, de temps à autre, de lire les réponses que tu reçois ?
On n'en a pas vraiment l'impression !

Mon code

Code:

---

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

---

Ton code

Code:

---

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

---

Chercher l'intru :mrgreen:
Un indice, il est en gras, rouge, italique et souligné

Docteur Fring,

Evidemment, si on ne suit pas ce qui est écrit dans l'ordonnance on ne peut pas guérir !
Merci mille fois, maintenant je suis guérit et je pète le feu ! Du coup je fais jouer la Marseillaise sur mon UserForm
Encore merci.
Avnaim

Bonjour,
C'est encore moi avec un fichier son.
J'ai dans un dossier une application Excel et un fichier son que j'active par un bouton clic dans cette application. Tout cela fonctionne très bien mais voici un problème que je ne comprends pas :
Si j'ajoute un autre fichier son avec une procédure identique celui-ci ne s'ouvre pas aucun son. Pourtant je n'ai aucun message d'erreur Voici mes procédures concernant ces fichiers :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

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 CommandButton1_Click() FichierWAV = "Cello2.wav" ' celui ci reste muet Call PlaySound(FichierWAV, 0&, SON_ASYNC Or SON_NOMFICHIER) UserForm4.Show UserForm2.Hide End Sub ------------------------------- Private Sub CommandButton6_Click() FichierWAV = "k5.wav" ' celui ci fonctionne parfaitement Call PlaySound(FichierWAV, 0&, SON_ASYNC Or SON_NOMFICHIER) UserForm2.Show End Sub

---

J'ai beau cogiter je ne comprends pas pourquoi l'un s'ouvre et m'offre une belle mélodie (k5.wav) alors que l'autre (Cello2.wav) reste muet.
Là je crois que non seulement il faut être Dr.es-SciencesExcel mais Devin diplômé !
Mais qui sait l'un de vous a peut être ces facultés c'est pourquoi à tout hasard je lance un appel
Merci d'avance
Avnaim

Bonjour,

quand vas-tu enfin te décider à donner à ta variable FICHIERWAV le chemin COMPLET du fichier son à jouer ?

Bonjour,
J'ai dû mal m'expliquer :
J'ai un dossier : GESTION_ALIMENTAIRE
Celui-ci contient :
Un fichier Excel.xls et deux fichiers son : "k5.wav" et "cello2.wav" c'est pourquoi je pense que les 'instructions suivantes sont un chemin complet :

FichierWAV = "k5.wav"
FichierWAV = "Cello2.wav"


K5.wav s'ouvre et fonctionne . J'ai essayé de faire :

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

J'obtiens un message qui me demande un N° de ligne
Alors je ne comprends pas pourquoi le second fichier est muet
Comme je disais il faut être devin pour comprendre un truc pareil
Et je n'ai pas de boule de cristal et le club n'en a peut être pas non plus
Très cordialement et à +
Avnaim

1)

Citation:

---

c'est pourquoi je pense que les 'instructions suivantes sont un chemin complet :

FichierWAV = "k5.wav"
FichierWAV = "Cello2.wav"

---

NON !

2)

Code:

---

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

---

ou encore (mais on te l'a déjà expliqué) :

Code:

---

1 2 3

ledossier = "C:\Documents and Settings\proprietaire\Bureau\GESTION_ALIMENTAIRE\" lefichier = "k5.wav" FICHIERWAV = ledossier & lefichier

---

Bonsoir,
Vous avez surement raison dans tout ce que vous dites et je crois que c'est moi qui m'exprime comme une nouille. Ce dossier il contient mon fichier .xls et les deux fichiers son.
Ce dossier je l'ouvre puis j'ouvre le fichier .xls
Quand dans mon code je tape :

FICHIERWAV ="k5.wav"


Ce fichier son s'ouvre et fonctionne. Si je tape :

FICHIERWAV = "C:\ Documents and Setting\proprietaire\Bureau\GESTION-ALIMENTAIRE\k5.wav"


Je fais bien ce que vous dites que je dois faire mais j'obtiens le message d'erreur me demandant un N° de ligne. Je ne suis pas très finaud mais j'en déduis que mon code à la manque est celui qui fonctionne.

En fait le vrai problème est pour le second fichier Cello.Wav Que je fasse "mon" Code ou bien le code "réglo" , il reste muet sans que le programme se plante, les instructions qui suivent sont bien exécutées.
J'imagine que vous allez trouver que le ptit vieux zozote avec ses mystères. En tous cas moi je vous aime bien , vous avez une sacrée patience.
Avnaim

Bonjour,

Comme dit plus haut si :

Citation:

---

Envoyé par AVNAIM

... Ce dossier il contient mon fichier .xls et les deux fichiers son....

---

:arrow: alors :arrow:

Code:

---

FICHIERWAV =ThisWorkBook.Path & "\k5.wav"

---

Jacques.

Bonjour Jacques,
J' ai essayé ce code ( ThisWorkBook……)sans aucun résultat.
Mais le problème n'est pas ce fichier il fonctionne parfaitement avec le code :

FICHIERWAV= "k5.wav"

Il s'agit d'un second fichier dénommé :"Cello .wav"

Pour tous les deux le chemin complet m'est donné quand je fais un clic droit dessus et propriété si je tape le code suivant :

FichierWAV = " C:\Documents and Settings\proprietaire\Bureau\GESTION_ALIMENTAIRE" & "k5.wav" et

FichierWAV = " C:\Documents and Settings\proprietaire\Bureau\GESTION_ALIMENTAIRE" & " Cello .wav "

Aucun message d'erreur mais TOUS LES DEUX sont muets

Si je tape le code :

FichierWAV = "k5.wav"
FichierWAV ="Cello2.wav"

K5 joue sa musique mais Cello2 est muet
C'est pourquoi j'ai beau m'arracher les cheveux je n'y comprends rien
Très cordialement
Avnaim

Citation:

---

Envoyé par AVNAIM

FichierWAV = " C:\Documents and Settings\proprietaire\Bureau\GESTION_ALIMENTAIRE" & "k5.wav" et

FichierWAV = " C:\Documents and Settings\proprietaire\Bureau\GESTION_ALIMENTAIRE" & " Cello .wav "

---

Il y a une erreur dans la syntaxe, il manque des "\", il y a des "espaces" en trop et le "&" est inutile...

Code:

---

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

---

Si ce fichier reste muet alors que l'autre fichier joue correctement, vérifier si ce fichier contient réellement quelque chose, en double cliquant dessus il y a t-il un son émis ?

EZuh...

Playsound étant playsound et restant inerte si mauvais chemin de fichier son, moi je m'attends à tout, à ce stade et à ce niveau ;)
Alors et juste pour avoir la conscience en paix:
Je demande à AVNAIM de bien vouloir créer un bouton de commande voyons et de mettre ceci dans son évènement click, puis de nous dire ce qui s'affiche :

Code:

---

MsgBox "coucou " & dir("C:\Documents and Settings\proprietaire\Bureau\cello.wav")

---