Importer un document Word dans Excel, VBA

Il peut arriver que vous souhaitiez importer du texte de Word dans Excel. Certes, ce n’est pas une tâche courante, car les cellules Excel ne sont pas destinées à servir d’instruments de traitement de texte pour de grandes quantités de texte. Mais comme c’est possible, voici une macro qui ouvre un document Word, copie le deuxième paragraphe et colle ce texte dans la cellule active de votre classeur:

Sub ImporterExcelPartirWord()
'Déclarez les variables Object pour l'application et le document Word.
Dim WordApp As Object, wddoc As Object
'Déclarez une variable String pour le nom du document d'exemple et le chemin du dossier.
Dim strDocNom As String
'L'instruction On Error si Word n'est pas déjà ouvert.
On Error Resume Next
'Activer Word s'il est déjà ouvert.
Set WordApp = GetObject(, "Word.Application")
If Err.Number = 429 Then
Err.Clear
'Créez une application Word si Word n'est pas déjà ouvert.
Set WordApp = CreateObject("Word.Application")
End If
'Assurez-vous que l'application Word est visible.
WordApp.Visible = True
'Définissez la variable de chaîne strDocName.
strDocNom = "C:\mesfichiers\monDocWord.docx"
'Activez l'application Word.
WordApp.Activate
'Définissez la variable objet pour le nom complet du document Word et le chemin d'accès au dossier.
Set worddoc = WordApp.Documents(strDocNom)
'Si le document Word n'est pas déjà ouvert, ouvrez-le.
If worddoc Is Nothing Then Set worddoc = WordApp.Documents.Open(strDocNom)
'Le document est ouvert, alors activez-le.
worddoc.Activate
'Copier le paragraphe 2
worddoc.Paragraphs(2).Range.Copy
'Activez votre classeur et collez le texte copié dans la cellule active.
ThisWorkbook.Activate
'Collez le paragraphe 2 du document Word.
ActiveSheet.Paste
'Fermez le document Word, pas besoin d'enregistrer les modifications.
worddoc.Close Savechanges:=False
'Quittez l'application Word.
WordApp.Quit
'Libérez la mémoire système réservée aux deux variables Object.
Set worddoc = Nothing
Set WordApp = Nothing
End Sub

 

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x