Insérer un tableau dans word depuis macro exc
Résolu
marc
-
Jijiross -
Jijiross -
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!
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:
- Insérer un tableau dans word depuis macro exc
- Tableau word - Guide
- Insérer signature word - Guide
- Word 2013 - Télécharger - Traitement de texte
- Insérer une vidéo dans powerpoint - Guide
- Insérer sommaire word - Guide
2 réponses
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
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
Jijiross
Ceci est pour vous remercier. Pour votre bon travail