Ouverture fichier dans un macro

[romeg]

Bonjour,

J'aimerai ouvrir un fichier à l'aide d'une macro, le fichier à sélectionner est un autre fichier excel dans un dossier spécifique toujours identique, seul le nom du fichier varie et n'est pas définissable d'avance.
Ma question est : Est-il possible de sélectionner ce fichier en fonction de sa date de modification ? du type 01/02/2010 15:00.

Merci

--
Jay

 

[Staple1600]

Re : Ouverture fichier dans un macro

Bonsoir

Testes les codes proposés dans ce fil

https://www.excel-downloads.com/threads/vba-recherche-du-dernier-fichier-cree.124482/

Ca devrait fonctionner

EDITION : code modifié (issu du fil cité ci-dessus)
(test ok sur Excel 2000)

Sub GetMostRecentFile()
Dim FileSys, objFile, myFolder, strFilename$, dteFile As Date
'set path for files - change for your folder
Const myDir As String = "C:\Temp"
    
'set up filesys objects
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set myFolder = FileSys.GetFolder(myDir)
        
'loop through each file and get date last modified. If largest date then store Filename
    dteFile = DateSerial(1900, 1, 1)
    For Each objFile In myFolder.Files
        If objFile.DateLastModified > dteFile Then
            dteFile = objFile.DateLastModified
            strFilename = objFile.Name
        End If
    Next objFile
    Workbooks.Open strFilename
    Set FileSys = Nothing
    Set myFolder = Nothing
End Sub

 

[pat01200]

Re : Ouverture fichier dans un macro

Bonjour Jay,

Ne serait-il pas plus simple que ta macro t'amène directement dans le répertoire spécifique en question et t'ouvre une fenêtre recensant les fichiers Excel présents ? Un double-clic dessus et le fichier souhaité s'ouvre !
Je te propose ce code tout simple :

ChDir "C:\Répertoire spécifique\éventuel sous-répertoire"
Classeur = Application.GetOpenFilename("Classeurs Excel,*.xls")
Workbooks.Open Filename:=Classeur

Cordialement,

Patrick

 

[romeg]

Re : Ouverture fichier dans un macro

Merci JM la macro fonctionne presque parfaitement...un petit bug mais je vais creuser le problème...

@Patrick Bonne idée mais en fait je ne suis pas le seul utilisateur de cette macro...je garde quand même ta proposition qui ne m'étais pas venu à la tête !!

Merci beaucoup