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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Janvier 2020

• #2

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 :

VB:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 12 Janvier 2020

• #3

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

VB:

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,

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Janvier 2020

• #4

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

VB:

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.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 12 Janvier 2020

• #5

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Janvier 2020

• #6

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

 

Pièces jointes

• Son.xlsm

  15.8 KB · Affichages: 7

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Janvier 2020

• #7

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 12 Janvier 2020

• #8

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Janvier 2020

• #9

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+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 12 Janvier 2020

• #10

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,

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 12 Janvier 2020

• #11

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Janvier 2020

• #12

Bonsoir le fil,

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

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Janvier 2020

• #13

Re

patricktoulon
Base64 or not base64 ?

patricktoulon à dit:

bonsoir a tous

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 12 Janvier 2020

• #14

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 12 Janvier 2020

• #15

Staple1600 à dit:

Re

patricktoulon
Base64 or not base64

Cliquez pour agrandir...

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

 

Dernière édition: 12 Janvier 2020

Vote positif 0 Vote négatif