Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel [Zani] Beaufay en liesse !!!

[Zani] Beaufay en liesse !!!

24 réponses
Avatar
gee-dee-
Windows XP
MS Office 2002
Ouvrir EXCEL
Activer VBA Editor (Alt F11)
Menu Outils, References....
Cocher la librairie : Microsoft Speech Object Library

'----------dans un module :
Public Vocal As New SpVoice
'----------puis :
Sub Ani_Jacquouille()
Vocal.Speak "happy birthday to you , happy birthday to you , happy
birthday to you Jackouye , happy birthday to you"
'-----
' le module narrator en français n'est pas livré avec la machine :-(
'-----
Vocal.Speak "Je tavay averty ke sa ale etre tafhette"
Vocal.Speak "bon enee vair sair, may ve lay plu sinsayre, mon
jackouye"
End Sub

Modeste ;-)))))
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
gee-dee-
;-)))
Oui musique et paroles fonctionnent..? ! ? !..... guère mieux que dans ma
version ;-)))
mais je ne dirais pas "Beau Marseillais" pour [BM]
il me semble qu'il fut un temps ou cela signifiait : "Bug Man" ;-)))

ne pas oublier de faire référence à la bibliothéque : Microsoft Speech
Object Library
ainsi que :
Public Vocal As New SpVoice

je réitère mon interrogation .........
comment le faire parler français ce foutu.... Narrator.exe !!!!
dans Excel 2002 avec XP
affichage, barre d'outils, Texte en parole

Notament voir ficelle du 15/01 Benoit Lefebvre :Lecture Vocale

je suis comme lui, ma barre "texte en parole" est grisée, sans possibilité
de faire lire les cellules
et pourtant je me souviens l'avoir déja faite fonctionner !?!?

alors que les macros telles que fournies ces derniers jours fonctionnent
????

@+



"Sitting Hoax (BM)" a écrit dans le message de
news:%
bon, ben à la demande générale,
même si tu ne peux pas le faire marcher, Jacouille,
on va le faire chanter l'agent;-))
mettez cette macro dans un module,
et hop, tous en choeur!
'************
Private Declare Function MidiOutClose Lib "winmm.dll" _
Alias "midiOutClose" (ByVal hMidiOut As Long) As Long
'-------------------------------
Private Declare Function MidiOutOpen Lib "winmm.dll" _
Alias "midiOutOpen" (lphMidiOut As _
Long, ByVal uDeviceID As _
Long, ByVal dwCallback As _
Long, ByVal dwInstance As _
Long, ByVal dwFlags As Long) As Long
'-------------------------------
Private Declare Function MidiOutShortMsg Lib "winmm.dll" _
Alias "midiOutShortMsg" (ByVal hMidiOut As _
Long, ByVal dwMsg As Long) As Long
'...........................................................
Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
'...........................................................
'(touche échap pour arrêter la macro)
Sub joyeux_zanni_jackouille()
On Error GoTo fin
x = InputBox("entrez un nombre de 1 à 100", _
" joyeux anniversaire ", "60")
If x > 100 Then
x = 100
End If
For u = x To x + 20
notees = 505052505# & _
55450505250# & _
57555050# & _
6259555452# & _
6060595557# & _
55#
numéro = 0
For i = 1 To Len(notees) Step 2
y = Mid(notees, i, 2)
phrase = Array("joa", "yeu", "za", "ni", "vair", _
"saiaiaiaiaiaiairr jaku ye", "joa", "yeu", "za", "ni", _
"vair", "sairr", "joa", "yeu", "za", "ni", _
"vair", "saiaiaiaiairr jakuuuuu ye", "joa", "yeu", _
"za", "ni", "vair", "saiaiaiaiairr ")
numéro = numéro + 1
numéros_temps = 42566# & _
7425# & _
66742# & _
566# & _
57# & _
4265# & _
47#
x = Mid(numéros_temps, numéro, 1) * 30
z = phrase(numéro - 1)
Application.EnableCancelKey = xlErrorHandler
On Error GoTo fin
MidiOutClose hMidiOut
MidiOutOpen hMidiOut, 0, 0, 0, 0
MidiOutShortMsg hMidiOut, RGB(192, u + 10, 127)
lanote = 12 + CInt(y)
note = RGB(144, lanote, 127)
MidiOutShortMsg hMidiOut, note
Vocal.Speak z
Sleep (x)
MidiOutClose hMidiOut
Next
Next
fin:
MidiOutClose hMidiOut
End
End Sub
'****************
Amicalement
Sitting Hoax
"Jacquouille" a écrit dans le message de
news:
Le Beau marseillais m'a dit qu'après révision et incantations, il
entendait

des sons bizarrrres qui, croyait-il, ressemblaient à du Grand Breton.
Pourquoi ne pas faire un chant grégorien avé les choeurs de l'armée
rouge


du
nez de chez MPFE ?
Eventuellement, sur une musique de et par le BM.
--------
Perso, je trouve que tu aurais beaucoup plus de mérites à faire ce truc
en


Excel5, version Pinard-Camembert, avé l' assent du Sud.
La France t'en serait reconnaissante et tu risquerais d'avoir une belle
médaille sur ton cercueil, ce qui lui donnerait directement une plus
value


(voir msg des canadiens qui se plaignent avec leur 15 petits %) .
---------
M'enfin, pour ce que j'en dis. Tu as encore 364 jours pour le faire car
ce

ne sera jamais fini pour dans 20 minutes; -))

--
Jacquouille conseille : http://www.excelabo.net


"gee-dee-" a écrit dans le message news:

Il a raison, Jacquouille...... ;-)))).
En plus j'avais veillé pour lui en réservé la primeur
La prochaine fois, J'essairai de fermer ma gueule.(refrain connu !!!)

Pour l'instant je ne la ferme pas !
j'avais précisé :
Windows XP
MS Office 2002
Ouvrir EXCEL
Activer VBA Editor (Alt F11)
Menu Outils, References....
Cocher la librairie : Microsoft Speech Object Library



ceci fonctionne sur les machines avec XP livrées avec Narrator.exe

ceux qui ont la configuration adéquate, ont-ils exécuté la procédure
????


Le message etait-il audible et compréhensible ???
j'essaie maintenant de le faire parler français
j'ai récupéré le fichier lhttsfrf.exe (module français pour SAPI)
mais sans résultat .....
des indices, des solutions ???

;-)))
@+





--

"Jacquouille" a écrit dans le message
de



news:
Bonjour
Je tiens à remercier tout le monde pour cet instant de gentillesse
que




chacun a eu en pensant à moi.
Excepté bien évidemment le Geedee qui m'a encore envoyé des
saloperies




en
Grand Breton, saloperies qui ne fonctionnent ni avec W98 et E2000,
ni




avec
XP et E2000.
W98 me dit "erreur de compilation type défini par l'utilisateur non
défini


et me bloque sur la première ligne '' Public vocal ..."
Quant à XP, il me dit erreur 424 et me met en jaune les 3 lignes
Vocal




speak....
Je considère donc ce message comme étant celui d'un agent secret de
sa




Très
Grasse Majesté.
Ferait mieux de causer comme on lui a appris quand il était petit.
Voilà


à
quoi ça mène, à la débauche.
Encore merci à tous les autres.
Et à l'an prochain.
--
Jacquouille conseille : http://www.excelabo.net


"gee-dee-" a écrit dans le message news:

Windows XP
MS Office 2002
Ouvrir EXCEL
Activer VBA Editor (Alt F11)
Menu Outils, References....
Cocher la librairie : Microsoft Speech Object Library

'----------dans un module :
Public Vocal As New SpVoice
'----------puis :
Sub Ani_Jacquouille()
Vocal.Speak "happy birthday to you , happy birthday to you ,
happy



birthday to you Jackouye , happy birthday to you"
'-----
' le module narrator en français n'est pas livré avec la
machine





:-(
'-----
Vocal.Speak "Je tavay averty ke sa ale etre tafhette"
Vocal.Speak "bon enee vair sair, may ve lay plu sinsayre,
mon





jackouye"
End Sub

Modeste ;-)))))




















Avatar
ru-th
si j'avais pas eu des problèmes de connections, j'aurai point été en retard
!
bon anniversaire, Jacquouille !
malgré tes penchants pernicieux et que la morale matricielle réprouve ;-))

a+
rural thierry
"FxM" a écrit dans le message de news:
#
Bonjour,

En retard (comme d'hab diront certaines mauvaises langues). Pour ne pas
l'être le 29 ... Bon anniversaire aux frères Jacques !

@+
FxM




gee-dee- wrote:

Windows XP
MS Office 2002
Ouvrir EXCEL
Activer VBA Editor (Alt F11)
Menu Outils, References....
Cocher la librairie : Microsoft Speech Object Library

'----------dans un module :
Public Vocal As New SpVoice
'----------puis :
Sub Ani_Jacquouille()
Vocal.Speak "happy birthday to you , happy birthday to you , happy
birthday to you Jackouye , happy birthday to you"
'-----
' le module narrator en français n'est pas livré avec la machine :-(
'-----
Vocal.Speak "Je tavay averty ke sa ale etre tafhette"
Vocal.Speak "bon enee vair sair, may ve lay plu sinsayre, mon
jackouye"
End Sub

Modeste ;-)))))






Avatar
j
tricheur !


"FxM" a écrit dans le message de news:
#
Bonjour,

En retard (comme d'hab diront certaines mauvaises langues). Pour ne pas
l'être le 29 ... Bon anniversaire aux frères Jacques !

@+
FxM




gee-dee- wrote:

Windows XP
MS Office 2002
Ouvrir EXCEL
Activer VBA Editor (Alt F11)
Menu Outils, References....
Cocher la librairie : Microsoft Speech Object Library

'----------dans un module :
Public Vocal As New SpVoice
'----------puis :
Sub Ani_Jacquouille()
Vocal.Speak "happy birthday to you , happy birthday to you , happy
birthday to you Jackouye , happy birthday to you"
'-----
' le module narrator en français n'est pas livré avec la machine :-(
'-----
Vocal.Speak "Je tavay averty ke sa ale etre tafhette"
Vocal.Speak "bon enee vair sair, may ve lay plu sinsayre, mon
jackouye"
End Sub

Modeste ;-)))))






Avatar
FxM
Meuh non :o)Dis plutôt que tu ne souhaites pas que je te fasse
vieillir plus tôt

@+
FxM




wrote:
tricheur !


"FxM" a écrit dans le message de news:
#

Bonjour,

En retard (comme d'hab diront certaines mauvaises langues). Pour ne pas
l'être le 29 ... Bon anniversaire aux frères Jacques !

@+
FxM




gee-dee- wrote:


Windows XP
MS Office 2002
Ouvrir EXCEL
Activer VBA Editor (Alt F11)
Menu Outils, References....
Cocher la librairie : Microsoft Speech Object Library

'----------dans un module :
Public Vocal As New SpVoice
'----------puis :
Sub Ani_Jacquouille()
Vocal.Speak "happy birthday to you , happy birthday to you , happy
birthday to you Jackouye , happy birthday to you"
'-----
' le module narrator en français n'est pas livré avec la machine :-(
'-----
Vocal.Speak "Je tavay averty ke sa ale etre tafhette"
Vocal.Speak "bon enee vair sair, may ve lay plu sinsayre, mon
jackouye"
End Sub

Modeste ;-)))))











1 2 3