Echange de données entre Excel et Word et vice-versa

lcheret

XLDnaute Nouveau
Bonjour,

Un professeur m'a demandé si c'était possible de remplir un fichier excel et que les données soient transférées dans un formulaire Word, et vice-versa.
Je pense que faire simplement en utilisant Merge, ça ne va pas aller, donc il va falloir utiliser VBA, mais là je ne connais pas du tout.
Qui peut m'aider ou du moins m'expliquer comment faire?

Merci

Vu que le système de pièces jointes refuse mes pièces (limite de taille trop basse), je pourrais vous les faire parvenir par mail.
 

MJ13

XLDnaute Barbatruc
Re : Echange de données entre Excel et Word et vice-versa

Bonjour lcheret

Si tu fais un effort, je suis sur que tes fichiers peuvent passer.
 

lcheret

XLDnaute Nouveau
Re : Echange de données entre Excel et Word et vice-versa

La taille maximale est de 48.8 Ko (xls, xlsm et zip par expl), mon fichier xlsm fait 630Ko, j'ai un fichier docx non pris en charge et quand je zip le tout on arrive à 596Ko ...
Donc même avec un effort, ça passera pas
 

MJ13

XLDnaute Barbatruc
Re : Echange de données entre Excel et Word et vice-versa

Bonjour lcheret

Tu peux tester ce code:

Code:
Sub DonnéesWordVersExcel()
     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(ThisWorkbook.Path & "\Reclamations.docx", ReadOnly:=True)
     With AppWord
          .Selection.WholeStory
          .Selection.Copy
     End With
     ' Copie des données dans Excel
     ThisWorkbook.Worksheets("Sheet3").Range("A1").Select
     ActiveSheet.Paste
     ' Fermeture de Word
     AppWord.Application.Quit
     Application.CutCopyMode = False
End Sub
 

lcheret

XLDnaute Nouveau
Re : Echange de données entre Excel et Word et vice-versa

Merci, j'ai pas mal de boulot en cemoment. Je vais faire un test cet après-midi.
Je te tiens au courant

Merci et bon weekend
 

lcheret

XLDnaute Nouveau
Re : Echange de données entre Excel et Word et vice-versa

Salut,
J'ai une compile error dès le début ... User-defined type not defined
Je vais voir pour définir l'objet ...
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas