[VB et Word] Se déplacer d'une ligne vers le bas...

[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 :

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 :

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 :

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 :

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 :

Selection.Offset(1,0),Select

à moins que ce ne soit

Code :

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 :

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 :

    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 :

    Application.WindowState = wdMinimized

A+

[ThierryAIM]

Envoyé par benj63

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 :

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"