Ouvrir fichier excel sous access et renommer

Résolu
nciolasdelfaut Messages postés 2 Statut Membre -  
nciolasdelfaut Messages postés 2 Statut Membre -
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
A voir également:

1 réponse

Réponse 1 / 1
Utilisateur anonyme
 
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
1
nciolasdelfaut Messages postés 2 Statut Membre
 
Salut LUPIN!!!
Merci beaucoup pour ton aide, j'ai réussi à avancer dans mon programme de gestion. Ta Sub OuvrirFichier() fonctionne à merveille!!!!
1000Merci
Nicolas
0