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