Discussion :

[Marc-L]

C'est pratique de créer un fichier MP3 sur mesure, cela permet de rendre son script autonome en s'affranchissant de Google …

P'tite précision quant à la pause en utilisant l'OCX : elle est nécessaire pour être sûr par exemple d'entendre le son avant la fin
d'un script ou avant d'écouter un deuxième texte mais elle est inutile dans l'illustration sonore d'un MsgBox par exemple …

[patricktoulon]

re
Bonjour marc

oui c'est pour ca que je l'ai remis préenregisstrer des message permet de se dispenser de google apres

par contre je ne trouve plus dans mes archives le code avec une requete pour faire la meme chose

ca m'ennuie j'aurait voulu proposer la version createMP3 avec ce principe afin de se passer de l'api
mais bon j'ai une base de données de plus de 500 pages et 100000 lignes alors voi tu!!!

il va faloir que je decoupe tout ca par theme par ce que j'ai du mal a m'y retrouver

bref si tu a cela sous la main je suis preneur

[Marc-L]

Désolé, je n'ai rien sous le coude non plus …

Qui plus est, j'ai créé les MP3 manuellement depuis l'URL sous Firefox via Enregistrer sous du menu contextuel !

[patricktoulon]

bon en fouillant bien on trouve

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
18
19
20
21
22
23
24
25
Sub test20()
    Dim texte As String
    texte = texte & "Bonjour le forum " & vbCrLf
    texte = texte & " voici une nouvelle, et plus legere, fonction dictée," & vbCrLf
    texte = texte & "utilisation de, l'objet WMplayer.OCX dans un fichier vbs, externe créé  dynamiquement" & vbCrLf
    texte = texte & "au revoir"
    create_mp3_without_Api texte, ThisWorkbook.Path & "\testenmp3.mp3"
End Sub
Sub create_mp3_without_Api(texte As String, aDestination As String)
    Dim ReQ As Object, oStream As Object, URL As String
    sautligne = "%2C%20": espace = "%20": virgule = "%20"
    texto = Replace(Replace(Replace(texte, ",", virgule), vbCrLf, sautligne), " ", espace)
    texto = Replace(Replace(texto, "éé", "eer"), "ée", "er")
    URL = "https://translate.google.com/translate_tts?ie=UTF-8&tl=fr&client=t&q=" & texto & Chr(34)
    On Error Resume Next    'On ne gère pas les erreurs
    Set ReQ = CreateObject("Microsoft.XMLHTTP")
    ReQ.Open "get", URL, False
    ReQ.send
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write ReQ.responseBody
    oStream.SaveToFile aDestination
    oStream.Close
End Sub

et je suis en train de chercher le moyen de'augmenter le nombre de caractere je suis deje sur une piste je vais tenter

[Marc-L]

Je ne pensais pas du tout à cela, si tu m'avais dit à partir d'une requête, j'aurais compris ce que tu recherchais …

Bien vu quand même !

[patricktoulon]

c'est ce que j'ai dis marc

Code :

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

1
2
post#22
par contre je ne trouve plus dans mes archives le code avec une requete pour faire la meme chose

si tu connais un autre procedé je prend aussi

[Marc-L]

Je viens de tester de mon côté (WMP v12), pas besoin d'initialiser les settings de l'OCX
car autoStart est par défaut à True (cf MSDN) et en réduisant manuellement le volume à 10%
il revient automatiquement à 100% dans le script …

[patricktoulon]

re
bonjour marc
il faudrait savoir si avec les version anterieures c'est identique ,au quel cas ca fait 1 ligne de code a supprimer