Inputbox valeur en format numérique

Bonjour à tous !

J'aurais une question concernant le fait de mettre en format "nombre" une valeur écrite dans une inputblox.

Je vous explique : je suis entrain d'écrire une macro dans un classeur permettant d'ouvrir un autre classeur (dont le nom est DMO 08) dans un dossier (par année) avec une certaine fliexibilité.

La première variable est reliée à une InputBox permettant de choisir l'année (nom du dossier)

La seconde variable est reliée à une InputBox permettant de choisir le mois (sous format numérique) du classeur "DMO 08"

Lorsque j'exécute la macro, elle ne prend pas en compte le "0", d'où le pb de format de texte de la 2nd InpBox que je souhaiterais mettre en format numérique.

Lorsque le renomme le classeur par DMO 12, ca marche très bien.

J'ai l'impression que le "type:=1" ne fonctionne pas dans mes arguments. (A noter que l'argument "type" n'apparait pas dans les arguments hypothétiques lorsque je commence à écrire la ligne de code...Serait-ce un problème de version...j'ai microsoft 2019 pro)

Sub macro_Test_VBA()
Dim anne As Integer
Dim mois As Integer

annee = InputBox("Quelle année?", "année")
mois = InputBox("Quel mois?", Type:=1)

Workbooks.Open "C:\Users\HP\Documents\" & annee & "\DMO " & mois

End Sub
    

Un grand merci d'avance à tous les forumers !!! :)

Bonsoir Kharlos78,

Deux solutions:

Soit

mois = Right("0" & InputBox("Quel mois?", Type:=1),2)

Ou bien si on laisse la version originel de mois

Workbooks.Open "C:\Users\HP\Documents\" & annee & "\DMO " & Right("0" & mois,2)

Bonjour,

Effectivement l'argument type doit être un ajout récent. Il n'est pas reconnu sous les versions récentes...

un exemple d'utilisation possible :

Sub macro_Test_VBA()
Dim annee As Integer
Dim mois As Integer
annee = InputBox("Quelle année?", "année")
mois = InputBox("Quel mois?")
MsgBox annee & Format(mois, "00")
End Sub

A+