Insérer un tableau dans word depuis macro exc

Résolu/Fermé
marc - 30 janv. 2009 à 18:37
 Jijiross - 12 nov. 2019 à 07:26
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!
A voir également:

2 réponses

thev Messages postés 1852 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 23 avril 2024 681
31 janv. 2009 à 01:13
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
2
Ceci est pour vous remercier. Pour votre bon travail
0
Merci beaucoup !
0