Erreur d'execution code 6 "date"

Bonjour à tous ,

j'ai une macro qui converti un fichier excel en pdf en le nommant en fonction des données d'une cellule ( ici b2 )

Lorsque j'inscrit 23092 cela fonctionne bien mais quand j'écris 230920 cela me met un message d'erreur :

Je pense qu'il y a une erreur quand je déclare ma variable mais je ne sais pas comment faire pour contourner cela ,

Merci encore à vous tous ,

Bonjour,

Un essai ...

Change : Dim NoSem as Integer pour Dim NoSem as Long ...

ric