Insérer un tableau dans word depuis macro exc Résolu

Question

Bonjour,

je dispose de MS office 2007 et souhaite, depuis une macro excel, créer un fichier word et y insérer un tableau.

Le code suivant me renvoit toujours l'erreur 450 à la ligne du .ActiveDocument.Tables.Add :


Sub Word()
  Dim docWord As Object
  Set docWord = New Word.Application
  ' Création d'un nouveau document :
  docWord.Documents.Add
  ' Ecriture d'un petit texte dans ce nouveau document :
  docWord.Selection.TypeText "Test de fonctionnement"
  ' Insérer un petit tableau :
  docWord.ActiveDocument.Tables.Add Selection.Range, 3, 4
  ' Sauvegarde de ce document ainsi créé :
  docWord.ActiveDocument.SaveAs "C:\Simple test.doc"
  ' Fermeture de ce document :
  docWord.ActiveDocument.Close
  Set docWord = Nothing
End Sub


J'ai cherché sur le net de nombreux exemples de macro, mais cette erreur revient toujours. La librairie word est quant à elle bien sûr activée.

Avez-vous des idées?

Merci d'avance!

thev · Accepted Answer

Sub Word()

Dim docWord As Object
' Création d'un nouveau document :
Set docWord = CreateObject("Word.Document")
' Ecriture d'un petit texte dans ce nouveau document :
docWord.Content.Text = "Test de fonctionnement"
' Insérer un petit tableau en fin de document :
Set contenu = docWord.Content
contenu.Collapse Direction:=wdCollapseEnd
docWord.Tables.Add Range:=contenu, NumRows:=3, NumColumns:=4
' Sauvegarde de ce document ainsi créé :
docWord.SaveAs "C:\Simple test.doc"
' Fermeture de ce document :
docWord.Close
Set docWord = Nothing
End Sub

marc · Answer

Merci beaucoup !

Insérer un tableau dans word depuis macro exc

2 réponses

Newsletters