Bjr, je voudrais ouvrir un fchier en cliquant sur une cellule du tableau actif. Avez-vous une solution? en vous remerciant
un p'tit lien hypertexte
michdenis
Bonjour Marianne,
Il y a aussi cette façon de faire : copie la procédure suivante dans le module feuille où l'action se déroule.
tu adaptes le nom du fichier et du chemin du fichier.
à chaque fois que tu cliqueras sur la cellule A1, le fichier s'ouvrira s'il n'est pas déjà ouvert.
'------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Wk As Workbook If Target.Address = Range("A1").Address Then Set Wk = Workbooks("Lefichier.xls") If Err <> 0 Then Err = 0 Workbooks.Open "c:LeCheminlefichier.xls" End If End If
End Sub '------------------------
Salutations!
"marianne puget" a écrit dans le message de news: % Bjr, je voudrais ouvrir un fchier en cliquant sur une cellule du tableau actif. Avez-vous une solution? en vous remerciant
Bonjour Marianne,
Il y a aussi cette façon de faire : copie la procédure suivante dans le module feuille où l'action se déroule.
tu adaptes le nom du fichier et du chemin du fichier.
à chaque fois que tu cliqueras sur la cellule A1, le fichier s'ouvrira s'il n'est pas déjà ouvert.
'------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Wk As Workbook
If Target.Address = Range("A1").Address Then
Set Wk = Workbooks("Lefichier.xls")
If Err <> 0 Then
Err = 0
Workbooks.Open "c:LeCheminlefichier.xls"
End If
End If
End Sub
'------------------------
Salutations!
"marianne puget" <puget.marianne@neuf.fr> a écrit dans le message de news: %23ncfcEr9FHA.3484@TK2MSFTNGP10.phx.gbl...
Bjr,
je voudrais ouvrir un fchier en cliquant sur une cellule du tableau actif.
Avez-vous une solution?
en vous remerciant
Il y a aussi cette façon de faire : copie la procédure suivante dans le module feuille où l'action se déroule.
tu adaptes le nom du fichier et du chemin du fichier.
à chaque fois que tu cliqueras sur la cellule A1, le fichier s'ouvrira s'il n'est pas déjà ouvert.
'------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Wk As Workbook If Target.Address = Range("A1").Address Then Set Wk = Workbooks("Lefichier.xls") If Err <> 0 Then Err = 0 Workbooks.Open "c:LeCheminlefichier.xls" End If End If
End Sub '------------------------
Salutations!
"marianne puget" a écrit dans le message de news: % Bjr, je voudrais ouvrir un fchier en cliquant sur une cellule du tableau actif. Avez-vous une solution? en vous remerciant
