Lone-wolf
XLDnaute Barbatruc
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
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
VB:
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