Microsoft 365 ouvrir un fichier a partir d un folder

sousou

XLDnaute Barbatruc

• 6 Novembre 2023

• #2

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Novembre 2023

• #3

Bonjour CG, Sousou,
Un essai en PJ avec :

VB:

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 "/"

 

Pièces jointes

• OuvrirCSV.xlsm

  13.5 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Novembre 2023

• #4

Bonsoir,

sylvanu à dit:

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

Cliquez pour agrandir...

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

A+

 

Vote positif 0 Vote négatif

C

cg1980

XLDnaute Occasionnel

• 9 Janvier 2024

• #5

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

 

Vote positif 0 Vote négatif