VBA Importer texte Word dans Excel Résolu/Fermé

Question

Bonjour, 

J'essaie désespérément d'importer un texte contenu dans un fichier Word vers Excel.
Pour l'instant mon code, c'est ceci :
Sub import()
    file = ActiveWorkbook.Path & "\" & Range("A2").Value
    Dim AppWord As Word.Application
    Set AppWord = New Word.Application
    AppWord.ShowMe
    AppWord.Visible = True
    AppWord.DisplayAlerts = False
    'Ouvre le document Word

Set DocWord = AppWord.Documents.Open(file)

With AppWord
        .Selection.MoveDown Unit:=wdLine, Count:=1
        .Selection.MoveRight Unit:=wdCell
        .Selection.Copy
    End With

DocWord.Close False
    AppWord.Quit
    Range("D2").Select
    Selection.Paste
End Sub

Cela marche à peu près, mais le texte copié contient des sauts de ligne (du coup dans Excel, j'ai du texte en D2, D3, etc.)
Y a-t-il moyen de mettre le texte copié dans une variable pour la replacer en cellule D2 ?
Au final, j'aurai une boucle important du texte de plusieurs centaines de fichiers Word... d'où le besoin de macro.

Merci d'avance.

Zoul67 · Answer

Résolu.

Après les changements de cellule dans Excel, tous les sauts ont été supprimés, mais le code suivant me satisfait :

Sub import()    file = ActiveWorkbook.Path & "\" & Range("A2").Value    Dim AppWord As Word.Application    Set AppWord = New Word.Application    AppWord.ShowMe    AppWord.Visible = True    AppWord.DisplayAlerts = False    'Ouvre le document Word    Set DocWord = AppWord.Documents.Open(file)    With AppWord        .Selection.MoveDown Unit:=wdLine, Count:=1        .Selection.MoveRight Unit:=wdCell            End With    TEXTE = Replace(AppWord.Selection.Text, Chr(10), " --- ")    TEXTE = Replace(TEXTE, Chr(13), " --- ")    MsgBox TEXTE    DocWord.Close False    AppWord.Quit    Range("D2").Select    ActiveCell.FormulaR1C1 = TEXTEEnd Sub

Bravo moi-même

VBA Importer texte Word dans Excel

1 réponse

Discussions similaires