cs_globule
Messages postés327Date d'inscriptionmardi 8 octobre 2002StatutMembreDernière intervention 6 octobre 2010 4 nov. 2003 à 12:43
Je poste ma propre reponse, ca peut servir. Il faut rajouter la reference ADOX
' Connexion à la base de donnée
Set cat = New ADOX.Catalog
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & VOTREBASE
Cpt = 0
For Cpt = 0 To cat.Tables.count - 1
If cat.Tables.Item(Cpt).name = "TableRecherchee" Then
Set cat = Nothing
Exit Sub
End If
Cpt = Cpt + 1
Next
Set cat = Nothing