Probleme Condition Format date dans Inputbox

Bonjour à tous,

J'essais de résoudre un problème

je ne comprend pas pourquoi la macro ci-dessous fonctionne :

Sub test_Inputbox()

saisie_date:
Date_Mise_a_Jour = InputBox("saisir l'année en cour", "Mise à jour annuel", Format(Date, "dd/mm/yyyy"))
If Date_Mise_a_Jour = "" Then

   MsgBox "Aucune date de saisie" & Chr(10) & "Veuillez recommencer l'opération", vbExclamation

    Exit Sub
End If

If Date_Mise_a_Jour <> Format(Date_Mise_a_Jour, "dd/mm/yyyy") Then
        MsgBox "le format doit être jj/mm/aaaa !"
        GoTo saisie_date
End If

End Sub

Mais si je change le format date en yyyy la condition ne fonctionne plus

Sub test_Inputbox()

saisie_date:
Date_Mise_a_Jour = InputBox("saisir l'année en cour", "Mise à jour annuel", Format(Date, "yyyy"))
If Date_Mise_a_Jour = "" Then

   MsgBox "Aucune date de saisie" & Chr(10) & "Veuillez recommencer l'opération", vbExclamation

    Exit Sub
End If

If Date_Mise_a_Jour <> Format(Date_Mise_a_Jour, "yyyy") Then
        MsgBox "le format doit être aaaa !"
        GoTo saisie_date
End If

End Sub

Merci d'avance pour votre aide

Personne à une petite idée ??

il y a peu être un liens déjà sur ce sujet.

De mon côté je n'ai encore rien trouvé.

Bonjour,

Pour commencer 'Date_Mise_a_jour' est une chaîne de caractères (string) et non une date.

Voir l'aide pour 'InputBox'

Cdlt

Merci pour ton aide Jean eric

voici ma modification

Sub test_Inputbox()

Dim Date_Mise_a_jour As String

saisie_date:

Date_Mise_a_jour = InputBox("saisir l'année en cour", "Mise à jour annuel", format(Date, "yyyy"))

        If Date_Mise_a_jour = "" Then

   MsgBox "Aucune date de saisie" & Chr(10) & "Veuillez recommencer l'opération", vbExclamation

    Exit Sub

            End If

            If Date_Mise_a_jour <> format(Date, "yyyy") Then

                MsgBox "le Format doit être jj/mm/aaaa !"

        GoTo saisie_date

    End If

End Sub

maintenant le format fonctionne mais je ne peux rentrer que la date "2014". Si j'essaie 2015,2016.... la condition du format est vrai pourquoi ?

Je voudrai juste que si une personne rentre une année sous le format "yyyy" quelconque la condition soit passé.