J'ai rentré cette commande :
Dim toto
Set WrdApp = CreateObject("Word.Application" )
Set toto = CreateObject("Scripting.FileSystemObject" )
Set wrdDoc = WrdApp.Documents.Open("C:\_Work\Extraction des entités\Extraction des entités.doc" )
WrdApp.Visible = True
WrdApp.Selection.WholeStory
WrdApp.Selection.Copy
WrdApp.ActiveDocument.Close
Mais il bloque sur la ligne ci dessous ?
toto.killfile ("C:\_Work\Extraction des entités\Extraction des entités.doc" )
MsgBox "le fichier Word à bien été supprimé "
WrdApp.Quit
une idée, merci