WORD ouvrir le dernier ficheir créé

Salut,

la macro fonctionne correctement sur 2 pc (avec export du.bas)
par contre, j'ai un message d'erreur sur le 3è

"chemin d'accès introuvable " alors que le repertoire existe bien cf GRAS

et aussi
"impossible d'executer en mode arrêt"

--------------------------------------------------------------------------------------------------------------------------------------




Dim Chemin As String
Function DernierFichier(Chemin As String) As String
Dim Fichier As String, DerniereDate As Date
Fichier = Dir(Chemin)
Do While Fichier <> ""
If FileDateTime(Chemin & Fichier) > DerniereDate Then
DerniereDate = FileDateTime(Chemin & Fichier)
DernierFichier = Fichier
End If
Fichier = Dir()
Loop
End Function

Sub OuvrirDernierDoc()
Chemin = "C:\TEST"
ChangeFileOpenDirectory Chemin
Documents.Open FileName:=DernierFichier(Chemin)
End Sub
Sub REMPLACE()
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "#MECA^p1"
.Replacement.Text = "#MECA^p2"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveDocument.SaveAs FileName:="CORRIGE.txt", FileFormat:=wdFormatText, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=1252, InsertLineBreaks:=False, AllowSubstitutions:=False _
, LineEnding:=wdCRLF
End Sub




je suis pas loin de la fin arghhh


Kona