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
Partager