Bonjour.

A chaque exécution du code ci-dessous, une fenêtre me demandant le mot de passe du projet VBA m'est demandée, comment faire pour résoudre ce bug ?

Merci d'avance.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Workbooks.Open Filename:= _
    "\\Planning\Classeur2.xlsm", Notify:=False, ReadOnly:=True
Workbooks("Classeur1.xlsm").Sheets("Planning " & Year(Now())).Range("A1:AS58").Value = Workbooks("Classeur2.xlsm").Sheets("Plan de charge " & Year(Now())).Range("A1:AS58").Value
Workbooks("Classeur1.xlsm").Sheets("Planning " & Year(Now()) + 1).Range("A1:AS58").Value = Workbooks("Classeur2.xlsm").Sheets("Plan de charge " & Year(Now()) + 1).Range("A1:AS58").Value
Workbooks("Classeur2.xlsm").Close False
Unload UserForm3
MsgBox "Mise à jour réussie"
Application.Calculation = xlCalculationAutomatic
Application.Calculate
Application.EnableEvents = True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub