Bonjour à tous et bonne année, voici mon problème :
j'ai peu de connaissances en Excel, je voudrais créer un document Word (type courrier) et remplir le courrier avec des endroits d'un tableau Excel certains dépendant de coordonnées des cellules et d'autres de couleurs de cellules.
j'ai fait une macro à partir de signets sur Word pour les coordonnées mais je ne sais pas faire pour celles qui dépendent des couleurs

voici mon début de code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub deb()
chemin = ThisWorkbook.Path & "\"
'Ouverture de l'application word
Set w = CreateObject("word.application")
'ouverture du fichier type
Set doc = w.documents.Open(chemin & ThisWorkbook.Names("fichier").RefersToRange)
'numéro des colonnes comprenant les données
champs = Array(1, 2, 3)
'tableau des signets du fichier type
signets = Array("Nom", "Date", "Créateur")
'écriture des signets
For Each i In champs
    doc.bookmarks(signets(i - 1)).Range = Sheets("données").Cells(ActiveCell.Row, i)
Next
w.Visible = True
End Sub

merci