Hello le forum,
J'ai un problème de lancement de macro ....
Je cherche à copier un classeur excel modèle.
Pour cela j'utilise un autre classeur (classeur MAITRE ) avec une macro qui va récupérer le classeur modèle et le copier dans le répertoire qui va bien.
Pas de problème pour cette partie. Le problème c'est que dans ce classeur modèle, j'ai une procédure sub qui verrouille proprement la feuille principale. Je dois faire 2 changement dans ce classeur modèle donc je suis obligé de déverrouiller la feuille, faire mes changements.
Ce que je veux c'est qu'une fois mes modifications faites, je veux lancer ma macro de protection qui se trouve dans le classeur modèle ...
Mais je n'y parvient pas ...
Pourriez-vous m'aider svp ?
Merci.
Le code qui ouvre puis modifie le classeur modèle depuis un USF :
Private Sub CB_AJOUT_Click()
Const Le_Classeur As String = "BESOINS_MODEL.xlsm"
Const MDP As String = "toto"
Const Nom_F_Besoin_MANA As String = "BESOINS"
Dim Chemin_Parent As String
ChDir (ThisWorkbook.Path)
ChDir ".."
Chemin_Parent = CurDir(ThisWorkbook.Path) & "\"
'Test si NOM et ENTITE ne sont pas vides
If TB_MANA = "" Then MsgBox "Vous devez saisir le NOM/PRENOM du manager !": Exit Sub
If CBB_ENTITE = "" Then MsgBox "Vous devez saisir l'entité du manager !": Exit Sub
' Test to see if the file is open.
If IsFileOpen(ThisWorkbook.Path & "\" & Le_Classeur) Then
MsgBox "Création impossible, classeur MODEL ouvert, fin du programme !"
Exit Sub
Else
Application.EnableEvents = False
Workbooks.Open ThisWorkbook.Path & "\" & Le_Classeur
With ActiveWorkbook.Sheets(Nom_F_Besoin_MANA)
.Unprotect MDP
Range("A1") = TB_MANA: Range("B1").Value = CBB_ENTITE.Value
Application.EnableEvents = True
Application.Run "'activeworkbook'!Mod_Feuille_Besoin.Protection_Feuille"
' .Protect MDP
End With
End If
End Sub