'Ouvrir BD barrée... Set DB = DBEngine.OpenDatabase("C:\My Documents\MonFichier.mdb", False, False, ";PWD=MotDePasse;") 'Table existe? Dim TablesIn As TableDefs Dim strTmp1 As String Set TablesIn = DB.TableDefs strTmp1 = TablesIn("Table1").LastUpdated If (Err.Number > 0) Then MsgBox "Table1 existe pas..." 'Else End If