Mettre sous forme de puces

sgarnung

XLDnaute Nouveau
Bonsoir à tous
J'ai créé une macro qui envoie des données EXCEL vers un document Word (grille.docx). Les résultats sont compilés les uns après les autres. Comment faire pour qu'ils soient mis sous forme de puces.
Voici les deux fichiers pour faire les test si je ne suis pas assez clair (probablement) et une capture d'écran de ce que je souhaite faire.
Merci
 

Pièces jointes

  • capture.jpg
    capture.jpg
    41.4 KB · Affichages: 63
  • classeur.xlsm
    18.5 KB · Affichages: 44
  • grille.docx
    23.1 KB · Affichages: 34
  • capture.jpg
    capture.jpg
    41.4 KB · Affichages: 61
  • classeur.xlsm
    18.5 KB · Affichages: 50
  • capture.jpg
    capture.jpg
    41.4 KB · Affichages: 60
  • classeur.xlsm
    18.5 KB · Affichages: 45

gilbert_RGI

XLDnaute Barbatruc
Re : Mettre sous forme de puces

Bonjour
il suffit de concatener l'objet "puce" avec les données
et vbLF pour passer a la ligne

Code:
Sub EnvoyerDonneesExcelVersWord()
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    Set WordApp = CreateObject("word.application")    'ouvre session word
    Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\grille.docx", ReadOnly:=False)    'ouvre document Word
    WordApp.Visible = True
    WordDoc.Bookmarks("capacites").Range.Text = Cells(2, 1)
    puce = Cells(1, 4)
    WordDoc.Bookmarks("connaissances").Range.Text = puce & Cells(2, 2) & vbLf & puce & Cells(3, 2) & vbLf & puce & Cells(4, 2) & vbLf & puce & Cells(5, 2)
End Sub
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 721
Membres
110 551
dernier inscrit
Khyolyanna