Sub OuvertureBdD2()
CheminBdDMdO = "G:\17_Gestion_des_heures\test.xlsx"
Mdp = "mdp"
Application.DisplayAlerts = False
Set BdDDest = Workbooks.Open(Filename:=CheminBdDMdO, ReadOnly:=False, Password:=Mdp)
If BdDDest.ReadOnly = True Then
MsgBox ("La base est en cours d'utilisation par un autre utilisateur. Veuillez réessayer l'opération dans un instant.")
BdDDest.Close False
Exit Sub
End If
End Sub