Discussion :

[gemxtrust]

Hello,

Je sais que le sujet à déjà été abordé mais pas tout à fait ce que je cherche.

J'ai 4 documents word avec certains des listbox etc.
Dans les 4 documents, j'ai des données comme un n°, une Localité, une adresse,... Que je vais devoir retranscrire dans les 4 à des endroits différents.

J'aimerai marquer les infos à remplir dans des cellules Excel exemple A1 : n°...... A2 : PARIS A3: RUE BLABLA (ça va changer à chaque fois donc je remplirai manuellement les cellules)

Et j'aimerai que avec les infos mis dans les cellules, quand j'ouvre le doc 1 il aille mettre les infos A1 à un endroit précis (signet ?), A2 à un autre endroit, etc.
Ensuite ouvrir le doc 2 et qu'il copie A1 au bon endroit (qui sera différent du DOC 1 mais si je mets signet1 aussi ça devrait aller non ?

Bref, j'ai regardé pas mal d'info mais je bloc dès le départ :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte

   Il bloque déjà ici --> Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("monDocument.doc")    'ouvre le document Word
    WordApp.Visible = False    'Word est masqué pendant l'opération

    For i = 1 To 3
        'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
        WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(i, 1)
    Next i

    WordApp.Visible = True

Il met déjà une erreur de compilation à SET
Je précise que ce code source n'est pas de moi, je l'ai trouvé sur une des pages ici.

C'est pour montrer que c'est +ou ce que je cherche à faire, du moins je crois.

Par contre moi, je peux ouvrir la page word moi même et je sauvegarderai moi même ensuite (car il y a d'autres choses à remplir dans le doc qui ne seront pas dans les cellules)

Je vous remercie d'avance

[Menhir]

Plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim WordDoc As Word.Document
Dim i As Byte
 
    Set WordDoc = GetObject("monDocument.doc")    'ouvre le document Word
    WordDoc.Application.Visible = False    'Word est masqué pendant l'opération

As-tu activé la bibliothèque d'objets Word dans les références ?