Lien Word-Excel

Bonjour,

Je voudrais faire un lien entre un fichier Word et Excel à savoir déterminer des emplacements dans mon fichier Word qui seraient mis à jour en fonction d'information reprise dans des cellules Excel.

Sauriez-vous m'orienter vers une solution pour créer ce genre de lien ?

Bien à vous,

MRA_TDE

Bonsoir,

personnellement j'utilise les signets de word que je reprends dans un code vba .

Sub Bouton1_Cliquer()

 Dim WordObj As Object, Doc As Object

    Set WordObj = CreateObject("Word.Application")

    WordObj.Visible = True

    ' ouvre un document existant

    Set Doc = WordObj.Documents.Open("C:\ICI ton fichier word")

    With Doc '.Selection

    .Bookmarks("Signet1").Range.Text = Range("A1")
    .Bookmarks("Signet2").Range.Text = Range("B1")
    .Bookmarks("Signet3").Range.Text = Range("C1")
    .Bookmarks("Signet4").Range.Text = Range("D1")

   end with

end sub

Ton signet 1 ajoutera la valeur de A1 etc

Pour placer un signet dans un document word, faire menu\insertion\signet ( mettre le curseur à l'endroit voulu)

en espérant t'avoir aiguillé (:

cordialement

Civo,

Merci pour l'aide, j'ai testé et actuellement, ça me renvoie à un bug mais au moins j'ai une base de travail.

Tedd88

Bonjour,

Quel bug tu as ?

Il faut que ton fichier word soit fermé, la macro l'ouvre ( j'ai oublié de préciser )

Cordialement

Civo,

J'avais fermé le fichier word mais lorsqu'il l'ouvre, il me renvoie le code 80010105 soit Erreur Automation.

J'ai pourtant utilisé ton code adapté à mon fichier :

Sub Bouton1_Cliquer()

 Dim WordObj As Object, Doc As Object

    Set WordObj = CreateObject("Word.Application")

    WordObj.Visible = True

    ' ouvre un document existant

    Set Doc = WordObj.Documents.Open("C:\Users\tde.MRASRV1\Desktop\Canevas A_R français.docm")

    With Doc '.Selection

    .Bookmarks("Signet1").Range.Text = Range("A1")
    .Bookmarks("Signet2").Range.Text = Range("A2")
    .Bookmarks("Signet3").Range.Text = Range("A3")
    .Bookmarks("Signet4").Range.Text = Range("A4")
    .Bookmarks("Signet5").Range.Text = Range("A5")
    .Bookmarks("Signet6").Range.Text = Range("A6")
    .Bookmarks("Signet7").Range.Text = Range("A7")
    .Bookmarks("Signet8").Range.Text = Range("A8")
    .Bookmarks("Signet9").Range.Text = Range("A9")
    .Bookmarks("Signet10").Range.Text = Range("A10")
    .Bookmarks("Signet11").Range.Text = Range("A11")
    .Bookmarks("Signet12").Range.Text = Range("A12")
    .Bookmarks("Signet13").Range.Text = Range("A13")
    .Bookmarks("Signet14").Range.Text = Range("A14")
    .Bookmarks("Signet15").Range.Text = Range("A15")
    .Bookmarks("Signet16").Range.Text = Range("A16")
    .Bookmarks("Signet17").Range.Text = Range("A17")
    .Bookmarks("Signet18").Range.Text = Range("A18")
    .Bookmarks("Signet19").Range.Text = Range("A19")
    .Bookmarks("Signet20").Range.Text = Range("A20")
    .Bookmarks("Signet21").Range.Text = Range("A21")
    .Bookmarks("Signet22").Range.Text = Range("A22")
    .Bookmarks("Signet23").Range.Text = Range("A23")

   End With

End Sub

Re,

As-tu la référence Microsoft word xx.x Object Library de cocher dans les référence de VB ?

Cordialement

Re,

Je l'ai coché maintenant et refait un test mais j'ai toujours le message d'erreur.