ouvrir fichier excel sous access et renommerRésolu/Fermé

Question

Bonjour,
Je cherche une macro me permettant de :
1- Ouvrir un fichier type.xls sous access (réalisable avec Workbooks.Open)
2-enregister ce fichier sous un nom qui est donner automatiquement par access = (NuméroAuto).xls, sans perdre le fichier type.xls

Utilisateur anonyme · Answer

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
'

Lupin

Ouvrir fichier excel sous access et renommer

1 réponse

Discussions similaires

Newsletters