Transmission de données de excel à word

-----Message d'origine-----
Bonjour,
Avant de répondre à ta question, j'ai une question.
Est-il important que le tableau copié dans Word soit en
lien avec celui

dans Excel ?
Que les modifications apportées au tableau dans Excel se
reflètent dans

le document Word ?
À suivre,
Céline

"LN" <lnl@ifrance.com> a écrit dans le message de news:
07e701c37867$c2e99b40$a301280a@phx.gbl...
Bonjour à tous

J'ai une nouvelle fois besoin de votre aide.
J'ai fait une macro sous excel et je désire copier un
tableau de données sous word.
Mon problème est que je ne sais pas exporter mon tableau
sous forme de tableau (sous forme d'image çà ne me
conviendrai pas).
Donc j'aimerai ouvrir l'application word selon un
modèle.dot qui existe déjà afin :
1- de lancer une macro qui appartient à ce fichier
modèle.

2- de copier mon tableau de données sous word.

Je ne sais pas si c'est possible.

Avez-vous une idée pour résoudre mon problème???

Merci d'avance.

Bonne fin de journée

LN

ps : Je suis ouverte à toute proposition sur une autre
méthode pour résoudre mon problème.
Si le seul moyen est de copier mon tableau de données sous
forme d'image alors j'aimerai également savoir la manière
de procéder. RE MERCI d'avance.

.

-----Message d'origine-----
Salut,
essais ca :

Dim wd As Word.Application

'*********************************************************
******************

*********************

' IDENTIFICATION DU REPERTOIRE ET DU NOM DU FICHIER A
SAUVEGARDER DANS

WORD

REP = "C:WINNT"

FICH = "nomdufichier"
Nomfich = REP & FICH

'*********************************************************
******************

*********************

Set wd = New Word.Application
wd.Documents.Add _
Template:="C:Program FilesMicrosoft
OfficeTemplatesNORMAL.dot",

NewTemplate:=False
'**********************************************
'selectionnes ton tableau
Range("A1", Range("a10000").End(xlUp)).Select
Selection.Copy
'**********************************************

wd.ActiveDocument.Range.PasteSpecial Link:=True,
DataType:=wdPasteText

wd.ActiveDocument.SaveAs _
FileName:=Nomfich, _
FileFormat:=wdFormatDOSText, _
LockComments:=False, _
Password:="", _
AddToRecentFiles:=True, _
WritePassword:="", _
ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, _
SaveFormsData:=False, _
SaveAsAOCELetter:=False

wd.Quit
Set wd = Nothing

@+
Michel.



LN <lnl@ifrance.com> wrote in message
news:07e701c37867$c2e99b40$a301280a@phx.gbl...
Bonjour à tous

J'ai une nouvelle fois besoin de votre aide.
J'ai fait une macro sous excel et je désire copier un
tableau de données sous word.
Mon problème est que je ne sais pas exporter mon tableau
sous forme de tableau (sous forme d'image çà ne me
conviendrai pas).
Donc j'aimerai ouvrir l'application word selon un
modèle.dot qui existe déjà afin :
1- de lancer une macro qui appartient à ce fichier
modèle.

2- de copier mon tableau de données sous word.

Je ne sais pas si c'est possible.

Avez-vous une idée pour résoudre mon problème???

Merci d'avance.

Bonne fin de journée

LN

ps : Je suis ouverte à toute proposition sur une autre
méthode pour résoudre mon problème.
Si le seul moyen est de copier mon tableau de données sous
forme d'image alors j'aimerai également savoir la manière
de procéder. RE MERCI d'avance.


.

-----Message d'origine-----
Bonjour,

Essaie en cochant la référence à Word dans VBE (Outils -
références)

"LN" <lnl@ifrance.com> a écrit dans le message de
news:006701c37879$e87c44e0$a301280a@phx.gbl...
Salut michel

Ca me semblait être une bonne idée.
J'avais déjà essayé Application.word et il ne connaissait
pas.
VB me dit la même chose pour Word.Application :
Erreur de compilation
Type défini par l'utilisateur non défini

Tu as un remède à cà???

Genre le type caché quelquepart???

Merci d'avance.

LN

-----Message d'origine-----
Salut,
essais ca :

Dim wd As Word.Application

'********************************************************
*

******************

*********************

' IDENTIFICATION DU REPERTOIRE ET DU NOM DU FICHIER A
SAUVEGARDER DANS

WORD

REP = "C:WINNT"

FICH = "nomdufichier"
Nomfich = REP & FICH

'********************************************************
*

******************

*********************

Set wd = New Word.Application
wd.Documents.Add _
Template:="C:Program FilesMicrosoft
OfficeTemplatesNORMAL.dot",

NewTemplate:=False
'**********************************************
'selectionnes ton tableau
Range("A1", Range("a10000").End(xlUp)).Select
Selection.Copy
'**********************************************

wd.ActiveDocument.Range.PasteSpecial Link:=True,
DataType:=wdPasteText

wd.ActiveDocument.SaveAs _
FileName:=Nomfich, _
FileFormat:=wdFormatDOSText, _
LockComments:=False, _
Password:="", _
AddToRecentFiles:=True, _
WritePassword:="", _
ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, _
SaveFormsData:=False, _
SaveAsAOCELetter:=False

wd.Quit
Set wd = Nothing

@+
Michel.



LN <lnl@ifrance.com> wrote in message
news:07e701c37867$c2e99b40$a301280a@phx.gbl...
Bonjour à tous

J'ai une nouvelle fois besoin de votre aide.
J'ai fait une macro sous excel et je désire copier un
tableau de données sous word.
Mon problème est que je ne sais pas exporter mon tableau
sous forme de tableau (sous forme d'image çà ne me
conviendrai pas).
Donc j'aimerai ouvrir l'application word selon un
modèle.dot qui existe déjà afin :
1- de lancer une macro qui appartient à ce fichier
modèle.

2- de copier mon tableau de données sous word.

Je ne sais pas si c'est possible.

Avez-vous une idée pour résoudre mon problème???

Merci d'avance.

Bonne fin de journée

LN

ps : Je suis ouverte à toute proposition sur une autre
méthode pour résoudre mon problème.
Si le seul moyen est de copier mon tableau de données
sous

forme d'image alors j'aimerai également savoir la manière
de procéder. RE MERCI d'avance.


.

.