Discussion :

[tellib]

bonjour à tous,

a partir d'un fichier Excel je dois créer un document Word dans lequel j'insère un tableau

je voudrais fixer strictement la hauteur des lignes

j'ai écrit une macro mais elle marche la première fois puis la seconde j'ai une erreur d'exécution 462 : le serveur distant n'existe pas ou n'est pas disponible

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
dim WordApp As Word.Application
 
 
Set WordApp = New Word.Application
 
'copie table 
Range("a1:f50").Select
Selection.Copy
WordApp.Selection.Goto What:=wdGoToBookmark, Name:="champ_bareme"
WordApp.Selection.Paste
 
WordApp.Selection.Tables(1).Select
WordApp.Selection.Rows.HeightRule = wdRowHeightAtLeast 
WordApp.Selection.Rows.Height = CentimetersToPoints(0.40)

j'ai essayé aussi

Code :

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

WordApp.tables(1).Rows.SetHeight RowHeight:=CentimetersToPoints(0.40), HeightRule:=wdRowHeightExactly

mais j'ai le même problème

merci pour votre aide

[Heureux-oli]

Salut,

C'est la fin du code dans ton cas qui m'intéresserait.

Je pense que tu ne libères pas tes objets et que Word continue en tâche de fond.