jouer un fichier wav

[mcog2]

* Bonjour, *

Je suis en train d'essayer la proposition de edelweisseric dans cette discussion:

J'ai mis cela :

Code :

1
2
3
4
5
Sub lance_son00()
    RepSonAJouer = Sheets("Param").Cells(50, 2) + "00.wav"
    Call JouerFichierWav("C:\concours_photo\sons\01.wav")
    Call JouerFichierWav(RepSonAJouer)
End Sub

Le but est de ramasser le chemin "C:\concours_photo\sons\" du répertoire de ma base de sons en allant chercher cela dans une cellule dans une feuille "Param".

Code :

Call JouerFichierWav("C:\concours_photo\sons\01.wav")

Si je saisie dans le code le chemin, aucun souci.

Code :

Call JouerFichierWav(RepSonAJouer)

Ca ne fonctionne pas est me dit :

"Erreur de compilation : type d'argument ByRef incompatible."

Merci,

@+

Olivier

[edelweisseric]

Bonsoir à tous
Bonsoir mcog2

D'abord, une toute petite remarque : je ne sais pas ce que tu as dans la cellule "50.2", mais je doute fort que dans "RepSonAJouer" tu ais "C:\concours_photo\sons\01.wav", surtout avec un "+" "00.wav".

A part cela, je ne suis pas arriver à faire ce que tu souhaites avec une variable. Par contre, si tu dois avoir un choix de sons, saisis dans plusieurs cellules, personnellement je prendrais l'option d'écrire en "dur" les morceaux avec un "select case".

Si Fring, ou SilkyRoad ou .... sont à l'écoute, ils pourront certainement te donner la solution que je m'empresserai de noter , merci d'avance.

A+

Eric

[mcog2]

Envoyé par edelweisseric

Bonsoir à tous
Bonsoir mcog2

D'abord, une toute petite remarque : je ne sais pas ce que tu as dans la cellule "50.2"...

Dans la cellule 50,2 j'ai : "C:\concours_photo\sons\"
Donc si je rajoute +"00.wav", j'obtient : "C:\concours_photo\sons\00.wav"

Comme tu le dis, le but est de faire fonctionner cette fonction avec une variable et non avec un chemin écris dans le dur.

Je regarde les autres solutions,

Merci,

@+

Olivier