Bonjour,

suggestion :

Sub OuvrirFichier()

    Dim xlApp As Variant, xlBook As Variant    'Objets classeur

    Dim FichierXL As String, NouveauNom As String

    FichierXL = "C:\Temp\Test.xls"
    NouveauNom = "C:\Temp\Text.xls"
    
    'Création de l'objet Excel (main mise sur !)
    Set xlApp = CreateObject("Excel.Application")
    'Création de l'objet [Fichier Excel]
    Set xlBook = xlApp.Workbooks.Open(FichierXL)

    xlApp.DisplayAlerts = False
    xlBook.SaveCopyAs NouveauNom
    xlApp.DisplayAlerts = True
    
    Set xlBook = Nothing
    Set xlApp = Nothing
    
End Sub
'