Heureux Anniversaire, Staple1600

[DoubleZero]

Bonjour à toutes et à tous,

Staple1600,

Je te souhaite un Heureux Anniversaire

A bientôt,

 

[JCGL]

Re : Heureux Anniversaire, Staple1600

Bonjour à tous,

Bon Anniversaire l'Agrafe





Passe une bonne journée entouré des tiens.
A++

A+ à tous

 

[MJ13]

Re : Heureux Anniversaire, Staple1600

Bonjour 00, Jean-Claude

Souhaitons à notre ami Jean-Marie , un joyeux anniversaire.

En plus, Cadeau .

 

[Victor21]

Re : Heureux Anniversaire, Staple1600

Bonjour, 00 Jean_Claude Michel Jean-Marie (et lézotres)

A défaut de pièce jointe, je me joins tout d'une pièce à mes petits camarades pour te souhaiter un :
Joyeux anniversaire, Jean-Marie...
Mes voeux les plus sincères...

 

[Modeste]

Re : Heureux Anniversaire, Staple1600

Bonjour tout le monde,

De toutes les agrafes que j'ai pu croiser au cours de ma chienne de vie, Staple1600 est, sans conteste, le représentant de l'espèce avec qui j'ai pu avoir les discussions les plus enrichissantes ... que la Déesse de la Cellule fasse qu'il en soit encore ainsi longtemps!

Bon anniversaire, Jean-Marie ​

 

[piga25]

Re : Heureux Anniversaire, Staple1600

Bonjour à toutes et à tous,

A défaut également de pièce jointe, je me permet d'agrapher simplement le soleil à cette belle journée pour que notre ami Jean marie puisse y savourer un très bon anniversaire.

Joyeux anniversaire Jean-Marie.

 

[R@chid]

Re : Heureux Anniversaire, Staple1600

Bonjour @ tous,
Joyeux Anniversaire Jean-Marie...
@ + +

 

[Staple1600]

Re : Heureux Anniversaire, Staple1600

Bonsoir à tous

Alors en ce jour mémorable, je laisse VBA parler pour moi.

Sub LancerMoiMaisPasContreLeMur()
Dim NotYetOldDays, A_Vraiment_Trop
NotYetOldDays = Array("12/12/2079", "29/01/2001")
LaCabessa = CLng(CDate(NotYetOldDays(0)))
A_Vraiment_Trop = CLng(CDate(NotYetOldDays(1)))
Chauffée_NON = CLng(DateValue(NotYetOldDays(O)) + Application.WorksheetFunction.Fact(3))
OuIlaTropArroséSonAnniv = "0616d6973"
'Ne pas utiliser les nuits de lune rousse
MagicIncantation = _
"4d" & LaCabessa & A_Vraiment_Trop & "6c" & Chauffée_NON & OuIlaTropArroséSonAnniv

MsgBox FonctionStapliséPour_L_Occasion(MagicIncantation), _
vbExclamation, _
"Staple1600 says:"
End Sub

Public Function FonctionStapliséPour_L_Occasion(strInput As Variant) As Variant
If IsNull(strInput) Then Exit Function
If Len(strInput) / 2 <> Int(Len(strInput) / 2) Then strInput = "0" & strInput
For i = 1 To Len(strInput) Step 2
FonctionStapliséPour_L_Occasion = FonctionStapliséPour_L_Occasion & Chr(Val("&H" & Mid(strInput, i, 2)))
Next i
End Function

PS: J'ai pourtant pris mes gouttes

 

[chris]

Re : Heureux Anniversaire, Staple1600

Bonjour

...

Regarde la pièce jointe 276476

...

Alors je vais participer à ta longévité en te souhaitant un second anniversaire.

Au plaisir de te croiser sur un prochain fil. Bises et bon week end.

 

[Jiheme]

Re : Heureux Anniversaire, Staple1600

Bonjour le fil

Très bon anniversaire Staple.

A+

 

[sebetrose]

Re : Heureux Anniversaire, Staple1600

Bon anniversaire Staple1600, merci à toi pour ton aide et tes conseils........
Passe une bonne journée