Bonjour tout le monde,
je fais appel à l'équipe pour un problème que je ne parviens pas à régler.
Merci de me lire.
Sur l'intranet de mon boulot, un fichier XLS (dont le nom change en fonction du fonctionnaire qui a posté la dernière MAJ) renseigne l'horaire général.
J'ai intercepté facilement le chemin et Workbooks.Open accepte la mise en variable des deux derniers sous-répertoires (qui varient régulièrement aussi).
Là où ça capote, c'est l'impossibilité d'intercepter le nom de ce fichier (qui est tout seul, je le sais, dans son répertoire). Même si je triche en plaçant en variable le nom de ce fichier, une erreur se produit à la tentative d'ouverture.
[b]Fonctionne pas
[/b]
sFile = Dir("http://ep...ov.be/files/billet/mp/" & CStr(Year(Now) - 2000) & "/" & Format(Month(Now), "00") & "/" & "*.*")
Set sWkbBGS = Workbooks.Open("http://ep...ov.be/files/billet/mp/" & CStr(Year(Now) - 2000) & "/" & Format(Month(Now), "00") & "/" & sFile)
Fonctionne
Set sWkbBGS = Workbooks.Open("http://ep...ov.be/files/billet/mp/" & CStr(Year(Now) - 2000) & "/" & Format(Month(Now), "00") & "/" & "MP_0.xls")
Si quelqu'un a une idée...
Merci.
A+