Discussion :

[nogard2591]

Bonjour,

J'ai une macro sur excel qui vient me remplir un document word et créer un publipostage afin d'imprimer un ordre de travail.

Nous souhaitons pouvoir distinguer par une couleur différente les ordres de travail imprimé le lundi du mardi ...

Je pensais le faire par mise en forme conditionnel mais ca n'existe pas sur Word.

Il y a une case contenant la date en question et je souhaite que cette case se colore différemment chaque jour (définis ou aléatoire) pour ensuite l'imprimer.

Merci

[cerede2000]

Bonjour à toi,

En effet (c'est dommage !) pas de MFC dans Word

Quand tu dit que tu as une case, c'est à dire ?
Tu as un tableau dans Word et tu vient mettre ta date dans une des cellules ?
Tu utilise un signet ? Un champ VariableDoc ?

[nogard2591]

Bonjour cerede2000,

Oui en effet dans excel je choisis la date, généralement du lendemain ou du lundi si je travail un vendredi.

Ensuite excel vient remplir la case du tableau word avec la date que j'ai choisis.

Et je souhaiterais que cette case prenne une couleur aléatoire.

Afin que nous puissions différencier les feuilles imprimées pour le lundi, des feuilles imprimées pour le mardi ect...

Merci.

[cerede2000]

Pour mettre une couleur de fond sur la première cellule du premier tableau d'un document Word :

Code :

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

1
2
Set myTable = ActiveDocument.Tables(1)
myTable.Cell(1, 1).Shading.BackgroundPatternColor = wdColorBlue

Après couleur aléatoire il faudrait gérer le fait de ne pas avoir de répétition de couleur.
Tu peux peut être partir sur une couleur fixe par jour, genre lundi bleu, mardi jaune, mercredi vert...

Edit : Pour le plaisir

Code :

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

1
2
3
4
5
6
Public Function RndRGBColor() As Long
    RndRGBColor = RGB(Int(Rnd() * 256), Int(Rnd() * 256), Int(Rnd() * 256))
End Function
 
Set myTable = ActiveDocument.Tables(1)
myTable.Cell(1, 1).Shading.BackgroundPatternColor = RndRGBColor

[nogard2591]

Merci beaucoup

Après plusieurs essais j'ai trouvé



Public Sub Document_Open()

RndRGBColor

MsgBox "c'est bon"

End Sub

Public Function RndRGBColor() As Long
RndRGBColor = RGB(Int(Rnd() * 256), Int(Rnd() * 256), Int(Rnd() * 256))

Set myTable = ActiveDocument.Tables(1)
myTable.Cell(1, 1).Shading.BackgroundPatternColor = RndRGBColor

End Function

Il est top ton code et il marche super

Merci cerede2000