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

[Ecureuil31]

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,

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]

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

 

[Ecureuil31]

J'avais essayé cette hypothèse et le message d'erreur suivant apparaît : Erreur Compilation - Erreur Synthaxe

 

[Jacky67]

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

 

[vgendron]

Hello all

dans le code de Pierrejean, il manque juste un symbole " après "$b$7 ----->"$b$7 "

 

[Ecureuil31]

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 !