Modification d'un fichier word via excel
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:
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.