Public Sub debut_fin()
Application.ScreenUpdating = False
Dim ThePath, TheFile As String
ThePath = "L:\Méthodes - Qualité\Moyens de production\Fritsch\Macro conversion PKP-SMD\"
TheFile = ActiveWorkbook.FullName
Dim Utilisateur
Utilisateur = Environ("username")
Dim today As Date
today = Date
Dim Enregistrement As String
Dim A, b, c, d As String
Dim Fichier, NomFichier As String
b = Len(ThePath) 'renvoie longueur du Chemin
A = Len(TheFile) ' " " " " " fichier
c = A - b 'supprime le chemin du fichier
Fichier = Right(TheFile, c)
d = c - 4 ' supprime l'extension ".*"
NomFichier = Left(Fichier, d) & ".doc"