Corrigé 16.7 Lancer Access

Sub LancementAccess()  
  Dim ac As Access.Application  
  Set ac = New Access.Application  
 ...