Microsoft 365 Enregistrer un son ou ma voix dans mon classeur excel

[Usine à gaz]

Bonjour à toutes et à tous,

J'avais il y a déjà un bon moment posé cette question mais d'une façon différente.
C'est la raison d'un nouveau fil

Il me serait utile, comme dit dans le titre, d'Enregistrer un son ou ma voix dans mon classeur excel.
J'ai fait pas mal de recherche sur le net ... sur les forum et je n'ai pas trouvé de réponse.

A tout z'hasard, je pose ma question à mes magiciens préférés LOl
Selon tout ce que j'ai lu, il semble qu'excel n'offre pas la possibilité d'importer un fichier way par exemple.
Mais serait-il (rêvons un peu) possible, à partir d'un fichier son en exécution d'enregistrer dans excel ?
En voilà un challenge !
Je continue mes recherches sans trop d'espoir
Bon dimanche à toutes et à tous,
lionel,

 

[sylvanu]

Bonjour Arthour,
Un exemple sur ce site : https://www.excel-downloads.com/threads/lancer-un-fichier-wav.26543/
Sinon pour plus rigolo, c'est de faire "parler XL :

Sub XLparle()
    chaine = "Bonjour Arthour, comment allez-vous ?"
    Application.Speech.Speak (chaine)
End Sub

 

[Usine à gaz]

Bonjour Sylvanu,
Je vais merci et toi ?
Merci d'être là !
J'ai ce genre de code :

Sub Information(ByVal Phrase As String)
  Application.Speech.Speak Phrase
  End Sub
Sub Test_Voix()
Information "Bravo pour votre Rendez Vous"
End Sub

Qui fonctionnent très bien ... mais
C'est la voix d'une "nana" excel et pas la mienne LOl
J'aimerais pouvoir y mettre :
- ma voix,
- ou un son,
Mais ça, apparemment, c'est une autre affaire LOl
lionel,

 

[sylvanu]

Pour un mp3 ou un wav, il y a ça :

Sub Jouer()
NomFichier = "g:\Users\PC_PAPA\Music\MP3\MP3\Zothers\Maksim - Flight Of The Bumble Bee - LIVE - stereo HQ.mp3"
Shell ("C:\Program Files\Windows Media Player\wmplayer.exe """ & NomFichier)
End Sub

mais ça ouvre une petite fenetre WindowsPlayer.

 

[Usine à gaz]

Merci de t'intéresser à ma p'tite demande.
Il ne s'agit pas de lire un fichier dans l'ordi ...
Mais d'enregistrer le son ou la voix dans le classeur
car le classeur est envoyé à un autre ordinateur qui n'a pas le fichier son.
LOL En voilà un challenge ! et peut-être impossible
lionel

 

[sylvanu]

Adapté de : https://forum.excel-pratique.com/viewtopic.php?t=41337

 

[sylvanu]

Oups! C'était pas très clair.

 

[Usine à gaz]

Encore merci Sylvanu,
Mais c'est la lecture d'un fichier son dans un ordi.
Ce que je cherche à faire c'est enregistrer le son dans le classeur ... pas de lire un fichier dans l'ordi
Mais je crois que ce n'est pas possible !
lionel

 

[job75]

Bonjour Lionel, sylvanu,

Ce n'est pas Excel qu'il faut utiliser pour enregistrer des sons mais un logiciel comme celui-ci :

https://www.commentcamarche.net/download/telecharger-34101175-enregistrement-de-la-voix

qui permet de créer des fichiers MP3.

A+

 

[Usine à gaz]

Bonsoir Gérard
Je dois mal m'expliquer une fois d plu LOl
Comment dire :
- Je ne cherche pas à enregistrer des sons,
- Ni à lire un fichier audio dans l'ordi avec excel
Mais je voudrais pouvoir enregistrer le son d'un fichier audio dans un classeur.
J'avais un peu de temps depuis hier, j'ai beaucoup cherché et je pense qu'office n'a pas cette possibilité.

C'est bien dommage car cela me serait bien utile pour envoyer à des Clients des fichiers excel avec exemples
et écoute de ma voix, sans avoir besoin de joindre un fichier audio.
Je continue quand même mes recherches LOl
lionel,

 

[patricktoulon]

re
bonsoir
avoir VLC

enregistrement
lancer vlc en enregistrement en ligne de commande par vba
convertir le fichier résultant en binaire ou même en base 64 dans une feuille(pas trop grand quand meme le fichier audio )

lecture
convertir les donnéeS en fichier physique AVEC open for ou adobstream
lancer le fichier avec shell ou api playsound et bien d'autre solution voir meme WMP via VBA

je fait pareil pour les image ,texte dont je veux qu'il soit pas lisible pour tout le monde etc.....

bref oui c'est possible

 

[Staple1600]

Bonsoir le fil,

Au cas où, il s'agirait de faire ceci
(but WTF?)

Sub Macro1()
Dim Son
Set Son = ActiveSheet.OLEObjects.Add(Filename:="C:\Users\Tests\Windows Ding.wav", Link:=False, DisplayAsIcon:=False)
End Sub

 

[Staple1600]

Re

patricktoulon
Base64 or not base64 ?

bonsoir a tous

beep beep!!!
mauvaise id le src en base 64

 

[patricktoulon]

re je ny ai ps pensé a l'oléobject ,Attention au poid du fichier tout de même

 

[patricktoulon]

Re

patricktoulon
Base64 or not base64

bonsoir Staple1600
le base64 est une mauvaise idée pour le src d'une balise image dans le bodyhtml d'un mail outlook par exemple
(outlook a son propre mime)

je n'ai jamais dit que le base64 était une mauvaise idée en general
dans l'autre monde dédié au vba tu y trouvera une contribution ou je montre comment je stoke une image dans une feuille en code base64 et comment je la réédite en image

compris or not compris

re
C EST ICI

MAis la solution de l' oléobject est plus simple
je vais m'y intéresser de plus pres