[MystSith]

Merci MichelXld... ça fonctionne

En fait je faisais un test (cn = Nothing)... mais avec le 'Is' ça va bc mieux

Voilà ce que donne le code (rien de bien sorcier ):

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

Et aussi...

Private Sub Workbook_Open()

    Call ConnecterBase

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Call FermerBase

End Sub

Message édité par: mystsith, à: 24/10/2005 13:58