Copier les paragraphes d'un document Word selon son choix

[Lone-wolf]

Bonsoir à toutes 🙂 et à tous 🙂

Voici comment copier des paragraphes suivant le choix fait avec deux listes déroulantes.

Dans deux cellules, créez d'abord les listes en inscrivant 1;2;3 etc, selon le nombre de paraghaphes désirés. Ensuite dans un module standard

Option Explicit
'COCHEZ LA REFERENCE MICROSOFT WORD xx.0 OBJECT LIBRARY

Sub Copier_ParagWord()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Long, j As Long, x As Long
Dim deb As Range, fin As Range
Dim fichier As String

    Application.ScreenUpdating = False

    fichier = ThisWorkbook.Path & "\Lettre.doc"
    Set deb = [L2]: Set fin = [N2]
    [A3:A60].ClearContents

    Set WordApp = New Word.Application
    WordApp.Visible = False
    Set WordDoc = WordApp.Documents.Open(fichier, ReadOnly:=True)

    x = deb - 1
    j = 2
    For i = deb To fin
        x = x + 1
        j = j + 1

        With Feuil1
            .Cells(j, 1) = WordDoc.Paragraphs.Item(x).Range.Text
        End With
    Next
    WordDoc.Close False
    WordApp.Quit
    Set WordApp = Nothing
    Set WordDoc = Nothing
End Sub