Discussion :

[zoom61]

Salut,

Je n'arrive pas à insérer des données dans un tableau, je m'explique, j'ai un document .dotx, que j'arrive à ouvrir, j'arrive à me positionner sur un tableau, j'arrive insérer une ligne, mais impossible de mettre des valeurs dans les cellules du tableau ???

Je pilote Word avec Access

Voici le code que j'ai réussi à trouver et qui fonctionne, mais j'ai un grand vide dans la boucle :

Code vba :

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
18
19
20
strChemin = CurrentProject.Path
Set wApp = New Word.Application
wApp.Visible = True 'permet d'afficher à l'écran le transfert de texte
'ouverture du document Word
wApp.Documents.Add Template:=strChemin & "\Modele.dotx", NewTemplate:=False, DocumentType:=0
 
ActiveDocument.Tables(6).Select
Set Tableau = ActiveDocument.Tables(6)
 
SQLLigne = "SELECT CHAMP1, CHAMP2, CHAMP3, CHAMP4 " _
    & "FROM R_LIGNE " _
    & "ORDER BY CHAMP1;"
 
'Set db = CurrentDb
Set oSQLLigne = CurrentDb.OpenRecordset(SQLLigne)
While Not oSQLLigne.EOF
    Tableau.Rows.Add
    'Renseigner les colonnes
oSQLLigne.MoveNext
Wend

Avez-vous une idée ?

@+.

[zoom61]

En cherchant un peu j'ai fini par trouver... le code est donc :

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
18
19
20
21
22
23
24
25
strChemin = CurrentProject.Path
Set wApp = New Word.Application
wApp.Visible = True 'permet d'afficher à l'écran le transfert de texte
'ouverture du document Word
wApp.Documents.Add Template:=strChemin & "\Modele.dotx", NewTemplate:=False, DocumentType:=0
 
ActiveDocument.Tables(6).Select
Set Tableau = ActiveDocument.Tables(6)
 
SQLLigne = "SELECT CHAMP1, CHAMP2, CHAMP3, CHAMP4 " _
    & "FROM R_LIGNE " _
    & "ORDER BY CHAMP1;"
 
'Set db = CurrentDb
Set oSQLLigne = CurrentDb.OpenRecordset(SQLLigne)
i = 2
While Not oSQLLigne.EOF
    Tableau.Rows.Add
    Tableau.Cell(i, 1).Range.Text = oSQLLigne.Fields("CHAMP1")
    Tableau.Cell(i, 2).Range.Text = oSQLLigne.Fields("CHAMP2")
    Tableau.Cell(i, 3).Range.Text = oSQLLigne.Fields("CHAMP3")
    Tableau.Cell(i, 4).Range.Text = oSQLLigne.Fields("CHAMP4")
    i = i + 1
    oSQLLigne.MoveNext
Wend

@+.

[Heureux-oli]

Salut,

C'était là : http://heureuxoli.developpez.com/off...-word/#LVI-A-3