XL 2019 Code pour la boîte Ouvrir

[AIXELS]

Bonjour à tous les amis du Forum. 🙂
Je reviens vers vous une fois de plus pour vous demander
le code pour ouvrir la boîte de dialogue "Ouvrir" voir fichier joint
et arriver au répertoire spécifié sans avoir à choisir le lecteur, le
répertoire, le ou les sous-répertoires et arriver directement sur
le répertoire spécifié à savoir :
D:\M_TRAVAIL\SAUVEGARDES\FICHIERS\
et ce, en cliquant sur l'icône PDF affectée à la macro ci-dessous.
Voir le fichier joint.
Par avance merci.
Bien cordialement.

Actuellement, j'ai ce code qui fonctionne très bien
mais qui m'oblige à aller sur D: le répertoire TRAVAIL, SAUVEGARDES, FICHIERS
et sélectionner le fichier avec l'extension .PDF pour l'envoyer par mail, pour
ce faire, je tape "=" sur la cellule F2 ou G2 pour insérer le nom du fichier avec
le chemin complet.

Sub LeFichier()
Dim file_path As String
file_path = Application.GetOpenFilename(MultiSelect:=False)
If file_path <> "False" Then
Selection.Value = file_path
End If
End Sub

 

[AIXELS]

Bonjour à tous les amis du Forum. 🙂
Bonjour @patricktoulon
Merci pour ce cours. 👍
Toujours bon à savoir, mais mon niveau n'est
pas à ce stade. C'est plus de la compréhension
de l'utilisation de ces nuances de codes.
Bonne journée à tous. 🌞