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

D

danielco

XLDnaute Accro

• 27 Mai 2024

• #2

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

 

Vote positif 1 Vote négatif

Solution

I

iliess

XLDnaute Occasionnel

• 27 Mai 2024

• #3

Merci beaucoup
Oui ça marche très bien

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Mai 2024

• #4

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

 

Vote positif 1 Vote négatif