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 : 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
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,