Discussion :

[faube]

Bonjour,

J'ai un fichier excel avec plusieurs feuilles. Je souhaite recuperer
l' evenement clique sur une cellule pour ouvrir un document word.Ca j'y suis arrivé en inserant du code vb dans le code source d'une feuille. Ce que je voudrais maintenant c'est appliquer mon code a toutes les cellules sans dupliquer n fois mon code dans chaque cellule.
Merci pour vos reponses.

[flo_flo]

Bonjour,

On peut voir ton code ?

Tu as intercepté quel évènement ? SelectionChange?

[faube]

Voici mon code:

Code :

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

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'message
RecupereValeurCellule
End Sub

Avec :

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
Sub RecupereValeurCellule()
'recupere l'adresse de la cellue
CelN = ActiveCell.Address
'MsgBox (CelN)
valeurDeLaCelluleCourante = Range(CelN)
'MsgBox (valeurDeLaCelluleCourante)
'recupere la ligne de la cellule
LigneCelluleSelectionne = ActiveCell.Row
'MsgBox (LigneCelluleSelectionne)
' recupere le numero de colonne de la cellule selectionne
ColonneCelluleSelectionne = ActiveCell.Column
'MsgBox (ColonneCelluleSelectionne)
If ColonneCelluleSelectionne = 3 Then
'recupere la valeur de la cellule en colonne B de la ligne courante
adr = "$B$" & LigneCelluleSelectionne
'MsgBox (adr)
valeurB = Range(adr)
'MsgBox (valeurB)
 
'recupere la valeur de la cellule en colonne A de la ligne courante
adr = "$A$" & LigneCelluleSelectionne
'MsgBox (adr)
valeurA = Range(adr)
'MsgBox (valeurA)
 
'construction du signet
signet = valeurA & "_" & valeurB & "_" & valeurDeLaCelluleCourante
'MsgBox (signet)
'ouverture document word
cheminDocWord = "D:\PUBLIC\Pleiades-HR\LienExcelWord\PE.doc#" & signet
ThisWorkbook.FollowHyperlink cheminDocWord
End If
End Sub

J'ouvre un document word en me positionnant à un endroit precis grace à un signet.
Frédéric.

[jfontaine]

Si je lis bien, si la cellule sélectionné en en colonne 3 ("C") alors on ouver le document word et on se place sur le signet correspondant a la valeur des cellules A_B_C de la ligne sélectionnée

On peut simplifier ton code comme suit

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
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'message
Dim Signet As String
 
 
If Target.Column = 3 Then
 
    Signet = Range("A" & Target.Row).Value & "_" & Range("B" & Target.Row).Value & "_" & Target.Value
 
    'ouverture document word
    cheminDocWord = "D:\PUBLIC\Pleiades-HR\LienExcelWord\PE.doc#" & Signet
    ThisWorkbook.FollowHyperlink cheminDocWord
 
End If
 
 
End Sub

[faube]

Merci.
En effet ça simplifie beaucoup mon code, mais as tu une idée à propos de ma question, pour appliquer le code à toutes les feuilles du fichiers Excel.

[jfontaine]

En mettant ton code dans le classeur (ThisWorkbook) évenement Workbook_SheetChange

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
 
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Signet As String
 
 
If Target.Column = 3 Then
 
    Signet = Range("A" & Target.Row).Value & "_" & Range("B" & Target.Row).Value & "_" & Target.Value
 
    MsgBox Signet
 
    'ouverture document word
    cheminDocWord = "D:\PUBLIC\Pleiades-HR\LienExcelWord\PE.doc#" & Signet
    ThisWorkbook.FollowHyperlink cheminDocWord
 
End If
 
End Sub

[faube]

Merci pour ta réponse.
Ca marche.