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
 

Jacky67

XLDnaute Accro
Bonjour,

Remplacer cette ligne
If ActiveCell.Address <> "$B$4" Then Exit Sub
par
If Intersect(Target, [b4, b7]) Is Nothing Then Exit Sub

*Hello pierrejean
 

Ecureuil31

XLDnaute Nouveau
Parfait, le code de Pierrejean marche bien effectivement. J'avais du oublier les " également quand je l'ai fait tout seul.

Merci beaucoup pour votre participation !
 

Haut Bas