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,
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