Discussion :

[Mickamax]

Bonjour à tous,
J'ai comme projet de réaliser un fichier me permettant d'ouvrir un fichier Excel en double-clickant sur une cellule et d'en extraire les informations que je souhaite.
J'ai trouvé de la documentation sur le forum, mais rien qui ne corresponde à mes besoins.

J'ai réalisé le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_beforedoubleclick(ByVal Target As Range, cancel As Boolean)
 
If ActiveCell.Address <> "$A$6" Then Exit Sub
cancel = True
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
ActiveCell = .SelectedItems(1)
End With
 
 
End Sub

Les résultats sont mitigés, puisque lorsque je double-click sur la fameuse cellule A6, le fichier s'ouvre normalement comme sur la capture d'écran qui suit:




Cependant, je n'ai un aperçu d'aucun fichier dans ce dossier qui en comporte pourtant plusieurs... Et j'avoue que je ne sais pas trop comment faire pour les rendre "visibles"... Mes fichiers sont normalement soit en format .xlsx soit au format .xlsm.




Merci à ceux qui auront la gentillesse de m'aiguiller un peu dans mon projet !


Bonne semaine à tous !