De Excel vers Word

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:

---

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

Bonjour,

Citation:

---

emplir le courrier avec des endroits d'un tableau excel certains dépendant de coordonnées des cellules et d'autres de couleurs de cellules.

---

Citation:

---

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

---

Ces deux phrases sont pour moi incompréhensibles.

Est-il possible de reformuler ta question et placer le code de ta procédure entre les balises (bouton #) prévues à cet effet ?

bonjour,
désolé pour le manque de clarté, je joins un exemple de tableau excel
il faudrait donc ouvrir un document "type" sur word (avec le code joint je pense y arriver)
puis copier le nom dans le courrier ainsi que les dates correspondantes aux cases de couleurs

ex: bonjour Monsieur " Maurice Durand" vous êtes de garde les "2,3,5" janvier

les mots en gras correspondant à ceux à ajouter sur le courrier

Code:

---

1 2 3 4 5 6

Sub deb()   Set wordapp = CreateObject("word.Application") wordapp.Visible = True wordapp.Documents.Open "C:\Users\Aurelie\Downloads\ExcelWord\Bonjour.doc" End Sub

---

merci

Bonjour,
Je constate que plutôt que de reformuler ta question, tu préfères que les contributeurs se tapent l'ouverture de ton classeur pour tenter de déchiffrer ce que tu attends.
Personnellement, je n'ouvre pas les classeurs joints car je trouve qu'une personne qui attend de l'aide doit faire un minimum d'effort pour expliquer ce qu'il attend. Je rappelle que nous sommes des bénévoles
Une simple lecture du forum Question + réponses doit permettre à tous les lecteurs de profiter des explications. C'ets pour moi l'esprit d'un forum.

Exemple d'un code qui écrit "en dur" le texte dans un nouveau document Word ouvert depuis une procédure Excel

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub WordWrite() Dim objWord As Object 'On Error Resume Next Set objWord = CreateObject("Word.Application.8") objWord.Visible = True ' Affiche Word objWord.Documents.Add 'Ajoute un document With objWord.Selection .TypeParagraph .TypeText Text:="Bonjour Maurice Durant," .TypeParagraph .TypeText Text:="Vous êtes de garde les 2, 3, 5 janvier" .TypeParagraph End With 'pour imprimer le document ' objWord.PrintOut Set objWord = Nothing End Sub

---

Exemple d'un code qui écrit de texte dans un nouveau document Word ouvert depuis une procédure Excel en fonction de cellules nommées (pCivility, pName, pDate)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub WordWrite() Dim objWord As Object 'On Error Resume Next Set objWord = CreateObject("Word.Application.8") objWord.Visible = True ' Affiche Word objWord.Documents.Add 'Ajoute un document With objWord.Selection .TypeParagraph .TypeText Text:="Bonjour " & Range("pCivility") & " " & Range("pName") & "," .TypeParagraph .TypeText Text:="Vous êtes de garde les " & Range("pDate") .TypeParagraph End With 'pour imprimer le document ' objWord.PrintOut Set objWord = Nothing End Sub

---

Ma préférence va bien entendu dans l'écriture de la valeur contenue dans des cellules nommées dans des signets (objet Bookmark) dans Word

Bonjour,

Bof ! IL suffit d'un banal publipostage. Pour autant que les données soient arrangées en conséquence.

Un champ pour Maurice Durand. Un champ pour 2,3,4 et un champ pour janvier. Une feuille de calcul avec une ligne par individu et quelques colonnes. Même pas besoin d'une macro pour ça.

bonjour,

désolé je pensais qu'un exemple était plus parlant qu'une explication, je n'ai jamais demandé de me donner les codes mais simplement comment faire pour qu'une case de couleur soit identifié bref
merci à vous pour votre sympathie
cdlt

Bonjour,

Citation:

---

comment faire pour qu'une case de couleur soit identifié bref

---

Pour identifier la couleur d'une cellule, il suffit de lire sa propriété Interior.Color qui renvoie un code RGB (Valeur numérique)
Exemple d'un test du la couleur jaune

Code:

---

If Range("A5").Interior.Color = 65535 Then MsgBox "C'est en jaune"

---

ou en utilisant la constante pour le jaune (Il n'y a que 7 ou 8 constantes couleurs)

Code:

---

If Range("A5").Interior.Color = vbYellow Then MsgBox "C'est en jaune"

---

Cependant je conseille plutôt d'utiliser des cellules nommées que le repère par couleur

La suggestion de Clément est évidemment plus intéressante que l'utilisation du VBA et à privilégier si tu débutes.

bonjour,
merci beaucoup en fait si tu veux le tableau excel existe déjà et je ne pas le changer il s'agit d'un modèle unique pour tous les planning de mon boulot je ne peux donc pas changer le document.Pour le publipostage je ne connais pas du tout.
je vous remercie encore de votre aide je vais voir les tutos qui existe car si s'est plus simple tant mieux pour moi