Discussion :

[Kaizen GTR]

Bonjour,

Je sais que ce sujet à déjà été traité mais après de nombreuses recherches, rien e correspond à mes attentes.

J'ai un programme à réaliser en VBA sur Excel, je veux mettre un son lorsque j'appuie sur un bouton de commande.

J'ai réussit avec ça :

Code :

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

1
2
3
Private Sub bouton_Click()
Application.ExecuteExcel4Macro "SOUND.PLAY(,""C:\FFOutput\son.WAV"")"
End Sub

Le problème c'est que je dois mettre mon travail en ligne afin qu'un autre utilisateur puisse utiliser le programme. Il faut donc intégrer le fichier son au programmes puis le lire, mais je n'y arrive pas !

Merci de votre aide !!

[Menhir]

Je ne sais pas exactement ce qu'il y a dans ton fichier son mais si c'est un enregistrement, il est peu probable qu'il soit possible de faire ce que tu demande.
Dans l'aide VBA, quand on consulte SoundNote, il est indiqué que les annotations sonores ont été supprimées de Excel et il n'est rien indiqué en remplacement.

[Invité]

Bonjour,
si ton fichier son n'est pas trop long, il est possible de le convertir en ASCII, de le placer dans une fonction, et de l'enregistre dans le répertoire du fichier Excel.

mais si ton fichier son fait 3Go....

[Kaizen GTR]

Merci de vos réponse !

je ne pensais pas que c'était si compliqué.

Je te remercie du temps que tu as passé à m'aider durupt, mais c'est un programme à rendre pour évaluation, et si mon examinateur voit ça dans la feuille excel, ça ne va pas aller....
Je pensait qu'on pouvais enregistrer le fichier dans les "ressources" comme sur Microsoft Visual Basic 2010 Express.

Le son n'est pas indispensable à mon projet. Je m'en passerai.

Merci encore !

[Invité]

non le fichier que j'ai posté permet de récupérer le code ASCII du fichier!

et il y a la fonction qui converti le code ASCII en fichier!

Code :

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

1
2
3
4
5
6
dim txt as string
txt="524946466002000057415645666D74201000000001000100112B0000112B000001000800646174613C0200008080807E7E7E807E7E80807E807E7E817D7B81817A7E82847D7E8189737A857E7876888B7B848E767E85E649D1E6B117E6BD17A27A82177E48E6E655426EE61717498117CABE5AE69148629D7E246A808262D6" 
txt=txt & "B36A966A7748767D666AACAC6777927E557B927B7A997D746A6C63558C7189877E888074606676587B988887917E7D7A765C7098917080887A6D717D7B7B93888B9591737D81717681888BA28E857A7377697E77808F8F888576766E77787781898182857085856E808482848881827B82787D877E81898980817D80777D84"
txt=txt & "7B8889828B81877D8081808884817D7877817A8084878485887D7B7A77777A82808589817E7B767478787E808182847E7A7B7E7D82887E8282847B7B807B7D818584858181887D808085807D827E7E7D827A807A807D7D7B7E7D7D8082827D8282807A7E7A787B7D7D808180817B7D7B7B7E7B7E80848287807E7B7E7B7B80"
txt=txt & "8181818480807B7D807D808482808180807B7B7B7B7E7E8180817E7E7D787E7D7D80818080817E7E7E7E7E80827E8082807D80807D7E80807E7D7E7E807D8180827E80807E7D7E7B7B7E7D80818180807D7E7D7D7D8081817E80817B7D7E807E8084818181807E80817E7E81818181807E807E7E7E80807E7E81807E7E807E"
txt=txt & "7D7E807E808080807E7E7E7D807E7D7E7E7D7D807E7E7E7E7E7D80807E7E7E7E7E80807E80807E7E7E7E7E7E80817E7E807E7E7D7E7E8080808080807D807E807E8080807E7E807E7E7D7E7E7D7E7E7E7E7E7E807E7E8080808080807E7E7E807E8080808080807E8080818000"

[Kaizen GTR]

OK encore merci.