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.
J'ai mis le code dans thisworkbook mais ça ne marche pas.
Voici mon code :
Sub message()
MsgBox ("lancemenfft de la macro")
End Sub
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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'message
RecupereValeurCellule
End Sub