MaVar = StrReverse(NomDuFichier) 'on renverse la chaine MaVar = Left(MaVar, InStr(1, MaVar, ".") - 1) 'on recupere la position du "." de l'extension MaVar = StrReverse(MaVar) 'On remet la chaine ds le bon ses pour afficher extension
MaVar = StrReverse(NomDuFichier) 'on renverse la chaine MaVar = Left(MaVar, InStr(1, MaVar, ".") - 1) 'on recupere la position du "." de l'extension MaVar = StrReverse(MaVar) 'On remet la chaine ds le bon ses pour afficher extension