Lecture avec un mot de passe à l'ouverture

Bonjour,

J'aimerais savoir comment faire pour ouvrir un fichier qui a un mot de passe à l'ouverture quand je fais l'ouverture d'un fichier dans le CONNECTION.OPEN avec le code suivant :

Sub SyncFromDatabase()
    LastLocalChange = Sheet1.Range("B12").Value
    DbFile = Sheet1.Range("M5").Value 'Customer Database Location
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    On Error GoTo FileMissing
    Set objFile = objFSO.GetFile(DbFile)
If objFile.DateLastModified > LastLocalChange Then 'Database Change was made, update Local Database
    'Check Last Database Update
    Sheet2.Range("A2:G9999").ClearContents 'Clear existing data
    On Error Resume Next
    Set objConnection = CreateObject("ADODB.Connection")
    Set objRecordset = CreateObject("ADODB.Recordset")
    objConnection.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & Sheet1.Range("M5").Value & ";Extended Properties=""Excel 12.0 Xml;HDR=Yes;IMEX=0"";"
    objRecordset.Open "Select * FROM [CustDb$]", objConnection
    Sheet2.Range("A2").CopyFromRecordset objRecordset
    objRecordset.Close
    objConnection.Close
End If
Exit Sub
FileMissing:
MsgBox "Please browse for the database file"
BrowseForFile
End Sub

Merci,

Oiseau bleu