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!

Configuration: Windows Vista
Firefox 3.0.5