Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\SRVW2K3-TEST\HPLJ4"

Alors, bon comme vous vous en doutez, j’ai été confronté à ce problème (mais c’était surtout pour mon prof.) que j’ai réalisé ce script VBA. Je vous le colle-ici :
[code lang="vb"]
Option Compare Database

' ----------------------------------------------------------------------------------
' Auteur : David Marandola
' Date : 20.05.2009
' Version : 1.0
' Révisions : -
' Description : Fonction qui permet de backuper la base de donnée à son ouverture
' en faisant une copie de celle-ci.
' ----------------------------------------------------------------------------------
' @param:
' - strDBName : nom de la base de données actuellement ouverte
' - strDBPath : chemin du dossier où sera sauvée la base
' ----------------------------------------------------------------------------------

Public Function CopierBase()
Dim strDBName, strDBPath As String
Dim fso As Object

' On assigne à strDBName son chemin et son nom de fichier
strDBName = Access.CurrentProject.FullName

' Concatène de cette manière : .backup.
strDBPath = Left(strDBName, Len(strDBName) - 5) & "backup" & Right(strDBName, 6)

' Crée un nouvel objet pour la copie de la base
Set fso = CreateObject("Scripting.FileSystemObject")

' Crée une copie de la base courante
fso.CopyFile strDBName, strDBPath

' Assigne à null l'objet
Set fso = Nothing

End Function
[/code]

Merci de citez le nom de l’auteur (moi) ainsi qu’un lien vers ce site si vous utilisez mon script. Donc, pour l’utilisez il faut crée une macro, que vous appellerez : autoexec et vous lui ordonnez d’exécuter un module (script VB) que vous appellez comme vous voulez, c’est juste l’autoexec qu’il faut nommer ainsi pour qu’elle s’exécute à l’ouverture.