Public Sub OuvrirConnexionBD(ByRef cn As ADODB.Connection)
'-------------
'Ouvre la connection à la BD Access
On Error GoTo ErreurLocale
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & CHEMIN_COMPLET_BD & "; Jet OLEDB:Database Password=" & EXPR_PASSWORD
Sheets("Validations").Range("B3").Value = "OK"
Exit Sub
ErreurLocale:
Sheets("Validations").Range("B3").Value = "PASOK"
Set cn = Nothing
End Sub