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.

11 réponses

  1.
    stanpellerin Messages postés 192 Statut Membre 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
  2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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
    1. 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
  3. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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
    1. 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
  4. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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
    1. 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

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

    Posez votre question
  6. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Voici un exemple:

    http://www.cjoint.com/c/EHrqRntQpIQ
    0
    1. 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
  7. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    L'exemple que j'ai posté est a utiliser tel quel.
    Ne rien changer!
    0
    1. 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
  8. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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
    1. 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
  10. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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
    1. 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
  11. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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
    1. 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
  12. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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
    1. 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

Discussions similaires

Symbole Attention dans Word
Nortec59 -
LOUL7619 -

33 réponses