Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 12 PS5 Disney+ Orange Livebox Windows 11 ChatGPT
Entraide Applications Microsoft Office Excel H-S

H-S

16 réponses
Avatar
jacques-zeziola
Le forum

Et non, je n'ai rien a vous demander aujourd'hui, mai simplement une
envie de vous faire partager, ma joie.
Et oui, je suis papa.
Le bébé, est un petit gars de 2,850 Kg,il mesure 49 Cm et il s'appelle
Lucas.

Voila, bonne journée et a bientot, Jacques
Signaler un problème avec ce contenu

6 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
Avatar
jacques-zeziola
Le forum

Merci a vous toutes et tous, pour ces messages qui fonts tous aussi
plaisir les uns que les autres.

Meeeeeeeeeeeeeeeeeeerci, Jacques


"DJ9B" <antiSpam!! wrote in message news:<#...
Félicitations aux parents et bienvenu au petit Lucas !

--
@ tantôt !
email : http://www.cerbermail.com/?05npeGunAn
Site : http://www.dj9b.fr.st



Dans le fameux MPFE a écrit il y a peu :

Le forum

Et non, je n'ai rien a vous demander aujourd'hui, mai simplement une
envie de vous faire partager, ma joie.
Et oui, je suis papa.
Le bébé, est un petit gars de 2,850 Kg,il mesure 49 Cm et il s'appelle
Lucas.

Voila, bonne journée et a bientot, Jacques




Avatar
Sitting Hoax \(BM\)
Il faut commencer à l'habituer à de plus jolies mélodies.
Si bébé ne veut pas dormir, alors lance cette macro
à copier dans un module ordinaire:-))

'*************************
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
'...........................................................
Sub mélodie_pour_bébé()
notees = 58586158585861# & _
58586166656363# & _
61# & _
56585956565859# & _
56565965636165# & _
66545466635961# & _
58545459616361# & _
54546663596158# & _
54545961595856# & _
54
numéro = 0
For i = 1 To Len(notees) Step 2
y = Mid(notees, i, 2)
numéro = numéro + 1
numéros_temps = 446744674464488# & _
446744674444779# & _
4484478447779# & _
448447844644679#
x = Mid(numéros_temps, numéro, 1) * 100
Application.EnableCancelKey = xlErrorHandler
On Error GoTo fin
MidiOutClose hMidiOut
MidiOutOpen hMidiOut, 0, 0, 0, 0
MidiOutShortMsg hMidiOut, RGB(192, 11, 127)
lanote = 12 + CInt(y)
note = RGB(144, lanote, 127)
MidiOutShortMsg hMidiOut, note
Sleep (x)
MidiOutClose hMidiOut
Next
fin:
MidiOutClose hMidiOut
End
End Sub
'****************************************
Amicalement et félicitations pour cette naissance
Sitting Hoax

"MacBob" a écrit dans le message
de news:BBADAA40.50DC%
Il est des nô-ôtreuhhh!

(sur un air bien connu de jps et bientôt macrotisé par notre Elton John du
forum j'ai nommé Laurent Daures).

Encore toutes nos félicitations.

MacBob 8°)))



Le 10/10/03 21:08, dans ,

Le forum

Et non, je n'ai rien a vous demander aujourd'hui, mai simplement une
envie de vous faire partager, ma joie.
Et oui, je suis papa.
Le bébé, est un petit gars de 2,850 Kg,il mesure 49 Cm et il s'appelle
Lucas.

Voila, bonne journée et a bientot, Jacques





Avatar
Sitting Hoax \(BM\)
Excusez,
il manque la déclaration de la fonction Sleep
ajoutez cette ligne en haut du module.
Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Amicalement
Sittng Hoax
"Sitting Hoax (BM)" a écrit dans le message de
news:%
Il faut commencer à l'habituer à de plus jolies mélodies.
Si bébé ne veut pas dormir, alors lance cette macro
à copier dans un module ordinaire:-))

'*************************
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
'...........................................................
Sub mélodie_pour_bébé()
notees = 58586158585861# & _
58586166656363# & _
61# & _
56585956565859# & _
56565965636165# & _
66545466635961# & _
58545459616361# & _
54546663596158# & _
54545961595856# & _
54
numéro = 0
For i = 1 To Len(notees) Step 2
y = Mid(notees, i, 2)
numéro = numéro + 1
numéros_temps = 446744674464488# & _
446744674444779# & _
4484478447779# & _
448447844644679#
x = Mid(numéros_temps, numéro, 1) * 100
Application.EnableCancelKey = xlErrorHandler
On Error GoTo fin
MidiOutClose hMidiOut
MidiOutOpen hMidiOut, 0, 0, 0, 0
MidiOutShortMsg hMidiOut, RGB(192, 11, 127)
lanote = 12 + CInt(y)
note = RGB(144, lanote, 127)
MidiOutShortMsg hMidiOut, note
Sleep (x)
MidiOutClose hMidiOut
Next
fin:
MidiOutClose hMidiOut
End
End Sub
'****************************************
Amicalement et félicitations pour cette naissance
Sitting Hoax

"MacBob" a écrit dans le message
de news:BBADAA40.50DC%
Il est des nô-ôtreuhhh!

(sur un air bien connu de jps et bientôt macrotisé par notre Elton John
du


forum j'ai nommé Laurent Daures).

Encore toutes nos félicitations.

MacBob 8°)))



Le 10/10/03 21:08, dans ,

Le forum

Et non, je n'ai rien a vous demander aujourd'hui, mai simplement une
envie de vous faire partager, ma joie.
Et oui, je suis papa.
Le bébé, est un petit gars de 2,850 Kg,il mesure 49 Cm et il s'appelle
Lucas.

Voila, bonne journée et a bientot, Jacques









Avatar
sabatier
conclusion : les Sleep et les Strings ne remplaceront jamais les pampers....
jps (encore un grand bébé)

"Sitting Hoax (BM)" wrote:

Excusez,
il manque la déclaration de la fonction Sleep
ajoutez cette ligne en haut du module.
Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Amicalement
Sittng Hoax
"Sitting Hoax (BM)" a écrit dans le message de
news:%
Il faut commencer à l'habituer à de plus jolies mélodies.
Si bébé ne veut pas dormir, alors lance cette macro
à copier dans un module ordinaire:-))

'*************************
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
'...........................................................
Sub mélodie_pour_bébé()
notees = 58586158585861# & _
58586166656363# & _
61# & _
56585956565859# & _
56565965636165# & _
66545466635961# & _
58545459616361# & _
54546663596158# & _
54545961595856# & _
54
numéro = 0
For i = 1 To Len(notees) Step 2
y = Mid(notees, i, 2)
numéro = numéro + 1
numéros_temps = 446744674464488# & _
446744674444779# & _
4484478447779# & _
448447844644679#
x = Mid(numéros_temps, numéro, 1) * 100
Application.EnableCancelKey = xlErrorHandler
On Error GoTo fin
MidiOutClose hMidiOut
MidiOutOpen hMidiOut, 0, 0, 0, 0
MidiOutShortMsg hMidiOut, RGB(192, 11, 127)
lanote = 12 + CInt(y)
note = RGB(144, lanote, 127)
MidiOutShortMsg hMidiOut, note
Sleep (x)
MidiOutClose hMidiOut
Next
fin:
MidiOutClose hMidiOut
End
End Sub
'****************************************
Amicalement et félicitations pour cette naissance
Sitting Hoax

"MacBob" a écrit dans le message
de news:BBADAA40.50DC%
Il est des nô-ôtreuhhh!

(sur un air bien connu de jps et bientôt macrotisé par notre Elton John
du


forum j'ai nommé Laurent Daures).

Encore toutes nos félicitations.

MacBob 8°)))



Le 10/10/03 21:08, dans ,

Le forum

Et non, je n'ai rien a vous demander aujourd'hui, mai simplement une
envie de vous faire partager, ma joie.
Et oui, je suis papa.
Le bébé, est un petit gars de 2,850 Kg,il mesure 49 Cm et il s'appelle
Lucas.

Voila, bonne journée et a bientot, Jacques











Avatar
Pierre CFI
"sabatier" a écrit dans le message de news:
conclusion : les Sleep et les Strings ne remplaceront jamais les pampers....
jps (encore un grand bébé)



Ni une bonne tété ...:O))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr

Avatar
sabatier
:-)))
jps

Pierre CFI wrote:

"sabatier" a écrit dans le message de news:
conclusion : les Sleep et les Strings ne remplaceront jamais les pampers....
jps (encore un grand bébé)



Ni une bonne tété ...:O))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr



1 2