Discussion :

[Lexot2]

Bonjour

J'ai un code qui me permet de lire plusieurs sons dans un jeu de logique. Tout marche bien en local, et on entend les sons. J'ai mis le jeu en ligne sur un site perso, et il est devenu muet. Donc le jeu fonctionne sans le son(avec un appel API).

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
16
17
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
(ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As _
Long) As Long
 
sub defin()
m8(1, 0) = "joues.wav": m8(1, 1) = "gagnes.wav"
m8(2, 0) = "jouev.wav": m8(2, 1) = "gagnev.wav"
End Sub
 
 
Sub son1()
   ' sons ou voix
 
    m7 = ThisWorkbook.Path + "\" + m8(f4, f8)
        x1 = PlaySound(m7, 0, 2)
 
End Sub

Merci de me venir en aide

Cordialement

[dadavyvy]

Que vaut "ThisWorkbook.Path", d'apres toi, quand tu as mis le jeu en ligne?
Bah en fait, il doit retourner le chemin d'un fichier dans Temporary Internet Files ou dans Temp, non? Et bien il est fort possible que dans ce dossier, les wav ne s'y trouvent pas, surtout sur mon ordi...
Le mieux ce serait de les incorporer directement dans ton fichier Excel : Menu Insertion>Objet>Son wav...

[Lexot2]

Bonjour

Merci pour ton aide dadavyvy. J'ai essayé d'incorporer les sons "wav" dans excel, mais je ne connais pas la procédure à utiliser. Une aide serait la bienvenue! Merci d'avance

Cordialement

[beekeep]

Lut,

je ne connais pas le sujet mais pourquoi les sons ne sont pas en ligne directement ??

cela marcherai de la meme facon en local qu'en ligne avec les chemins absolus .. non ?

[dadavyvy]

1/ Dans menu Insertion>Objet
2/ Dans onglet 'Nouvel Objet', choisir dans la liste 'Son wave' et cliquer sur "OK"
3/ Un nouvel objet est alors inséré, hachuré, et une fenêtre du Magnétophone de Windows est alors apparue.
4/ Dans le menu Edition>Insérer un fichier... Aller chercher le fichier en question.
5/ Fermer le magnétophone.

6/ Manipulation avec VBA -> exemple :

Code :

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

1
2
    ActiveSheet.OLEObjects("Objet 1").Visible = False
    ActiveSheet.OLEObjects("Objet 1").Verb Verb:=xlPrimary ' Lance la 1ere action de l'objet quand on fait un clique droit dessus

[Lexot2]

Bonsoir

Incorporer les sons me semble compliqué!!!
J'envoie l'adresse du site perso. On peut, soit jouer en ligne, soit télécharger le jeu. Les sons se trouvent dans "sub son1()", et sont définis dans "sub nimb()". Encore merci pour toute l'aide que je reçois.

http://perso.orange.fr/alexr/index.html

Cordialement