Erreur d'execution 91: Variable objet ou variable de bloc with non définie
Bonjour,
Novice sur le VBA excel, je suis actuellement sur un projet professionnel me permettant de facilité la gestion d'une unité de production.
Je bloque actuellement sur une "Erreur d'execution 91: Variable objet ou variable de bloc with non définie" et n'arrive pas à la corriger.
Le code sur lequel je travail doit créer, à partir d'un tableau, une feuille sur un autre classeur excel, et y copier un code d'un de ces modules vers la feuille nouvellement créée.
C'est sur ce dernier point qu'intervient l'erreur.
Ci-dessous un extrait de mon code, relatif à cette fonction (l'erreur intervient sur la ligne en gras):
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
Option Explicit
Sub Création_feuille()
Dim A As String
Dim B As String
Dim DernLig As Long
Dim S As String
Dim Wbk As Workbook
'Copie les données
Windows("fichier_entree.xlsm").Activate
Columns("A:C").Copy
'Copie du code du module 2
With ActiveWorkbook.VBProject.VBComponents("Module2").CodeModule
S = .Lines(1, .CountOfLines)
End With
'Création du nom de la feuille
A = Left(Cells(2, 4).Value, 6)
B = Right(A, 2)
N = Left(Cells(2, 1).Value, 4) & " SS " & B
'Détermine le nombre de ligne non vide
DernLig = Cells(Cells.Rows.Count, "A").End(xlUp).Row
'Création de la nouvelle feuille
Workbooks.Open ("C:\Users\Vivien\Desktop\VBA\SuiviDeProduction\Suivi_de_Production.xlsm")
Sheets.Add After:=Sheets(Sheets.Count)
'Coller les données
Range("A1").Select
ActiveSheet.Paste
'Création de la colonne Ligne
Range("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Value = "LIGNE"
With Range("A1")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
Range("B1").Copy
Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End With
'Création colonne poste 1
Range("E1").Select
ActiveCell.FormulaR1C1 = "Obj."
Range("F1").Select
ActiveCell.FormulaR1C1 = "Poste 1"
With Range("E1:F1")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
Range("B1").Copy
Range("E1:F1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End With
'Renomme la nouvelle feuille
ActiveSheet.Name = (N)
'Copie du code du module 2 dans la feuil1 (Liste)
With Wbk.VBProject.VBComponents(Sheets(Sheets.Count)).CodeModule
.AddFromString S
End With
'Ferme le fichier de suivi de prod
Windows("Suivi_de_Production.xlsm").Activate
ActiveWorkbook.Save
ActiveWindow.Close
End Sub |
Pour autre information, ce code marchait très bien lorsque la feuille était nommée directement (au lieu de "Sheets(Sheets.Count)").
Mais "Sheets(Sheets.Count)" est la seule manière que j'ai trouvée pour copier le code sur la nouvelle feuille, c'est à dire la dernière créé, d'où cette fonction.
J'ai pensé à la fonction activesheets.codename ou activesheet ou tout simplement la variable N (string) qui contient son nom créé également sur le même module à partir des données du tableau.
Si quelqu'un voit d'où peut venir l'erreur je lui en serait très reconnaissant! :P
Merci d'avance!
