Discussion :

[zeralium]

Bonjour,

Je souhaiterai supprimer des lignes d'un tableau dans un fichier word, voici le code que j'ai actuellement, mais qui ne fonctionne pas

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
26
27
28
29
 
' Création des objets Word
Dim WdApp As Word.Application
Dim WdDoc As Word.Document
 
'ouvre la session Word
    Set WdApp = CreateObject("word.application")
'ouvre le doc
    Set WdDoc = WdApp.Documents.Open("D:\Documents and Settings\XXX\Bureau\Projet - XXX\XXX - Relevés des reglages.doc")
'masque l'application (Pour les tests, mettre à True)
    WdApp.Visible = True
 
 
WdDoc.Range(WdDoc.Tables(4).Cell(8, 1).Range.Start, WdDoc.Tables(4).Cell(31, 7).Range.End).Select
WdDoc.Selection.Rows.Delete
WdDoc.Selection.TypeBackspace
 
'Enregistre et ferme le doc word
WdDoc.SaveAs "D:\Documents and Settings\XXX\Bureau\Projet - XXX\XXX - toto.doc"
 
WdDoc.Close True
'Laisse au system le temps d'enregistrer le fichier
DoEvents
'ferme la session
WdApp.Quit
 
Set WdApp = Nothing
Set WdDoc = Nothing
End Sub

En fait les lignes ne sont pas supprimées et j'ai le message d'erreur suivant "erreur d'exécution 438" "Propriété ou méthode non gérée par cet objet.

Par avance merci.

[aalex_38]

Bonjour,

utilises le debegueur en mode pas à pas et dis nous sur quelle ligne tu as le message, ce sera plus facile pour t'aider.

[pgz]

Bonsoir.

Je te propose de remplacer

Code :

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

1
2
3
WdDoc.Range(WdDoc.Tables(4).Cell(8, 1).Range.Start, WdDoc.Tables(4).Cell(31, 7).Range.End).Select
WdDoc.Selection.Rows.Delete
WdDoc.Selection.TypeBackspace

Par

Code :

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

1
2
3
For i = 8 to 31
    WdDoc.Tables(4).Rows(8).Delete
next i

Cordialement,

PGZ

[zeralium]

Bonjour,

J'ai essayé le code proposé, mais cela ne fonctionne pas car dans mon tableau j'ai des cellules fusionnées verticalement, erreur d'execution 5991.

[datacell33]

C'est assez bizarre, mais le modèle objet de Word (faire F2 pour afficher le modèle objet) ne gère pas de propriété SELECTION pour l'objet que tu as créé WdDoc (objet de type DOCUMENT, va voir les propriétés dispos pour document).

SELECTION existe pour l'objet WINDOW.

Il faut donc écrire :

Code :

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

Set MyDoc = WordApp.Documents(nom_word & ".doc").ActiveWindow

(exemple)

Puis pour effacer les lignes après ta sélection qui est juste :

Code :

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

MyDoc.Selection.Rows.Delete

J'ai pas trop compris l'esprit de ce MOO en fait... Mais en le lisant, c'est bien comme ça qu'on fait, le message d'erreur que tu as est logique...

---

Je me souviens que je m'étais creusé grave la tête sur ce pb, et j'avais posté un petit tuto sur mon blog :

http://excel-methode.blogspot.com/20...tiquement.html

Le coup du Set MyDoc = .... pour gérer les propriétés du documents, on le retrouve là-dedans.

Bonne journée !

[zeralium]

Merci pour votre aide, pour l'instant je contourne le problème annulant les cellules fusionnées. Voici le code que j'utilise:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
WdDoc.Tables(4).Cell(8, 1).Split NumRows:=6, NumColumns:=1
WdDoc.Tables(4).Cell(8, 2).Split NumRows:=1, NumColumns:=6
WdDoc.Tables(4).Cell(14, 1).Split NumRows:=6, NumColumns:=1
WdDoc.Tables(4).Cell(14, 2).Split NumRows:=1, NumColumns:=6
WdDoc.Tables(4).Cell(20, 1).Split NumRows:=6, NumColumns:=1
WdDoc.Tables(4).Cell(20, 2).Split NumRows:=1, NumColumns:=6
WdDoc.Tables(4).Cell(26, 1).Split NumRows:=6, NumColumns:=1
WdDoc.Tables(4).Cell(26, 2).Split NumRows:=1, NumColumns:=6
 
Set myTable = WdDoc.Tables(4)
Set myRange = WdDoc.Range(myTable.Cell(8, 1) _
    .Range.Start, myTable.Cell(31, 7).Range.End)
myRange.Rows.Delete

Mais si quelqu'un peux m'expliquer pourquoi ca ne marche pas avec des cellules fusionnées.

[datacell33]

Ben oui, tu n'utilises plus la "Selection" sur ton WdDoc...
La méthode Delete employée est correctement utilisée cette fois, là encore, voir le MOO word.
Je ne pense pas que c'est parce que tu as désplitté tes cellules !

[zeralium]

Tu as tout à fait raison, desolé pour le retard.

Merci encore pour ton aide.

[pgz]

Bonsoir.

A mon avis, la méthode Delete appliquée à une ligne de tableau échoue si la ligne contient des cellules fusionnées verticalement.
Par contre les cellules fusionnées horizontalement ne sont pas gênantes.

PGZ

[zeralium]

Tu as surement raison, mais en fait je supprime les lignes jusqu'au bas de la cellule fusionnée verticalement.