Discussion :

[faube]

Bonjour,

J'ai un document excel à partir duquel j'ouvre différebt document word en cliquant sur les cellules, seulement à chaque fois, j'ai une nouvelle instance de word qui apparait dans la barre des taches. Je voudrai n'en avoir qu'une et que le nouveau document remplace l'existant.
J'ai bien fait un système de variable globale (wdApp ) pour savoir sir une instance de l'application word avait été créée mais ce n'est pas très propre.
Y a t-il une meilleur solution ?
Merci.

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Dim i As Integer
Dim wdApp As Word.Application
Dim wdDoc As Word.Document



Sub RecupereValeurCellule(ByVal Sh As Object, ByVal Target As Range)
'MsgBox ("Appel a RecupereValeurCellule2")
If Target.Column = 3 Then

' recupere la valeur de la cellule cliquée
valeurDeLaCelluleCourante = Range(ActiveCell.Address)

'recupere la valeur de la cellule en colonne B de la ligne courante
adr = "$B$" & Target.Row


valeurB = Range(adr)

'recupere la valeur de la cellule en colonne A de la ligne courante
adr = "$A$" & Target.Row
valeurA = Range(adr)

'Récupération de la feuille active
'MsgBox (Application.ActiveWorkbook.ActiveSheet.Name)
nomFeuilleActive = Application.ActiveWorkbook.ActiveSheet.Name
'Nom du documlent word a ouvrir en fonction de la cellule active
'MsgBox (nomFeuilleActive)
If nomFeuilleActive = "Test COCPIT" Then
'MsgBox ("cas Test COCPIT")
planEssai = "D:\PUBLIC\Pleiades-HR\LienExcelWord\PRS-PE-CPIT-230-CG_02_04_1.doc"
End If
If nomFeuilleActive = "Test PHR" Then
'MsgBox ("cas Test PHR")
planEssai = "D:\PUBLIC\Pleiades-HR\LienExcelWord\PHR-PE-642-2307-CG_01_03.doc"
End If


nomDuTest = valeurA & "-" & valeurB & "-" & valeurDeLaCelluleCourante & " £N"

'ouverture du document word et appel de la macro de recherche du test
'Dim wdApp As Word.Application
'Dim wdDoc As Word.Document
'MsgBox (i)
If i = 0 Then
Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Open(planEssai)
i = 1
End If

wdApp.Visible = True
wdApp.Run "Macro2", nomDuTest

End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
RecupereValeurCellule Sh, Target
End Sub

[tirex28]

Bonjour,

Essaye comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Test()
 
Dim wdApp As Word.Application
 
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
On Error GoTo 0
 
If wdApp Is Nothing Then Set wdApp = New Word.Application
 
wdApp.Visible = True
 
End Sub

Cordialement,

Tirex28/