Ouvrir/Renommer le denier classeur créé/modifié d''un fichie

Bonjour,

Je souahiterais à partir d'une macro, ouvrir et renommer un classeur excel dont la seule particularité est d'etre le dernier créé dans un dossier défini(le nom du fichier est variable).

Avez- vous une idée?

D'avance merci.

Jean-Philippe

Bonjour,

Ce code devrait convenir

' Ajouter la référence Microsoft scripting runtime
    Dim fso As New FileSystemObject
    Dim dossier As Object, nom_dossier As String
    Dim fichier As Object
    Dim date_dernière_création  As Date

    date_dernière_création = Empty
    nom_dossier = "votre dossier"
    Set dossier = fso.GetFolder(nom_dossier)
    For Each fichier In dossier.Files
        If fichier.DateCreated > date_dernière_création Then
            date_dernière_création = fichier.DateCreated
            id_fichier = fichier.Path
        End If
    Next

    Workbooks.Open id_fichier

Cela marche parfaitement,

Merci beaucoup

Cordialement,

Jean-Philippe