Copie d'un fichier Access à partir d'Excel

[jeanmichel60]

Bonjour à tous,

Mes données saisies dans excel sont stockées dans des tables Access.
De temps en temps je faisais une copie du fichier Access sur ma clé USB en cas ou...
A partir d'un bouton et de VBA dans Excel est-il possible de faire une copie de sauvegarde du fichier Access vers une clé USB.

Bonne journée 🙂

Jean-Michel

 

[tototiti2008]

Re : Copie d'un fichier Access à partir d'Excel

Bonjour Jeanmichel,

Sub CopieBase()
Dim FS
    Set FS = CreateObject("Scripting.FileSystemObject")
    'FS.CopyFile Source, Destination, Overwrite
    FS.CopyFile "y:\Mabase.mdb", "u:\Mabase.mdb", True
    Set FS = Nothing
End Sub

 

[jeanmichel60]

Re : Copie d'un fichier Access à partir d'Excel

Réponse rapide.🙂

Merci beaucoup Tototiti2008

Ça fonctionne parfaitement, encore merci.