conversion tableau Excel en Word séparé par un point virgule

Re : conversion tableau Excel en Word séparé par un point virgule

Bonjour boumboum33 et le Forum,

Essaye cette macro. Faire les adaptations de données Classeur et feuille à ton fichier base.

Sub ExcelTexteInWord()
Dim Derlig As Integer, i As Integer, Resultat
Dim WordApp As Object
' Création du texte
With Sheets("Feuil1")
Derlig = .Range("A100000").End(xlUp).Row
For i = 1 To Derlig
If i = 1 Then
Resultat = .Cells(i, 1)
Else
Resultat = Resultat & ";" & .Cells(i, 1)
End If
Next i
.Cells(1, 3) = Resultat
End With
' Copie dans un document word
Set WordApp = CreateObject("word.application")
WordApp.Documents.Add
Sheets("Feuil1").Range("C1").Copy
WordApp.Selection.Paste
Application.CutCopyMode = False
WordApp.Visible = True