* Bonjour, *

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

J'ai mis cela :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
Call JouerFichierWav("C:\concours_photo\sons\01.wav")
Si je saisie dans le code le chemin, aucun souci.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Call JouerFichierWav(RepSonAJouer)
Ca ne fonctionne pas est me dit :
"Erreur de compilation : type d'argument ByRef incompatible."
Merci,

@+

Olivier