Dim annee As String Dim mois As String Dim jour As String Dim laDate As Date 'ici tu mets ta cellule dans la variable chaine chaine = Range("A1").Value 'tu prends les 2 premiers caractères pour la variable annee annee = Left(chaine, 2) 'ici tu prends le caractère ascii de la lettre (en 3ème position) et tu enlèves 64 mois = Asc(UCase(Mid(chaine, 3, 2))) - 64 'puis tu récupères le jour jour = Mid(chaine, 4, 2) 'enfin tu insères le tout dans une variable de type date laDate = jour & "/" & mois & "/" & annee MsgBox laDate
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question