ERREUR System.MissingMemberException Microsoft.VisualBasic.dll
Bonjour à tous,
Je viens vers vous pour une erreur qui est apparu dans plusieurs de mes programmes.
Tous ces programmes fonctionnaient sans souci jusqu’à ce matin (un des programmes fonctionne en continu 7jsur7 et 24h sur 24). Je n'ai effectuer aucune modification dans le code, et j'ai eu cette erreur ce matin :
"
Une exception non gérée du type 'System.MissingMemberException' s'est produite dans Microsoft.VisualBasic.dll
Informations supplémentaires*: Le membre public 'Commandbutton1' du type 'Worksheet' est introuvable."
Le code concerné est le suivant :
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
| Dim ExcelAppa As Object
ExcelAppa = CreateObject("Excel.Application")
ExcelAppa.Visible = False
ExcelAppa.ScreenUpdating = False
Dim ExcelClaa As Object
Dim ExcelFeuillea1 As Object
If ExcelAppa.Version = "11.0" Or ExcelAppa.Version = "10.0" Then
ExcelClaa = ExcelAppa.Workbooks.Open("C:\Event type.xls")
nomfichierresult = dossierresultats & "\" & nomfichhaut & ".xls"
Else
ExcelClaa = ExcelAppa.Workbooks.Open("C:\Event type.xlsm")
nomfichierresult = dossierresultats & "\" & nomfichhaut & ".xlsm"
End If
ExcelFeuillea1 = ExcelClaa.Sheets("Tableaux")
'choix des echelles
ExcelFeuillea1.ChartObjects(1).Chart.Axes(1).MinimumScale = CDbl(vargraph1)
ExcelFeuillea1.ChartObjects(1).Chart.Axes(1).MaximumScale = CDbl(vargraph2)
ExcelFeuillea1.ChartObjects(1).Chart.Axes(2).HasTitle = False
ExcelFeuillea1.ChartObjects(1).Chart.Axes(2).HasTitle = True
ExcelFeuillea1.ChartObjects(1).Chart.Axes(2).AxisTitle.Font.Bold = True
ExcelFeuillea1.ChartObjects(1).Chart.Axes(2).AxisTitle.Text = "Amplitude (mm/s)"
ExcelFeuillea1.ChartObjects(2).Chart.Axes(1).MinimumScale = CDbl(vargraph1)
ExcelFeuillea1.ChartObjects(2).Chart.Axes(1).MaximumScale = CDbl(vargraph2)
ExcelFeuillea1.ChartObjects(2).Chart.Axes(2).HasTitle = False
ExcelFeuillea1.ChartObjects(2).Chart.Axes(2).HasTitle = True
ExcelFeuillea1.ChartObjects(2).Chart.Axes(2).AxisTitle.Font.Bold = True
ExcelFeuillea1.ChartObjects(2).Chart.Axes(2).AxisTitle.Text = "Amplitude (mm/s)"
ExcelFeuillea1.ChartObjects(1).Chart.Axes(2).MinimumScale = CDbl(vargraph3)
If vargraph4 = "auto" Then
ExcelFeuillea1.ChartObjects(1).Chart.Axes(2).MaximumScaleIsAuto = True
Else
ExcelFeuillea1.ChartObjects(1).Chart.Axes(2).MaximumScale = CDbl(vargraph4)
End If
ExcelFeuillea1.ChartObjects(2).Chart.Axes(2).MinimumScale = CDbl(vargraph5)
If vargraph6 = "auto" Then
ExcelFeuillea1.ChartObjects(2).Chart.Axes(2).MaximumScaleIsAuto = True
Else
ExcelFeuillea1.ChartObjects(2).Chart.Axes(2).MaximumScale = CDbl(vargraph6)
End If
ExcelFeuillea1.Commandbutton1.Visible = True |
J'obtiens l'erreur sur la dernière ligne.
JE ne comprend pas pourquoi cette erruer apparait. J'ai tester sur trois PC deux me font l'erreur l'autre non. Celui qui ne fait pas l'erreur est en 32 bits les deux autres en 64.
Quelqu'un a t-il déja eu l'erreur ?
SI oui, d'ou vient elle et comment la résoudre ?
Cordialement,
