XL 2019 Code pour la boîte Ouvrir

AIXELS

XLDnaute Occasionnel
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
 

Pièces jointes

  • BOITE OUVRIR.jpg
    BOITE OUVRIR.jpg
    104 KB · Affichages: 9
  • Aperçu tableau d'envoi mail.jpg
    Aperçu tableau d'envoi mail.jpg
    130.5 KB · Affichages: 8

Discussions similaires

Réponses
2
Affichages
252