Excel VBA importer document Word
Résolu
artis31
Messages postés
42
Date d'inscription
Statut
Membre
Dernière intervention
-
artis31 Messages postés 42 Date d'inscription Statut Membre Dernière intervention -
artis31 Messages postés 42 Date d'inscription Statut Membre Dernière intervention -
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 ?
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 ?
A voir également:
- Excel VBA importer document Word
- Word et excel gratuit - Guide
- Word 2013 - Télécharger - Traitement de texte
- Tableau word - Guide
- Signer un document word - Guide
- Liste déroulante excel - Guide
1 réponse
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
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
Maintenant que j'ai la solution sous les yeux, ça parait tellement évident !!