Discussion :

[alexifma]

Bonjour à tous!

Voici mon problème en espérant que quelqu'un saura le résoudre.

J'ai un fichier Excel, contenant dans une de ses cellules le nom d'une personne.

De l'autre côté, j'ai un fichier Word existant (ce fichier est donc à compléter) dans lequel je voudrais créer un lien vers cette cellule spécifique.

J'aimerais savoir si il existe une macro pouvant faire l'interaction entre Word et Excel. En effet, cette macro est intéressante car j'ai une liste de personnes important à traiter.

Je vous remercie de votre aide!!!!

[catsur]

Regarde du côté des objets OLE je pense que ça doit être possible, mais je ne m'y connaît pas bien sur ce sujet...

J'espère que quelqu'un pourra t'aider mieux que moi sur le forum...

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

Ce que tu cherches est probablement du publipostage.


Regarde si tu ne trouves pas ton bonheur dans ce tuto
http://heureuxoli.developpez.com/off.../publipostage/

[aA189]

Je penche aussi pourla solution des objets OLE

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Comment envoyer la valeur d'une cellule vers un signet?
'Supposant un document lettre.doc contenant les signets: "Monsignet" et "Monsignet2"
Sub EcritVersSignet()
Dim LaLettre As String
Dim LeMontant
Dim LeTexte2
Dim ObjWord As Word.Application
Dim LeDocWord As Word.Document
 
On Error Resume Next
 
LaLettre = ThisWorkbook.Path & "\lettre.doc"
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = True
Set LeDocWord = ObjWord.Documents.Open(LaLettre)
LeMontant = [A1]
LeTexte2 = [A2]
With LeDocWord
'Le nom du signet dans le document word est ici "Monsignet"
.Bookmarks("Monsignet").Range.Text = LeMontant
'Le nom du signet dans le document word est ici "Monsignet2"
.Bookmarks("Monsignet2").Range.Text = LeTexte2
End With
 
'Pour enregistrer le document et quitter Word
'LeDocWord.Save
'ObjWord.Quit
 
Set ObjWord = Nothing
End Sub

Ça commence toujours comme ça :

Code :

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

Set ObjWord = CreateObject("Word.Application")

pour aller d'excel vers Word

et

Code :

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

Set ObjWord = CreateObject("excel.Application")

pour aller de Word vers excel ...

[aA189]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Procédure pour écrire dans Word
Sub EcriDansWord()
Dim WordObj As Object
On Error Resume Next
Set WordObj = CreateObject("Word.Application.8")
'Pour afficher Word
WordObj.Visible = True
'Ajoute un document
WordObj.Documents.Add
 
With WordObj.Selection
.TypeParagraph
.TypeText Text:="Procédure pour écrire dans Word "
.TypeParagraph
.TypeText Text:="Daniel :o)"
.TypeParagraph
End With
'pour imprimer le document
WordObj.PrintOut
Set WordObj = Nothing
End Sub

Voici le lien ou j'aie pêché l'info

http://dj.joss.free.fr/word.htm

[Heureux-oli]

Super le lien,

Tu ne devais pas aller aussi loin c'est décrit dans le tuto que je donne en lien.

Et je vois pas très bien où se trouve l'appel à OLE dans ton code.
Ouvrir un document par le biais d'une procédure en appelant l'application n'est pas vraiment de l'OLE.

La différence, c'est que le code que je donne dans le tuto, si tu ne parviens pas à le mettre en oeuvre, je peux toujours te venir en aide, mais l'auteur du code que tu donnes va-t-il t'aider ??

[alexifma]

Je vous remercie de votre aide! je devrais m'en sortir avec ça.