[OL-2007] Fermer excel depuis userform [Résolu]

[Ludovic50]

Bonjour à tous,

J'ai créer une macro capable d'ouvrir excel, et a partir d'un Userform je remplis des cellules d'excel et je modifie les info d'un contact.

Mon problème et pour fermer le classeur excel lors de la fermeture de mon userform ! Cela ne fonctionne pas !

Il me dit : Erreur d'éxécution '91' : Variable objet ou variable de bloc with non définie.

Voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
'------------------Fermeture excel---------------------------------
Dim appExcel As Excel.Application
Dim wbExcel As Excel.Workbook
 
Set appExcel = CreateObject("Excel.Application")
appExcel.Application.DisplayAlerts = False
appExcel.ActiveWorkbook.Saved = True
appExcel.ActiveWorkbook.Close
appExcel.Quit
appExcel.Visible = True
appExcel.Application.DisplayAlerts = True
 
 
'------------------Transfert vers note du contact---------------------------------
Set myolapp = CreateObject("Outlook.Application")
Set myinspector = myolapp.ActiveInspector
 
With myinspector.CurrentItem
.Body = Existant.note
End With
End Sub

Merci d'avance pour votre aide.

[Philippe JOCHMANS]

Bonjour

Je ne comprends pas ton code

Tu crées une instance d'Excel, tu la sauvegarde et tu la ferme ? Sans rien faire d'autre ?

Si tu es sur OutLook pourquoi recréer une instance ?

Philippe

[Ludovic50]

Bonjour Philippe,

Et merci de répondre à mon post.

Mon problème et peut-être là, de re-créer des instances ?

[Philippe JOCHMANS]

Re

Si tu l'as déjà crée pourquoi la recréer, il faut que ta première instance ait été déclaré en publique pour pouvoir la fermer.

Philippe

[Ludovic50]

Re,

Petite question : comment déclarer en public ?

Merci

[Philippe JOCHMANS]

Re

Montres nous déjà comment et où tu as fait tes déclarations et affectations.

Philippe

[Ludovic50]

Re,

Voilà, ci dessous le code situé dans un useform appelé "Existant" avec comme macro Initialize et Queryclose. L'ouverture se fait par un bouton dans la barre d'outils personnalisé lorsqu'un contact est affiché :

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
90
91
92
93
94
95
96
97
98
99
100
101
Private Sub UserForm_Initialize()
 
Set myolapp = CreateObject("Outlook.Application")
    Set myinspector = myolapp.ActiveInspector
    With myinspector.CurrentItem
    If .CompanyName = "" Then ref = .LastName & " " & .FirstName Else ref = .CompanyName
    End With
 
'-------------------------------Création listview-----------------------------------------
With Existant.ListView1
    .View = lvwReport
    .FullRowSelect = True
End With
With Existant.ListView1
    With .ColumnHeaders
        .Clear
        .Add , , "Lots", 100
    End With
End With
 
Dim x As Integer
 
With Existant.ListView1
    .ListItems.Clear
    .GridLines = True
End With
 
Existant.ListView1.ListItems.Add , , "Lot 1"
Existant.ListView1.ListItems.Add , , "lot 2"
 
 
'-------------------------------Ouverture fichier excel-----------------------------------------
 
        Dim appExcel As Excel.Application    'Application Excel
        Dim wbExcel As Excel.Workbook    'Classeur Excel
        Dim wsExcel As Excel.Worksheet    'Feuille Excel
 
        'Ouverture de l'application
        Set appExcel = CreateObject("Excel.Application")
        appExcel.Visible = True
 
        'Ouverture d'un fichier Excel
        Dim Presence As Boolean
        Presence = False
            For Each w In appExcel.Workbooks
                If w.Name = "Ratio 2011.xls" Then Presence = True
            Next w
            If Presence = True Then
            Else
                Set wbExcel = appExcel.Workbooks.Open("C:\Documents\Ratio 2011.xls")
            End If
        'wsExcel correspond à la première feuille du fichier
        Set wsExcel = wbExcel.Worksheets(1)
 
 
'-------------------------------Alimentation de la listview suivant fichier excel-----------------------------------------
 
Dim v As Integer
 v = "0"
 
For x = 4 To appExcel.Workbooks("Ratio 2011.xls").Sheets("Ratio").Range("c65536").End(xlUp).Row
    If appExcel.Workbooks("Ratio 2011.xls").Sheets("Ratio").Cells(x, 3).Value = ref Then
       v = v + 1
        With Existant.ListView1
            With .ColumnHeaders
                .Add , , "Type", 100
                    Existant.ListView1.ListItems(1).ListSubItems.Add , , "Devis n°" & v
                    Existant.ListView1.ListItems(2).ListSubItems.Add , , "Type :" & appExcel.Workbooks("Ratio 2011.xls").Sheets("Ratio").Cells(x, 4)
 
                .Add , , "Prix", 50
                    Existant.ListView1.ListItems(1).ListSubItems.Add , , "Année : " & appExcel.Workbooks("Ratio 2011.xls").Sheets("Ratio").Cells(x, 2)
                    Existant.ListView1.ListItems(2).ListSubItems.Add , , "Mois : " & appExcel.Workbooks("Ratio 2011.xls").Sheets("Ratio").Cells(x, 1)
                .Add , , "Ratio", 50
                    Existant.ListView1.ListItems(1).ListSubItems.Add , , ""
                    Existant.ListView1.ListItems(2).ListSubItems.Add , , ""
            End With
        End With
    End If
Next x
 
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
'------------------Fermeture excel---------------------------------
appExcel.Application.DisplayAlerts = False
appExcel.ActiveWorkbook.Saved = True
appExcel.ActiveWorkbook.Close
appExcel.Quit
appExcel.Visible = True
appExcel.Application.DisplayAlerts = True
 
 
'------------------Transfert vers note du contact---------------------------------
Set myolapp = CreateObject("Outlook.Application")
Set myinspector = myolapp.ActiveInspector
 
With myinspector.CurrentItem
.Body = Existant.note
End With
End Sub

[Philippe JOCHMANS]

Ton code est dans Excel ou Outlook ?

Pourquoi ouvrir Excel si tu es dans Excel et pourquoi ouvrir OutLook si tu es dans Outlook ?

Philippe

[Ludovic50]

Re,

Mon code est dans outlook !

[carden752]

Bonjour,

Réinitialises tes variables quand tu n'en as plus besoin.

Code :

set appExcel = Nothing

[Ludovic50]

Bonjour Christophe,

Merci pour t'as réponse, mais rien y fait !

[Ludovic50]

Bonjour à tous,

J'ai trouvé réponse à mon problème :

Code :

1
2
3
4
5
6
appExcel.Application.DisplayAlerts = False
For Each w In Workbooks
   w.Save
Next w
appExcel.Quit
appExcel.Application.DisplayAlerts = True

Merci à tous pour votre aide.