Liaison entre Word et Excel Fermé

Question

Bonjour, 

Bonjour, 

J'aimerai savoir si il est possible de créer une liaison entre un fichier Word et un fichier Excel. 
Plus précisément que mes titres que je crée dans le fichier Word se mette automatiquement dans un tableau du fichier Excel. 
J'ai déjà testé les copier-coller avec liaison, ou les insertions objets sans résultat. 

Merci d'avance.

stanpellerin · Answer

Bonjour,
Cela me paraît peut probable. En effet, l'utilité de ces deux programmes est totalement différente : l'un est pour le traitement de texte, l'autre pour le traitement de tableaux, chiffres, diagrammes... 
Rien ne vous empêche de créer des liens hypertextes dans le Word, vers une feuille d'Excel... 
Bonne journée

Stanpellerin

cs_Le Pivert · Answer

Bonjour,

Pour ouvrir un classeur Excel a partir de Word, voici le code:

Option Explicit
'Allez dans Outils Réferences et cocher Microsoft Excel 12.0 Object Library
Private Sub CommandButton1_Click()
Dim xlApp As New Excel.Application
xlApp.Workbooks.Open "C:\Users\....\Documents\monclasseur.xls" 'adapter le chemin du classeur Excel
xlApp.Visible = True
End Sub
 

Ensuite il faut se servir de l'enregistreur de macro sous Word en faisant la manip pour copier.
Et la même chose sous Excel pour coller, ce qui donne:

Option Explicit
'Allez dans Outils Réferences et cocher Microsoft Excel 12.0 Object Library
Private Sub CommandButton1_Click()
Dim xlApp As New Excel.Application
'ma macro copier sous Word
xlApp.Workbooks.Open "C:\Users\....\Documents\monclasseur.xls" 'adapter le chemin du classeur Excel
xlApp.Visible = True
'ma macro sous Excel pour coller
xlApp.Quit
End Sub
1234567

cs_Le Pivert · Answer

Ouvrir le doc Word, faire Alt F11 pour accéder au code.

Allez dans Insertion- insérer un UserForm, 

allez dans Affichage- Boite à Outils, mettre un CommandButton. 

Double cliquez sur ce bouton et mettre le code

Allez dans Outils- Références et cocher Microsoft Excel 12.0 Object Library

Ensuite faire F5

cs_Le Pivert · Answer

allez dans affichage- Fenêtres Propriété 
Mettre la propriété de l'UserForm ShowModal à false (c'est pour pouvoir travailler sur la page avec l'UserForm)

Ensuite voilà le code:

Option Explicit
Private Sub CommandButton1_Click()
 Dim xlApp As New Excel.Application
 Selection.Copy 'ma macro copier sous Word
xlApp.Workbooks.Open "C:\Users\...\Documents\monclasseur.xls" 'adapter le chemin du classeur Excel
xlApp.Visible = True
ActiveSheet.Paste 'ma macro sous Excel pour coller
xlApp.Quit
End Sub

Il suffira de lancer en faisant F5, Sélectionner la zone à copier et cliquer sur le bouton
@+ Le Pivert

cs_Le Pivert · Answer

Voici un exemple:

http://www.cjoint.com/c/EHrqRntQpIQ

cs_Le Pivert · Answer

L'exemple que j'ai posté est a utiliser tel quel.
Ne rien changer!

cs_Le Pivert · Answer

Change en mettant ceci

'Allez dans Outils Réferences et cocher Microsoft Excel 12.0 Object Library
Option Explicit
Private Sub CommandButton1_Click()
 Dim xlApp As New Excel.Application
 Selection.Copy 'ma macro copier sous Word
xlApp.Workbooks.Open ActiveDocument.Path & "\Essai.xls" 'ne pas changer
xlApp.Visible = True
With Worksheets(1)'ma macro sous Excel pour coller
.Range("H9").Select 
.Paste
  End With
 xlApp.Quit
End Sub

cs_Le Pivert · Answer

j'ai trouvé cela qui devrait, correspondre à ta demande.
Il y a un dossier exemple à télécharger:

http://www.gcexcel.com/vba-importer-des-donnees-de-word-vers-excel/

cs_Le Pivert · Answer

J'ai encore rectifier le code, essaie:

'Allez dans Outils Réferences et cocher Microsoft Excel 12.0 Object Library
Option Explicit
Private Sub CommandButton1_Click()
 Dim xlApp As New Excel.Application
 Selection.Copy 'ma macro copier sous Word
xlApp.Workbooks.Open ActiveDocument.Path & "\Essai.xls" 'ne pas changer
xlApp.Visible = True
xlApp.ActiveSheet.Paste Destination:=xlApp.Workbooks("Essai.xls").Worksheets("Feuil1").Range("H9") 'Copie vers  Essai.xls
 xlApp.Application.CutCopyMode = xlCopy
xlApp.Quit
End Sub

cs_Le Pivert · Answer

Chez moi cela fonctionne!

Tu es bien sur la feuille1?

Sinon supprimes le classeur et crées-en un autre avec le même nom: Essai avec l'extension.xls. Cela peut provenir du classeur. 

Je te renvoie un exemple

cs_Le Pivert · Answer

Voici le fichier:

 http://www.cjoint.com/c/EHspmWt5wjQ

Non, ce n'est pas automatique!

Il faut l'enregistrer!

Je ne peux pas faire plus.

Essaie avec le lien que je t'ai donné. Mais il faudra quand même l'enregistrer.

Bon courage

Liaison entre Word et Excel

11 réponses

Discussions similaires