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

[boumboum33]

Je cherche à exporter un tableau excel en colonnes en fichier word tout en lignes séparées par un point virgule ....
Exemple:

Tableau excel :



Et je le voudrai comme ça en fichier Word:

playaclub@playaclub.net;tascon@inicia.es;adriana@djwb.com;info@tripfamily.com;casaencendida@cajamadrid.es;eventos@fsmgroup.org;mobydickclub@mobydickclub.com;mobydick@decemberprod.com;info@bcmplanetdance.com;booking@octopusclub.com;administracion@octopusclub.com;contacto@octopusclub.com;

Si vous me trouvez la réponse ,vous êtes des dieux, car j'en ai environ 5000 à faire comme ça ...

Merci d'avance..
Nicolas

 

[CBernardT]

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