Faire reference à l'année en cours

Bonjour à tous et bonne année!

J'ai un petit souci avec le fichier ci joint

# l'userform apparait si vous entrez l'identifiant de votre session Windows dans "paramètre"

Le fichier me sert a créer des enquêtes par rapport à la base de donnée"liste colis" , il faut sélectionner le N° du colis puis appuyer sur le bouton "GENE" pour générer un nouveau numéro d'enquête.

Lorsque je génère un nouveau Numéro d’enquête avec le bouton "GENE" de l'userform comme EO-23-01, le "23" fait référence à l'année de la date de création du colis de la feuille "liste colis".

Pouvez vous me dire comment faire en sorte que la référence soit par rapport à l'année de la date du jour J et non pas de la date de création du colis?

Un grand merci à tous pour votre aide

Mipec

Bonsoir le forum

Bonsoir mipec

Pas tout regardé mais peut être que :

Private Sub CommandButton7_Click()
Dim AN$
   On Error Resume Next: AN = Right(Year(Now), 2): On Error GoTo 0
   If AN = "" Then
      MsgBox "Veuillez saisir une date correcte comme < date de création du colis >, svp.", vbCritical
      Exit Sub
   End If

Bonsoir Eric

Ca fonctionne parfaitement!

grand merci a toi