Public Function ExtensionFichier(ByVal CheminFichier) 'Retourne l'extension du fichier Dim Position ExtensionFichier = "" Position = InStrRev(CheminFichier,".") If (Position > 0) And (Position < Len(CheminFichier)) Then ExtensionFichier = Mid(CheminFichier,Position+1) End If End Function