Creation d'un mot de passe avec incrementation automatique d

Bonjour,

je viens vers vous car je n'ai pas trouvé les renseignements pour créer un mot de passe avec une incrémentation du mois automatiquement.

je m'explique nous sommes en janvier je veux 01, fevrier 02 etc .....

le mdp par exemple toto puisque nous sommes en novembre je devrais avoir toto11 et en decembre toto12.

Comment faire?

Merci pour votre aide.

Bonjour,

Peut-être comme cela

Option Explicit

Sub EssaI()
Dim MdP As String
MdP = InputBox("Quel est votre Mot de Passe?")
If MdP <> "toto" & Format(Month(Date), "0#") Then MsgBox "Erreur": Exit Sub
' Reste de ton code
MsgBox "Mot de Passe Ok"
End Sub

Bonne journée