bonjour,
je te propose une fonction
Function codeclient(nom As String, dateco As Date)
cod = ""
For i = Len(nom) - 2 To Len(nom)
cod = cod & Chr(Asc(Mid(nom, i, 1)) + 1)
Next i
cod = cod & " " & Format(dateco, "yymmdd")
codeclient = cod
End Function
exemple d'appel de la fonction
msgbox=codeclient("DUPONT",datevalue("31/12/2019")