Liaison entre Word et Excel

Emericlem -  
Emericlem Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -
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.
A voir également:

11 réponses

Réponse 1 / 11
stanpellerin Messages postés 173 Date d'inscription   Statut Membre Dernière intervention   100
 
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
0
Réponse 2 / 11
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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
0
Emericlem Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
Merci de votre réponse
Mais je suis désolé je suis loin d'étre un pro en code.

Ou je dois écrire ce code ?
0
Réponse 3 / 11
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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
0
Emericlem Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
Alors j'ai réussi a faire ce que vous disiez, mais en quoi ca va pouvoir m'aider à relier mes titres écrit dans mon fichier word dans mon fichier excel ?
0
Réponse 4 / 11
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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
0
Emericlem Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai ce message d'erreur qui apparait "Erreur de compilation; type défini par l'utilisateur non défini"
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 11
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Voici un exemple:

http://www.cjoint.com/c/EHrqRntQpIQ
0
Emericlem Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
Je viens d'essayer ton code, alors il me dit :

"Erreur d'éxecution 1004:
C:\Users\ELEM\Desktop\Essai.xls introuvable
Verifié l'orhographe etc"

Mais je suis sur que mon nom de fichier et d'emplacement est correct, comme j'ai fait un copier coller de son nom dans les propriétés.

J'ai essayé également de copier ton code pour un autre fichier et il me dit une nouvelle fois : "Erreur de compilation; type défini par l'utilisateur non défini"
0
Réponse 6 / 11
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
L'exemple que j'ai posté est a utiliser tel quel.
Ne rien changer!
0
Emericlem Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
C'est ce que j'ai essayé de faire, le message d'erreur est toujours la..
0
Réponse 7 / 11
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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

0
Emericlem Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
Alors cette fois si il me dit :

"Erreur d'éxecution 1004: La méthode Select de la classe Range à échoué "

Encore Merci de vouloir m'aider.
0
Réponse 8 / 11
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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/
0
Emericlem Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
Top, merci.
Je vais regarder ca
0
Réponse 9 / 11
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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

0
Emericlem Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
La je peux copier mon texte. Il me renvoie sur le fichier Excel, qui me de demande si je veux enregistrer les modifications apportées.
J'accepte, le fichier excel se referme, mais quand j'ouvre celui-ci la feuille est vierge
0
Réponse 10 / 11
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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
0
Emericlem Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
C'est bon ca marche pour le copier coller, mais avec ce code je n'ai pas de mise a jour de mon excel quand je vais modifier le word ?
0
Réponse 11 / 11
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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
0
Emericlem Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
Merci en tout cas, tu m'as bien avancé dans mes recherches !
0