Excel VBA importer document Word Résolu/Fermé

Question

Bonsoir, 

Je souhaite faire un copier coller de Word vers Excel. J'arrive à ouvrir le fichier, copier/coller les infos, mais je n'arrive pas à refermer le fichier Word... dans le répertoire j'ai un fichier "~$xxxxx.doc" et si j'essaye d'ouvrir le fichier word "normalement" j'ai un message me disant que ce fichier est en cours d'utilisation....

Voici le code que j'utilise :
[code]
Sub Import_Gazette()

Dim Wrd As Object

'Récupère le nom et chemin du fichier à ouvrir
On Error Resume Next
NomFich = Application.GetOpenFilename("Gazette, *.doc")
If Err <> 0 Or NomFich = False Then
    End
End If

Feuil3.Range("A1") = NomFich

Set Wrd = CreateObject("word.Application")
Wrd.documents.Open (NomFich)
Wrd.Selection.WholeStory
Wrd.Selection.Copy

ThisWorkbook.Activate
Feuil3.Activate
Feuil3.Range("A2").Select
ActiveSheet.Paste

Wrd.documents.Close (NomFich)
Wrd.Close
Set Wrd = Nothing

End Sub

/code

Aucune des trois instructions de fin ne ferme correctement le fichier ouvert... comment faire ?

Configuration: Windows 7 / Firefox 11.0

f894009 · Answer

Bonjour,

Sub Import_Gazette()

Dim Wrd As Object

'Récupère le nom et chemin du fichier à ouvrir
On Error Resume Next
NomFich = Application.GetOpenFilename("Gazette, *.doc")
If Err <> 0 Or NomFich = False Then
End
End If

Feuil3.Range("A1") = NomFich

Set Wrd = CreateObject("word.Application")
Wrd.documents.Open (NomFich)
Wrd.Selection.WholeStory
Wrd.Selection.Copy

ThisWorkbook.Activate
Feuil3.Activate
Feuil3.Range("A2").Select
ActiveSheet.Paste

' Ferme Word en appliquant la méthode Quit sur l'objet Application.
Wrd.Application.Quit
Set Wrd = Nothing
End Sub

Bonne suite