Microsoft 365 Faire parlé une seul cellule precis

[Dydy05]

Bonjour voici ma demande d'aide sur mon excel voir la pièces jointe tout sera explique
en deux mots je voudrais savoir si il serait possible de que le résultat son vocal et en euro.
Merci a tous pour votre aide et je suis sur excel 2007.

 

[Compte Supprimé 979]

Bonjour Dydy05

Voici le fichier avec le code général mis dans un module

@+

 

[Dydy05]

Mille merci de votre réponse

 

[Dydy05]

Bonjour BrunoM45 merci de votre conseille mais là je bloque
pour le mois de janvier il dis bien "tu as mie 25 virgule 06 euro" mais pas dans février il dis "tu as mie 5 5 euro" pourquoi le mot virgule disparait ?
Merci de m’aidai.
Cordialement.

 

[patricktoulon]

Bonjour
ben en fait ton problème dépend sur quel system tu tourne
sur W10 je sais pas pour hortana (française)
mais sur W7 64 avec un office 32 ,seule la voie virginie est compatible, moyennant quelque bidouillage
j'ai fait un tuto sur ce point sur DVP il y a quelque années

je viens de le refaire pour le fun et tests et ça fonctionne encore
tiens j'ai retrouvé le tuto

[Toutes versions] Installer la voix de virginie sur W 7 64 bits et avoir le speech speak en francais dans vba - Contribuez

apre m'ettre amuser avec la voix de Google je me suis interessé a l'environnement Windows je trouvais dommage que la voix de virginie ne soit pas utilisable en 64 bits en fait il y a une astuce pour que ca

www.developpez.net

 

[Modeste geedee]

Bonjour voici ma demande d'aide sur mon excel voir la pièces jointe tout sera explique
en deux mots je voudrais savoir si il serait possible de que le résultat son vocal et en euro.
Merci a tous pour votre aide et je suis sur excel 2007.

Sub Macro1()
Application.Speech.SpeakCellOnEnter = Not Application.Speech.SpeakCellOnEnter
End Sub

 

[mapomme]

Bonjour à tous,

Dans le fichier, pour exemple, des sommes différentes sur les 6 feuilles. La macro dire() est valable pour toutes les feuilles (mois et total):

Sub Dire()
Const DebutMois = "janv,févr,mars,avri,mai,juin,juil,août,sept,octo,nove,déce"""
Dim maValeur, DebutTexte, MaVal As String, x, x1, x2
   If InStr(DebutMois, LCase(Left(ActiveSheet.Name, 4))) > 0 Then
      maValeur = ActiveSheet.Range("c13")
      DebutTexte = "Pour le mois "
      DebutTexte = DebutTexte & IIf(InStr("aAoO", Left(ActiveSheet.Name, 1)) >= 1, "d'", "de ")
      DebutTexte = DebutTexte & ActiveSheet.Name & ", tu as mis, "
   Else
      maValeur = ActiveSheet.Range("f3")
      DebutTexte = "Le total sur le livret A, s'élève à, "
   End If
   x1 = Int(maValeur): x2 = Int((maValeur - x1) * 100)
   MaVal = DebutTexte & x1 & " euro "
   If x2 <> 0 Then MaVal = MaVal & " et " & x2 & " centime"
   Application.Speech.Speak (MaVal)
End Sub

Nota : revoyez vos formules. Elles sont soient manquantes soient incorrectes.