Microsoft 365 Ouvrir le dossier téléchargement avec Macro

[iliess]

Bonjour
Je souhaite modifier le code suivant pour ouvrir le dossier téléchargement .
Voici le code :

Sub Ouvir_dossier_telechargement()
Dim Chemin As String
Chemin = Application.GetOpenFilename("XL* Files (*.xls;*.xlsm;*.xlsx), *.xls;*.xlsm;*.xlsx", 1, "ouvrir un fichier")
If Chemin = "Faux" Then Exit Sub
End Sub

L'emplacement du dossier téléchargement sur mon PC est C:\Users\meziani.ilies

Salutation.

 

[danielco]

Bonjour,

A adapter :

Sub Ouvir_dossier_telechargement()
Dim Chemin As String
ChDrive "D"
ChDir "d:\Users\dcola\Downloads"
Chemin = Application.GetOpenFilename("XL* Files (*.xls;*.xlsm;*.xlsx), *.xls;*.xlsm;*.xlsx", 1, "ouvrir un fichier")
If Chemin = "Faux" Then Exit Sub
End Sub

Daniel

 

[iliess]

Merci beaucoup
Oui ça marche très bien

 

[patricktoulon]

Bonsoir
j'arrive bien tard mais bon
vous pouvez demander a windows de vous donner le chemin sans avoir a le coder en dur dans le code
et pour les filtres a tous les mettre j'en met qu'un avec la fin de l'extension "*"

Sub Ouvir_dossier_telechargement()
Dim Chemin As String
ChDir CreateObject("shell.Application").Namespace("shell:Downloads").Self.Path
Chemin = Application.GetOpenFilename("XL* Files (*.xls*), *.xls*", 1, "ouvrir un fichier")
If Chemin = "Faux" Then Exit Sub
End Sub