Microsoft 365 ouvrir un fichier a partir d un folder

[cg1980]

bonjour

j aimerais avoir une macreo pour ouvrir un fichier a partir d'un chemin , exemple: S://Ordres/06.11.2023. la derniere partie du path est la date d'aujourd'hui par contre (donc non fixe).
ensuite j aimerais pouvoir selectionner le fichier xls/CSV a l interieur car il y en plusieurs. (a partir d un menu deroulant par exemple ou autres solution)
Merci d avance de votre aide

 

[sousou]

bonjour
Une solution ci-dessous à tester
Sub deb()
madate = Date
madate = Format(Day(madate), "00") & "." & Format(Month(madate), "00") & "." & Format(Year(madate), "00") & "\"

chemin = "S:/Ordres\" & madate & "\"
ChDir (chemin)
exappli = Application.GetOpenFilename("Base documentaire(*.xl*),.xl*", , "Choisir le fichier")
Set monfichier = Workbooks.Open(exappli)
End Sub

 

[sylvanu]

Bonjour CG, Sousou,
Un essai en PJ avec :

Sub Ouvrir()
Chemin = "C:\Users\PC_PAPA\Desktop\Ordres" ' Ici mettre "S:\Ordres"
Madate = Format(Date, "dd.mm.yyyy")
Chdir Chemin & "\" & Madate & "\"
Fichier = Application.GetOpenFilename("Fichiers csv (*.csv),*.csv", , "Choisissez votre fichier csv")
If Fichier <> False Then Workbooks.Open Fichier
End Sub

Changez Chemin = "C:\Users\PC_PAPA\Desktop\Ordres" en
Chemin = "S:\Ordres"
Si vous êtes sur MAC remplacez les "\" par des "/"

 

[job75]

Bonsoir,

Si vous êtes sur MAC remplacez les "\" par des "/"

Ce n'est pas suffisant, sur MAC Application.GetOpenFilename ne fonctionne pas.

A+

 

[cg1980]

magnifique, merci de vos reponses, je les avais manque)