utilise la fonction Mid pour renvoyer une sous-chaîne. Par exemple pour renvoyer les 3 premier caractères de la chaine NomFichier :
Mot = Mid(NomFichier,1, 3)
pour savoir si le document a été sauvegardé utilise sa propriété Saved
ex : if Activeworkbook.saved = True then ...