J'ai une base de données Access, dans cette base de données, j'ai un formulaire avec un bouton qui crée un tableau dans un document word existant, le code est le suivant :  
 
Dim myWDApp As Word.Application
   Dim strsql As String
   Dim myRange As Word.Range, myTable As Word.table
   Dim acell As Word.Cell, iCol As Integer
   Dim rst1 As New ADODB.Recordset, irow As Integer    
   strsql = "SELECT Prem,Deux,Trois,Quatre,Cinq,Libel,Qui,Comment FROM TCodes"
 
   With rst1
       .ActiveConnection = CurrentProject.Connection
       .Open strsql, , adOpenKeyset, adLockOptimistic
   End With
   
   Set myWDApp = CreateObject("Word.Application" )
   myWDApp.Documents.Open ("d:\Bdd\QLT\doc587.doc" )
   Set myRange = myWDApp.ActiveDocument.Range(0, 0)
   myWDApp.ActiveDocument.Tables.Add Range:=myRange, _
       NumRows:=rst1.RecordCount + 1, NumColumns:=8
       
   For irow = 2 To myWDApp.ActiveDocument.Tables(1).Rows.Count
   iCol = 0
       For Each acell In myWDApp.ActiveDocument.Tables(1).Rows(irow).Cells
           acell.Range.Text = IIf(IsNull(rst1.Fields(iCol)), _
               "", rst1.Fields(iCol))
           iCol = iCol + 1  
       Next acell
   rst1.MoveNext
   Next irow
 
   myWDApp.ActiveDocument.Tables(1).AutoFitBehavior wdAutoFitContent
   myWDApp.Visible = True
 
Le problème, c'est que selon des critéres, certaines lignes du tableau (dans word) doivent etre grisées, d'autres doivent etre écrites en italiques et d'autres doivent etre alignees à gauche....
 
Comment dois-je faire, est-ce que je dois programmer ça dans word ou alors dans access ??? Et comment dois-je m'y prendre

Set myWDApp = CreateObject("Word.Application" )  
   
T as la main sur word d access avec ca alors autant travailler d access puisque tu y es deja non ?
 
De toute facon tu as le choix, a toi de voir