echange entre excel et word

Question

bonjour,
je travaille sur un programme d'echange entre excel et word le programme est le suivant:
Private Sub Command1_Click()


Dim DocWord As Word.Document
Dim Appword As Word.Application
Set Appword = New Word.Application
Appword.ShowMe
Appword.Visible = True
'Ouvre le document Word (Fichier.doc) et effectue une copie des donn&#233;es
Set DocWord = Appword.Documents.Open("C:\Documents and Settings\KHORSA\Mes documents\TEST1", ReadOnly:=True)
With Appword
.Selection.WholeStory
.Selection.Copy
End With
' Copie des donn&#233;es dans Excel
ThisWorkbook.Worksheets("feuil1").Paste
' Fermeture de Word
Appword.Application.Quit
Application.CutCopyMode = False
End Sub

ce programme est simple il suffit de creer un botton commande pour l'appliquer avec l'addition de word et excel dans objet/reference  .
mon probeme c'est que lors de l'excution il m'affiche un msg d'erreur comme koi la methode thisworkbook de l'objet global a echou&#233; je comprend pas prkoi
merci d'avance pour m'aider,bonne journ&#233;e

jpleroisse · Answer

Bonjour,
Franchement, je ne sais pas pourquoi cela ne marche pas chez toi?
Je viens d'essayer ton code et cela fonctionne tr&#232;s bien chez moi.
As tu plac&#233; le r&#233;f&#233;rences a World?

jpleroisse

cs_youlel · Answer

le reference a world??????

jpleroisse · Answer

Bonjour,
Tu fais dans VBE, Outils / R&#233;f&#233;rences et tu coches 
Microsoft Word 8.0 Object Library (8.0 ou aures, cela d&#233;pend de te version MSOffice).
Cela permet la liaison entre Excel et Word.

jpleroisse

cs_youlel · Answer

oui j'ai fait &#231;a pour word et excel au debut,j'ai coch&#233; Microsoft Word 11.0 Object Library,a votre avis pourqoui une methode echoue????
msg erreur: la m&#233;thode 'thisworkbook' du projet global a echou&#233;
tu es le 2eme qui me dit que le programme &#231;a marche mais je comprend pas pourquoi &#231;a marche pas chez moi en plus je comprend pas le msg d'erreur

Echange entre excel et word

4 réponses

Discussions similaires