Import le fichier Excel le plus récent en date

Bonjour,

J'essaie d'importé un fichier excel le plus récent du dossier qui est en .zip

J'ai trouve cette macro mais le probleme c'est qu'il me l'ouvre dans une nouvelle page, j'aurai aimé qu'il s'ouvre dans l'onglet qui a la macro.

le deuxième probleme c'est qu'il n'ouvre pas les format en .zip,

Pouvez vous m'aide sur l'un de ces deux point?

Sub DernierFichier()
  Dim Fic As Object, MemFic As String, VPath As String
  Dim Fso  'As FileSystemObject
  Dim SourceFolder  'As Scripting.Folder
  ' Initialisation des variables
  MemFic = ""
  VPath = "D:\\nouv\"
  ' Définit le dossier à traiter
  Set Fso = CreateObject("Scripting.FileSystemObject")
  Set SourceFolder = Fso.GetFolder(VPath)
  'Liste des fichiers du dossier Sélectionné
  For Each Fic In SourceFolder.Files
    ' Mémorise le dernier fichier selon l'ordre alphanumérique
    If Fic > MemFic Then MemFic = Fic
  Next Fic
  Workbooks.Open MemFic
End Sub