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

[lcheret]

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]

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]

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

 

[lcheret]

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

J'ai réussi, j'espère juste que le fichier est complet avec les macros ...

 

[MJ13]

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

Bonjour lcheret

Tu peux tester ce 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]

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]

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 ...