Global cn As ADODB.Connection
Sub ConnecterBase() 'Connexion à la base
Dim Fichier As String
Set cn = New ADODB.Connection
Fichier = Range('BDD').Value 'le chemin d'accès est stocké dans une cellule nommée 'BDD'
cn.Open 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source=' & Fichier & ';'
End Sub
Sub FermerBase() 'Fermeture de la base
cn.Close
Set cn = Nothing
End Sub
Sub TesterBase() 'La base est elle encore active?
If (cn Is Nothing) Then ConnecterBase
End Sub