Discussion :

[bidulo]

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

[Philippe Tulliez]

Bonjour,

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.

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 ?

[bidulo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

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
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 :

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
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

[clementmarcotte]

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.

[bidulo]

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