XL 2010 Comment associer 2 codes VBA

[man.jul]

Bonjour

Dans mon workbook j'ai un nouveau code et je souhaiterai y incorporer mon ancien code, comment dois-je faire?

Voici le code que je souhaite rajouter à mon workbook:


Option Explicit

Private Sub Workbook_Open()
Dim I As Integer
Dim mois(1 To 12) As String
Dim MP As String
Dim m As Integer
'Stop

Flag2 = 0
Flag = 1
mois(1) = "Janvier"
mois(2) = "Février"
mois(3) = "Mars"
mois(4) = "Avril"
mois(5) = "Mai"
mois(6) = "Juin"
mois(7) = "Juillet"
mois(8) = "Août"
mois(9) = "Septembre"
mois(10) = "Octobre"
mois(11) = "Novembre"
mois(12) = "Décembre"
V_mois = mois(Month(Date))
Sheets("Technique").Visible = True
Sheets("Technique").Select
MP = Worksheets("Technique").Cells(2, 1)
Sheets("Technique").Visible = False
For m = 1 To 12
Sheets(mois(m)).Select
ActiveSheet.Unprotect (MP)

For I = 3 To 13
Range(Cells(6, I), Cells(49, I)).Select
If Cells(1, I) <= Date Then
Selection.Locked = False
Selection.FormulaHidden = False
Else
Selection.Locked = True
Selection.FormulaHidden = False
End If
Next I
ActiveSheet.Protect Password:=MP, DrawingObjects:=False, Contents:=True, Scenarios:=True
Next m
Sheets(V_mois).Select
Range("A1").Select
Flag = 0
End Sub

Le mot de passe pour afficher la feuille technique est : Zoe
Le mot de passe pour déverrouiller les feuilles est: pi

Merci bien

 

[dg62]

Bonjour,
il aurait fallu joindre votre "nouveau code" pour éventuellement étudier la façon d'intégrer votre "ancien code".

 

[man.jul]

problème réglé
Merci

 

[Staple1600]

Bonjour le fil, man.jul, dg62

•>man.jul
Problème réglé (certes sans doute sur l'autre forum...)
L'usage quand une solution est trouvée (ici ou ailleurs), c'est de la publier pour que cela bénéficie à tous les membres du forum (et pas seulement au demandeur)

[petite pointe d'ironie en pleine pause méridienne]
Tu me diras quand on multiposte sa question (sans le signaler)
C'est qu'on se fiche des usages comme de l'an 40
[petite pointe d'ironie en pleine pause méridienne]

 

[man.jul]

Il suffisait tout simplement de mettre mon nouveau code devant le précédent