Bonjour
tout est dans le titre...en vba..
j'ai essayé ça mais j'ai une erreur sur le copyobject
où j'ai faux ???
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Dim oBaseDeDonnees As DAO.Database Dim apBaseDeDonneesSource As Application Set oBaseDeDonnees = OpenDatabase(CheminBase) If CheminBaseSource = "" Then Set apBaseDeDonneesSource = CurrentDb Else Set apBaseDeDonneesSource = DBEngine.OpenDatabase(CheminBaseSource) End If 'existe pas, copie... apBaseDeDonneesSource.DoCmd.CopyObject CheminBase, strNomDistant, acTable, strNomLocal
merci
guen
Partager