Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel création tableau word à partir d'excel

création tableau word à partir d'excel

7 réponses
Avatar
GA
Bonjour,

Je déclare Set docword = CreateObject("word.application")
j'ai bien la référence word library cochée,
mais j'ai une erreur sur la ligne:

docword.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2,
NumColumns:= 3

quelqu'un peut-il m'aider à trouver pourquoi ?

Merci d'avance

Cordialement
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
papou
Re
Tu n'as pas besoin de spécifier les ":="

docword.ActiveDocument.Tables.Add Selection.Range, 2, 3

par ailleurs si tu utilises la méthode CreateObject, il n'est pas forcément
nécessaire d'ajouter la référence à Word.
Cordialement
Pascal

"GA" a écrit dans le message de news:
%
Bonjour,

Je déclare Set docword = CreateObject("word.application")
j'ai bien la référence word library cochée,
mais j'ai une erreur sur la ligne:

docword.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2,
NumColumns:= 3

quelqu'un peut-il m'aider à trouver pourquoi ?

Merci d'avance

Cordialement


Avatar
GA
Merci beaucoup pour ta réponse,

mais j'ai toujours l'erreur:
"Nbre d'arguments incorrects ou affectation de propriété incorrecte !!"

Au secours!!

Cordialement


Re
Tu n'as pas besoin de spécifier les ":="

docword.ActiveDocument.Tables.Add Selection.Range, 2, 3

par ailleurs si tu utilises la méthode CreateObject, il n'est pas forcément
nécessaire d'ajouter la référence à Word.
Cordialement
Pascal

"GA" a écrit dans le message de news:
%

Bonjour,

Je déclare Set docword = CreateObject("word.application")
j'ai bien la référence word library cochée,
mais j'ai une erreur sur la ligne:

docword.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2,
NumColumns:= 3

quelqu'un peut-il m'aider à trouver pourquoi ?

Merci d'avance

Cordialement







Avatar
michelxld
bonsoir Ga , bonsoir Pascal

j'espere que cet exemple pourra t'aider

Sub creationTableau_DocWord()
Dim AppWord As Word.Application
Dim DocWord As Word.Document

Set AppWord = New Word.Application
AppWord.Visible = True
Set DocWord = AppWord.Documents.Add
DocWord.Tables.Add AppWord.Selection.Range, 2, 3

End Sub


bonne soiree
michel



"GA" wrote:

Merci beaucoup pour ta réponse,

mais j'ai toujours l'erreur:
"Nbre d'arguments incorrects ou affectation de propriété incorrecte !!"

Au secours!!

Cordialement


Re
Tu n'as pas besoin de spécifier les ":="

docword.ActiveDocument.Tables.Add Selection.Range, 2, 3

par ailleurs si tu utilises la méthode CreateObject, il n'est pas forcément
nécessaire d'ajouter la référence à Word.
Cordialement
Pascal

"GA" a écrit dans le message de news:
%

Bonjour,

Je déclare Set docword = CreateObject("word.application")
j'ai bien la référence word library cochée,
mais j'ai une erreur sur la ligne:

docword.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2,
NumColumns:= 3

quelqu'un peut-il m'aider à trouver pourquoi ?

Merci d'avance

Cordialement










Avatar
GA
Super ! merci Michel

cela fonctionne enfin !!

Mais je n'ai pas tout compris les instructions !!!

Pourrais-tu me mettre un petit commentaire sur chaque ligne ?
Si ce n'est pas trop abuser !
(Il faut que j'utilise Create.Object("word.application") au lieu de New
word.application pour que ca fonctionne)...

Cordialement

GA


bonsoir Ga , bonsoir Pascal

j'espere que cet exemple pourra t'aider

Sub creationTableau_DocWord()
Dim AppWord As Word.Application
Dim DocWord As Word.Document

Set AppWord = New Word.Application
AppWord.Visible = True
Set DocWord = AppWord.Documents.Add
DocWord.Tables.Add AppWord.Selection.Range, 2, 3

End Sub


bonne soiree
michel



"GA" wrote:


Merci beaucoup pour ta réponse,

mais j'ai toujours l'erreur:
"Nbre d'arguments incorrects ou affectation de propriété incorrecte !!"

Au secours!!

Cordialement



Re
Tu n'as pas besoin de spécifier les ":="

docword.ActiveDocument.Tables.Add Selection.Range, 2, 3

par ailleurs si tu utilises la méthode CreateObject, il n'est pas forcément
nécessaire d'ajouter la référence à Word.
Cordialement
Pascal

"GA" a écrit dans le message de news:
%


Bonjour,

Je déclare Set docword = CreateObject("word.application")
j'ai bien la référence word library cochée,
mais j'ai une erreur sur la ligne:

docword.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2,
NumColumns:= 3

quelqu'un peut-il m'aider à trouver pourquoi ?

Merci d'avance

Cordialement











Avatar
michelxld
bonjour Ga

ci joint quelques infos complémentaires qui j'espere répondront à ta demande

Sub creationTableau_DocWord()
'necessite d'activer la reference Microsoft Word xx.x Objext Library
Dim AppWord As Word.Application
Dim DocWord As Word.Document

Set AppWord = New Word.Application 'creation d'une session word
AppWord.Visible = True ' Word est visible pendant le traitement de la
procedure
Set DocWord = AppWord.Documents.Add 'creation d'un nouveau document Word
'la variable DocWord permet de gerer plus facilement le nouveau document créé

'insertion d'un tableau (2 lignes & 3 colonnes) dans le document
DocWord.Tables.Add AppWord.Selection.Range, 2, 3

End Sub


bonne journée
michel



"GA" wrote:

Pourrais-tu me mettre un petit commentaire sur chaque ligne ?
Si ce n'est pas trop abuser !
(Il faut que j'utilise Create.Object("word.application") au lieu de New
word.application pour que ca fonctionne)...

Cordialement

GA


Avatar
GA
Bonjour Michel

Merci beaucoup pour ta réponse matinale ...
C'est beaucoup plus clair maintenant..

Une dernière chose si c'est possible..

J'ai crée mon tableau, envoyé mes données dedans, mon doc word est
ouvert dans la barre des tâches. Comment le rappeler pour envoyer à
nouveau un autre tableau sous le premier créé ???


Merci encore pour ta réponse

Cordialement

Ga



bonjour Ga

ci joint quelques infos complémentaires qui j'espere répondront à ta demande

Sub creationTableau_DocWord()
'necessite d'activer la reference Microsoft Word xx.x Objext Library
Dim AppWord As Word.Application
Dim DocWord As Word.Document

Set AppWord = New Word.Application 'creation d'une session word
AppWord.Visible = True ' Word est visible pendant le traitement de la
procedure
Set DocWord = AppWord.Documents.Add 'creation d'un nouveau document Word
'la variable DocWord permet de gerer plus facilement le nouveau document créé

'insertion d'un tableau (2 lignes & 3 colonnes) dans le document
DocWord.Tables.Add AppWord.Selection.Range, 2, 3

End Sub


bonne journée
michel



"GA" wrote:

Pourrais-tu me mettre un petit commentaire sur chaque ligne ?
Si ce n'est pas trop abuser !
(Il faut que j'utilise Create.Object("word.application") au lieu de New
word.application pour que ca fonctionne)...

Cordialement

GA






Avatar
papou
Bonjour
AppActivate AppWord
Cordialement
Pascal

"GA" a écrit dans le message de news:
uU%23ze6%
Bonjour Michel

Merci beaucoup pour ta réponse matinale ...
C'est beaucoup plus clair maintenant..

Une dernière chose si c'est possible..

J'ai crée mon tableau, envoyé mes données dedans, mon doc word est ouvert
dans la barre des tâches. Comment le rappeler pour envoyer à nouveau un
autre tableau sous le premier créé ???


Merci encore pour ta réponse

Cordialement

Ga



bonjour Ga

ci joint quelques infos complémentaires qui j'espere répondront à ta
demande

Sub creationTableau_DocWord()
'necessite d'activer la reference Microsoft Word xx.x Objext Library
Dim AppWord As Word.Application
Dim DocWord As Word.Document

Set AppWord = New Word.Application 'creation d'une session word
AppWord.Visible = True ' Word est visible pendant le traitement de la
procedure
Set DocWord = AppWord.Documents.Add 'creation d'un nouveau document Word
'la variable DocWord permet de gerer plus facilement le nouveau document
créé

'insertion d'un tableau (2 lignes & 3 colonnes) dans le document
DocWord.Tables.Add AppWord.Selection.Range, 2, 3

End Sub


bonne journée
michel



"GA" wrote:

Pourrais-tu me mettre un petit commentaire sur chaque ligne ?
Si ce n'est pas trop abuser !
(Il faut que j'utilise Create.Object("word.application") au lieu de New
word.application pour que ca fonctionne)...

Cordialement

GA