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

iliess

XLDnaute Occasionnel
Bonjour
Je souhaite modifier le code suivant pour ouvrir le dossier téléchargement .
Voici le code :
VB:
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.
 

Pièces jointes

  • ouvrir dossier telechargement.xlsm
    11.9 KB · Affichages: 0
Solution
Bonjour,

A adapter :

VB:
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

danielco

XLDnaute Accro
Bonjour,

A adapter :

VB:
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
 

patricktoulon

XLDnaute Barbatruc
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 "*"
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
313 211
Messages
2 096 248
Membres
106 543
dernier inscrit
piegmp