Discussion :

[benj63]

Bonjour,

Je cherche à créer en VB une macro qui insère un tableau dans un document Word, et qui remplit les différentes cases du tableau. Il m'est donc nécessaire de connaître le code pour passer d'une cellule à une autre (sur une ligne en dessous).

Mon problème est quel cela fonctionne lorsque Word est visible, mais pas lorsque l'application est masquée !

La preuve :

Code :

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

1
2
3
4
5
6
7
8
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
        5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    Selection.TypeText Text:="test ligne 1"
    Selection.MoveRight Unit:=wdCell, Count:=1
    Selection.TypeText Text:="test colonne 2"
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.TypeText Text:="test ligne 2"

me donnera :

Code :

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

1
2
3
4
5
|--------------|--------------|--------------|--------------|--------------|
| test ligne 1 |test colonne 2|              |              |              |
|--------------|--------------|--------------|--------------|--------------|
|              | test ligne 2 |              |              |              |
|--------------|--------------|--------------|--------------|--------------|

En masquant Word (je ne souhaite pas que la fenêtre de Word s'affiche lors de la macro) :

Code :

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

1
2
3
4
5
6
7
8
9
10
    Application.Visible = False
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
        5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    Selection.TypeText Text:="test ligne 1"
    Selection.MoveRight Unit:=wdCell, Count:=1
    Selection.TypeText Text:="test colonne 2"
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.TypeText Text:="test ligne 2"
    Application.Visible = True

j'obtiendrai :

Code :

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

1
2
3
4
5
6
|--------------|--------------|--------------|--------------|--------------|
| test ligne 1 |test colonne 2|              |              |              |
|              |test ligne 2  |              |              |              |
|--------------|--------------|--------------|--------------|--------------|
|              |              |              |              |              |
|--------------|--------------|--------------|--------------|--------------|

Selection.MoveRight, Selection.MoveLeft fonctionnent que ce soit en mode masqué ou non, par contre Selection.MoveDown me pose problème ! J'ai essayé en utilisant wdRow au lieu de wdLine mais VB et Word n'en veulent pas !

Existe-t'il une autre méthode pour changer de ligne du tableau (qui fonctionne en mode masqué !) ?

Merci par avance !

[zazaraignée]

salut

Code :

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

Selection.Offset(1,0),Select

à moins que ce ne soit

Code :

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

Selection.Offset(0, 1),Select

sais plus

[benj63]

Merci mais Selection.Offset n'est pas reconnu...

J'ai cherché davantage et j'ai utilisé cela :

Code :

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

Selection.GoTo What:=wdGoToLine, Which:=wdGoToRelative, Count:=1

ça semble fonctionner, même si ce n'est pas un changement de cellule vers le bas uniquement (on retourne à la cellule tout à gauche)

[benj63]

Je laisse un peu ouvert le sujet sans [résolu], des fois que d'autres personnes aient des idées !

[ouskel'n'or]

Curieux ton histoire... Avec VBA97 la syntaxe que tu as évoquée fonctionne

Code :

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

    Selection.MoveDown Unit:=wdLine, Count:=1

Es-tu sûr de ne pas avoir une ligne vide dans l'une de tes cellules ?

A+

[benj63]

Cette syntaxe fonctionne parfaitement quand la fenêtre de Word est affichée. Par contre, dès que je mets Application->Visible = false, cette commande ne réalise pas un déplacement du curseur vers le bas... Je ne comprends pas d'ailleurs pourquoi !

[ouskel'n'or]

Et si au lieu de la rendre invisible, tu la réduisais ? as-tu essayé ?

Code :

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

    Application.WindowState = wdMinimized

A+

[ThierryAIM]

dès que je mets Application->Visible = false, cette commande ne réalise pas un déplacement du curseur vers le bas... Je ne comprends pas d'ailleurs pourquoi !

le plus étrange encore, c'est qu'avec Word2003, ca fonctionne, visible ou non
tu peux toujours essayer cette syntaxe :

Code :

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

1
2
3
    ActiveDocument.Tables(1).Columns(1).Cells(1).Range.Text = "test ligne 1"
    ActiveDocument.Tables(1).Columns(2).Cells(1).Range.Text = "test colonne 2"
    ActiveDocument.Tables(1).Columns(2).Cells(2).Range.Text = "test ligne 2"