lier des documents word à un tableau excel

naj

XLDnaute Junior
bonjour!

je viens solliciter votre aide car je vais bientôt m'arracher les cheveux!! :S
voici, ce que je dois faire:

je dois créer un tableau dans word qui rempli automatiquement un tableau excel.

Grâce aux documents liés j'y arrive

là où ca se corse, c'est que je veux lier plusieurs tableaux word à un document excel. Chaque colonne du document word doit remplir les lignes du tableau excel.
le faire un fois, ok c'est faisable avec pleins de collage speciaux, mais le but c'est que je puisse ouvrir un nouveau document word (genre un modele ou j'aurais fait mon tableau) et que lorsque je remplis mes cases, ca rempli mon tableau excel. Et que lorsque j'ouvre un nouveau document word, ca remplit la ligne suivante...

suis je claire??

si qqun a une idee... PITIEEEEE!

merci :)
 

tatiak

XLDnaute Barbatruc
Re : lier des documents word à un tableau excel

Bonjour Naj et bienvenue!
Voilà rapidos une solution : un fichier Word à compléter, qui, à la fermeture, va écrire les données du tableau à la suite des données du fichier Base.xls

Le tout est "piloté" par la macro suivante :
Code:
Private Sub Document_Close()
Dim i As Integer, ligne As Integer
Dim NDF As String
Dim XlApp As Excel.Application
Dim XlDoc As Excel.Application
    NDF = ActiveDocument.Path & "\Base.xls"
    
    On Error Resume Next
    Set XlApp = CreateObject("Excel.Application")
    Set XlDoc = XlApp.Workbooks.Open(NDF, ReadOnly:=False)
    
    With XlApp
        .Visible = False
        ligne = .ActiveWorkbook.Sheets(1).Range("A65000").End(xlUp).Row + 1
        For i = 1 To 3
            .Cells(ligne, i).Value = Tables(1).Cell(2, i)
        Next i
    End With
    
    XlApp.Application.Quit
    Set XlDoc = Nothing
    Set XlApp = Nothing
End Sub
Bonne journée :)
 

Fichiers joints

naj

XLDnaute Junior
Re : lier des documents word à un tableau excel

merci merci merci!!
je vais tester ca et je vous tiens au courant! ^^:)
 

naj

XLDnaute Junior
Re : lier des documents word à un tableau excel

arf arf arf ca bloque..

à cette ligne: Dim XlApp As Excel.Application

j'ai peut etre mal fait un truc????? j'ai fait comme indiquer mais dans le premier cas il me dit: erreur de compilation: projet ou bibliotheque introuvable.
et dans le deuxieme: c'est le meme message....

si quelqu'un ce que ca signifie.
je suppose que tu as testé avant de me l'envoyer et qu'en fait ca doit etre un truc tout bete..
 

tatiak

XLDnaute Barbatruc
Re : lier des documents word à un tableau excel

Bonjour Naj,
La démo est écrite sous word2000, en cas de version différente, il faut activer la bonne library de référence!
Pour cela :
* ouvrir le document dans word
* activer les macro (avec le niveau de sécurité à moyen au moins)
* taper en même temps Alt et F11
* menu outils/Référence
* et cocher la case devant "Microsoft Excel x.xx Object Library" (ou x.xx change en fonction de la version de word)
* valider
* revenir sur le document par Alt+F11

Après cela ça devrait fonctionner :)
 

naj

XLDnaute Junior
Re : lier des documents word à un tableau excel

merci pour la reponse rapide!!
je suis au boulot, je vais essayer de savoir quel version ils ont sur ces becanes! ^^
 

naj

XLDnaute Junior
Re : lier des documents word à un tableau excel

j'ai du mal.
la version que j'ai de word c'est word 97 - SR 2
dans outils/reference je n'en trouve qu'un, et c'est 8.0 mais ca marche toujours pas...
 

tatiak

XLDnaute Barbatruc
Re : lier des documents word à un tableau excel

Ah ben zut! :(
Le problème vient probablement du fait que la version 97 ne connait pas les fonctionnalités VBA de la version 2000 utilisées ici.
Malheureusement, je ne dispose pas de la version 97 et du coup je ne sait pas comment traduire le code!
Je vais faire appel à Eric_45, "mon testeur" en 97 pour voir s'il peut nous aider :)
 

naj

XLDnaute Junior
Re : lier des documents word à un tableau excel

c'est sympa.^^
en attendant j'essaye de farfouiller un peu partout!

si ca peut aider comme info, dans references il me met: MANQUANT: Microsoft Excel 9.0 Object Library
 

naj

XLDnaute Junior
Re : lier des documents word à un tableau excel

a cette ligne:

Dim XlApp As Excel.Application


ca dit: erreur compilation: type défini par l'utilisateur non défini

:(

tout ca a cause de versions differentes!arf
 

naj

XLDnaute Junior
Re : lier des documents word à un tableau excel

ok je vais tester!
merci de te casser la tête dessus avec moi!
je me sens moins seule, ça fait 2 jours que je suis bloquée dans mon projet à cause de ça!
 

tatiak

XLDnaute Barbatruc
Re : lier des documents word à un tableau excel

Re-télécharge le fichier joint précédent : c'est un nouveau qui corrige une bétise!
 

naj

XLDnaute Junior
Re : lier des documents word à un tableau excel

ca bloque à celle la: Dim XlDoc As Excel.Application


et si je remplace par object dans cette ligne aussi, ca dit: variable non définie
 

naj

XLDnaute Junior
Re : lier des documents word à un tableau excel

ah j'avais pas vu ton message precedent. je teste? dc prend pas en compte ce que j'ai dit juste avant
 

naj

XLDnaute Junior
Re : lier des documents word à un tableau excel

a cette ligne:
ligne = .ActiveWorkbook.Sheets(1).Range("A65000").End(xlUp).Row + 1

variable non definie. Il surligne "xlUP"

cela dit, ca a passé les premieres lignes!
 

Discussions similaires


Haut Bas