Bonjour,

Mon code qui était fonctionnel il y a quelques mois ne l'est plus aujourd'hui, en raison d'une incompatibilité de version.

Le programme plante à la ligne 17.

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
19
20
21
22
Private Sub Newprojectbutton_Click()
 
Dim z As Variant
Dim y As String
 
 LastS = Range("c" & Rows.Count).End(xlUp).Row + 1
 
 Range("C" & LastS) = Nameofproject
Active = ActiveSheet.Name
Sheets(Active).Select
With Worksheets(Active)
colour = Int(56 * Rnd)
' Création de l'onglet pour le nouveau projet
For s = 2 To Sheets.Count      ' on masque les feuilles
Sheets(s).Visible = truee
Next s
    Sheets("Draft").Copy After:=Sheets(4)
    Sheets("Draft (2)").Select
 
'Puis fermer le formulaire'
 
    Unload Me
Est ce que quelqu'un pourrait m'orienter SVP ?