Y
youlel
Guest
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
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