echange entre excel et word

[youlel]

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é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é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é je comprend pas prkoi
merci d'avance pour m'aider,bonne journée

 

[michel_m]

Bonjour,

Quittes Word avant de travailler sur Excel: comme ta macro commence par Word, tu es en 'VBA Word' et thisworkbook est inconnu

' Fermeture de Word
Appword.Application.Quit
' Copie des données dans Excel
ThisWorkbook.Worksheets('feuil1').Paste

A+
Michel

 

[Jam]

Salut youlel,

Je viens d'essayer ton code brut de fonderie et il a fonctionné parfaitement.
La question que je me pose est : où se trouve ton code, je veux dire dans un module, un userform ou le module ThisWorkbook ?

Bon courage

 

[youlel]

salut Michel,
tjrs il m'affiche le meme msg d'erreur
d'apres ce j'ai compris de cet instruction:
ThisWorkbook.Worksheets('feuil1').Paste
ce de coler dans la feiulle de calcul 1 du classeur activé actullement c'est bien ça????j'ai esseyé ton code mais tjrs meme msg erreur

 

[youlel]

alors comment t'as fait pour moi il m'affiche un msg d'erreur comme koi: la methode this workbook de l'objet global a echoué,pour le code je l'ai place dans userform,est ce que tu peux m'aider???

 

[Jam]

Dans un module normal

Bon, j'viens de retester avec un userform, et ça marche nickel chrome.
Faut donc chercher ailleurs

Essai d'utiliser ça

Feuil1.Paste

au lieu de Thisworkbook...PAs certain que cela marche.

Quelle version d'XL et Word utilises tu ?

 

[youlel]

j'ai esseyé feuil1.paste mais il m'a donne une autre erreur:
erreur d'excution 424 ,un objet est requis

 

[youlel]

version de mon affice word et excel est 11.0

 

[Jam]

Je sèche là :S

Peux-tu attacher ton fichier pour qu'on y jette un coup d'oeil (s'il n'y a rien de confidentiel bien sur).

 

[youlel]

tu parle du fichier excel et word c'est ça????

 

[Jam]

Yep !

 

[youlel]

voila les deux fichier excel et word,en fait j'ouvre le fichier excel avnt de lancer l'execution et le programme fait l'appel au fichier word et copiet les donner et normalement il doit l'inserer sur le fichier ouvert d'excel mais dommage il me lance un msg d'erreur:la méthode this workbooks de l'objet global a echoué

 

[youlel]

voila le fichier excel en piece joint et j'ai deja mis le fichier word dans l'email d'avant merci pour ton aide

 

[youlel]

erreur d'execution 1004
la methode thisworkbook de l'objet'_global' a échoué :angry: