XL 2010 VBA - Afficher lien d'un fichier sur deux cellules distinctes à partir d'un double clic [Résolu]

Ecureuil31

XLDnaute Nouveau
Bonjour à tous,

Je souhaiterais dans une même feuille insérer deux liens de deux fichiers distincts dans deux cellules à partir d'un double clic.
Un lien se trouverait sur la cellule B4 par exemple et l'autre B7.
Pour cela en double cliquant sur B4, on ouvre la boîte de dialogue qui permet d'afficher l'arborescence et d'aller sélectionner le fichier voulu. Pareil pour B7

A force de chercher, je suis arrivé à réaliser une macro pour une cellule. Mais cela ne fonctionne pas pour les deux. Je me doute que le problème réside dans l'ActiveCell...j'ai tenté plusieurs options sans succès pour intégrer la seconde cellule...

Je vous remercie par avance pour votre aide,

VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

On Error Resume Next

If ActiveCell.Address <> "$B$4" Then Exit Sub

Cancel = True

With Application.FileDialog(msoFileDialogFilePicker)

  .AllowMultiSelect = False

  .Show

  Target = .SelectedItems(1)

End With

End Sub
 

pierrejean

XLDnaute Barbatruc
Bonjour Ecureuil

A tester:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

On Error Resume Next

If ActiveCell.Address = "$B$4" or ActiveCell.Address = "$B$7 Then



With Application.FileDialog(msoFileDialogFilePicker)

.AllowMultiSelect = False

.Show

Target = .SelectedItems(1)

End With

end if

End Sub
 

Discussions similaires