1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Function message(texte)
'https://translate.google.com/#en/fr/bonjour
URL = "https://translate.google.com/#fr/fr/" & texte
Set IE = CreateObject("internetexplorer.application")
IE.navigate URL: IE.Visible = False
Do: DoEvents: Loop Until IE.readystate = 4
IE.document.getelementbyID("gt-res-listen").Click
Application.Wait (Now + TimeValue("0:00:10"))
IE.Quit
End Function
Sub mes()
petitblanc = ",,,,,,,"
grandblanc = " ,,,,,,,,,,,,,,,,,,,,,, "
texte = texte & "bonjour,,,,,,,,,,,,,,,,,,,,,,sebphyto" & grandblanc
texte = texte & "alors ,,,,,, comment tu t'en sort ,,,,, aujourd'hui" & grandblanc & grandblanc
texte = texte & "avec ,,,,, ton apépé de turfiste"
message texte
End Sub |
Partager