Ecrire dans un document word à partir d'une macro vba XL
2 réponses
gacent
Je souhaite utiliser une table de donnée excel pour créer des documents Word
trés simples.
J'utilise actuellement le publipostage mais j'aimerai siplifier les
opérations en écrivant directement dans un document word en utilisant une
macro vba depuis excell.
Merci à tous ceux qui prendrons le temps de me répondre
Gacent
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.j
Bonjour, http://dj.joss.free.fr/word.htm un exemple: Procédure pour écrire dans Word
Sub EcriDansWord() Dim WordObj As Object On Error Resume Next Set WordObj = CreateObject("Word.Application.8") 'Pour afficher Word WordObj.Visible = True 'Ajoute un document WordObj.Documents.Add
With WordObj.Selection .TypeParagraph .TypeText Text:="Procédure pour écrire dans Word " .TypeParagraph .TypeText Text:="Daniel :o)" .TypeParagraph End With
'pour imprimer le document WordObj.PrintOut Set WordObj = Nothing End Sub
Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm "gacent" a écrit dans le message de news: 4037eaa9$0$24943$ | Je souhaite utiliser une table de donnée excel pour créer des documents Word | trés simples. | J'utilise actuellement le publipostage mais j'aimerai siplifier les | opérations en écrivant directement dans un document word en utilisant une | macro vba depuis excell. | Merci à tous ceux qui prendrons le temps de me répondre | Gacent | |
Bonjour,
http://dj.joss.free.fr/word.htm
un exemple:
Procédure pour écrire dans Word
Sub EcriDansWord()
Dim WordObj As Object
On Error Resume Next
Set WordObj = CreateObject("Word.Application.8")
'Pour afficher Word
WordObj.Visible = True
'Ajoute un document
WordObj.Documents.Add
With WordObj.Selection
.TypeParagraph
.TypeText Text:="Procédure pour écrire dans Word "
.TypeParagraph
.TypeText Text:="Daniel :o)"
.TypeParagraph
End With
'pour imprimer le document
WordObj.PrintOut
Set WordObj = Nothing
End Sub
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
"gacent" <vball1@free.fr> a écrit dans le message de news: 4037eaa9$0$24943$626a14ce@news.free.fr...
| Je souhaite utiliser une table de donnée excel pour créer des documents Word
| trés simples.
| J'utilise actuellement le publipostage mais j'aimerai siplifier les
| opérations en écrivant directement dans un document word en utilisant une
| macro vba depuis excell.
| Merci à tous ceux qui prendrons le temps de me répondre
| Gacent
|
|
Bonjour, http://dj.joss.free.fr/word.htm un exemple: Procédure pour écrire dans Word
Sub EcriDansWord() Dim WordObj As Object On Error Resume Next Set WordObj = CreateObject("Word.Application.8") 'Pour afficher Word WordObj.Visible = True 'Ajoute un document WordObj.Documents.Add
With WordObj.Selection .TypeParagraph .TypeText Text:="Procédure pour écrire dans Word " .TypeParagraph .TypeText Text:="Daniel :o)" .TypeParagraph End With
'pour imprimer le document WordObj.PrintOut Set WordObj = Nothing End Sub
Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm "gacent" a écrit dans le message de news: 4037eaa9$0$24943$ | Je souhaite utiliser une table de donnée excel pour créer des documents Word | trés simples. | J'utilise actuellement le publipostage mais j'aimerai siplifier les | opérations en écrivant directement dans un document word en utilisant une | macro vba depuis excell. | Merci à tous ceux qui prendrons le temps de me répondre | Gacent | |
Pascal Engelmajer
Salut, un autre exemple sur http://www.ilyapa.net/excel/imprimeSelection.zip -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Daniel.j" a écrit dans le message de news: #w6EITS#
Bonjour, http://dj.joss.free.fr/word.htm un exemple: Procédure pour écrire dans Word
Sub EcriDansWord() Dim WordObj As Object On Error Resume Next Set WordObj = CreateObject("Word.Application.8") 'Pour afficher Word WordObj.Visible = True 'Ajoute un document WordObj.Documents.Add
With WordObj.Selection .TypeParagraph .TypeText Text:="Procédure pour écrire dans Word " .TypeParagraph .TypeText Text:="Daniel :o)" .TypeParagraph End With
'pour imprimer le document WordObj.PrintOut Set WordObj = Nothing End Sub
Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm "gacent" a écrit dans le message de news: 4037eaa9$0$24943$
| Je souhaite utiliser une table de donnée excel pour créer des documents Word
| trés simples. | J'utilise actuellement le publipostage mais j'aimerai siplifier les | opérations en écrivant directement dans un document word en utilisant une
| macro vba depuis excell. | Merci à tous ceux qui prendrons le temps de me répondre | Gacent | |
Salut,
un autre exemple sur http://www.ilyapa.net/excel/imprimeSelection.zip
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Daniel.j" <nospam_dj.joss@free.fr> a écrit dans le message de news:
#w6EITS#DHA.3428@tk2msftngp13.phx.gbl...
Bonjour,
http://dj.joss.free.fr/word.htm
un exemple:
Procédure pour écrire dans Word
Sub EcriDansWord()
Dim WordObj As Object
On Error Resume Next
Set WordObj = CreateObject("Word.Application.8")
'Pour afficher Word
WordObj.Visible = True
'Ajoute un document
WordObj.Documents.Add
With WordObj.Selection
.TypeParagraph
.TypeText Text:="Procédure pour écrire dans Word "
.TypeParagraph
.TypeText Text:="Daniel :o)"
.TypeParagraph
End With
'pour imprimer le document
WordObj.PrintOut
Set WordObj = Nothing
End Sub
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
"gacent" <vball1@free.fr> a écrit dans le message de news:
4037eaa9$0$24943$626a14ce@news.free.fr...
| Je souhaite utiliser une table de donnée excel pour créer des documents
Word
| trés simples.
| J'utilise actuellement le publipostage mais j'aimerai siplifier les
| opérations en écrivant directement dans un document word en utilisant
une
| macro vba depuis excell.
| Merci à tous ceux qui prendrons le temps de me répondre
| Gacent
|
|
Salut, un autre exemple sur http://www.ilyapa.net/excel/imprimeSelection.zip -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Daniel.j" a écrit dans le message de news: #w6EITS#
Bonjour, http://dj.joss.free.fr/word.htm un exemple: Procédure pour écrire dans Word
Sub EcriDansWord() Dim WordObj As Object On Error Resume Next Set WordObj = CreateObject("Word.Application.8") 'Pour afficher Word WordObj.Visible = True 'Ajoute un document WordObj.Documents.Add
With WordObj.Selection .TypeParagraph .TypeText Text:="Procédure pour écrire dans Word " .TypeParagraph .TypeText Text:="Daniel :o)" .TypeParagraph End With
'pour imprimer le document WordObj.PrintOut Set WordObj = Nothing End Sub
Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm "gacent" a écrit dans le message de news: 4037eaa9$0$24943$
| Je souhaite utiliser une table de donnée excel pour créer des documents Word
| trés simples. | J'utilise actuellement le publipostage mais j'aimerai siplifier les | opérations en écrivant directement dans un document word en utilisant une
| macro vba depuis excell. | Merci à tous ceux qui prendrons le temps de me répondre | Gacent | |