Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
    41.4 KB · Affichages: 63
  • classeur.xlsm
    18.5 KB · Affichages: 44
  • grille.docx
    23.1 KB · Affichages: 34
  • capture.jpg
    41.4 KB · Affichages: 61
  • classeur.xlsm
    18.5 KB · Affichages: 50
  • 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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…