DoubleZero
XLDnaute Barbatruc
Bonjour à toutes et à tous,
Staple1600,
Je te souhaite un Heureux Anniversaire
A bientôt,
Staple1600,
Je te souhaite un Heureux Anniversaire
A bientôt,
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