[VBA-E] application.Height

Version imprimable

Problème URGENT [VBA-E] application.Height

Bonjour à tous,

j'ai réalisé il y a quelques temps grace au forum une application Excel :
http://www.developpez.net/forums/sho...ghlight=Paloma (merci encore à Larsen21 ;) )
Aujourd'hui, elle ne fonctionne plus.

http://patrick.dubernet.free.fr/Files/CATIA/error.jpg

Pouvez-vous m'aider?

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
102
103
104
105
106
'***************************************
' CATIA .CvS Generator File Name
' Version 1.0
' created by pdubernet
'
'
' please contact your administrator or
' pdubernet@assystem.com
'***************************************
 
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
 
Private Declare Function apiGetSys Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
 
Sub Apparance()
Dim xls As Excel.Workbook
 
xls.DisplayFormulaBar = False
xls.Caption = "ASSYSTEM FRANCE"
ActiveWindow.Caption = ".CsV GENERATOR"
'Incorrect
MsgBox Application.Caption & " " & ActiveWindow.Caption
'Correct
MsgBox Application.Caption
End Sub
 
 
Private Sub Workbook_Open()
 
'désactive les boutons fermer plein écran et réduire d'excel
Dim hwnd As Long
 
hwnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
 
Dim strHeight As Integer
Dim strWidth As Integer
 
strHeight = apiGetSys(1)
strWidth = apiGetSys(0)
 
Application.Height = (strHeight * 2) / 3
 
Application.Width = (strWidth * 2) / 3
'Application.DisplayFullScreen = True
 
' désactive la barre de formule
Application.DisplayFormulaBar = False
 
'désactive le menu
Application.CommandBars(1).Enabled = True
 
'désactive les onglets des feuilles
ActiveWindow.DisplayWorkbookTabs = False
 
'désactive les barres d'outil
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
'désactive l'entête des colonnes et lignes
ActiveWindow.DisplayHeadings = False
'Protège la feuille
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlNoSelection
 
Sheets("Memory").Cells(2, 5) = ActiveWorkbook.FullName
    frmSplash.Show
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
'désactive la vue en plein écran
'Application.DisplayFullScreen = False
 
'réactive le menu
Application.CommandBars(1).Enabled = True
 
' réactive la barre de formule
Application.DisplayFormulaBar = True
 
'réactive les onglets des feuilles
ActiveWindow.DisplayWorkbookTabs = True
 
'réactive l'entête des colonnes et lignes
ActiveWindow.DisplayHeadings = True
 
'réactive les boutons fermer plein écran et réduire d'excel
Dim hwnd As Long
hwnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H80000
 
'réactive les barres d'outil
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
 
 
End Sub

Quand je clique sur l'aide, rien ne s'affiche .... :? j'ai un soucis avec l'aide Excel ...

Bien à vous,
Cordialement,
Paloma

22/12/2006, 11h54
SfJ5Rpw8
ben déjà pour les vérifier affiche les strHeight ...
Code:

1 2 3 strHeight = apiGetSys(1) strWidth = apiGetSys(0) msgbox strWidth & " X " strHeight
22/12/2006, 12h05
Paloma

Merci bbil ;-)

les quoi ?

Citation:

ben déjà pour les vérifier affiche les [FONT=monospace][/FONT]strHeight ...

8O

sinon voilà ce que ça donne :

http://patrick.dubernet.free.fr/Files/CATIA/res.jpg

mais si je laisse la souris sur le code il m'affiche tout correctement dans les "bulles"

Bon ce n'est pas grave mon chef me laisse jusqu'à janvier.

Je vous souhaite à tous :
I wish you all and your families :

Joyeux NOËL et meilleurs vœux pour l’année 2007
A Merry Christmas, and best wishes for 2007

Santé, bonheur et prospérité pour cette nouvelle année!
Health, happiness and prosperity in the New Year!

Cordialement, / Best regards
04/01/2007, 09h18
Paloma

Bonjour à tous

et merci encore à toute l'équipe de developpez.com 8-) ils sont trop classe!

J'ai réussi à corriger le code.
Le problème est résolu si je calcul la taille de l'affichage après avoir choisi les options que je veux afficher ou masquer (barre de formule, onglets...) en fait pour moi, les onglets posaient un problème pour l'affichage.

Je n'ai pas tout vérifié mais le résultat est là et ça fonctionne.

@ bientôt. :D

En fait ça muarche po

Oups désolé,Re-Bonjour tout le monde,

En fait je ne comprend pas maintenat j'ai encore le problème.

Est-ce un problème avec Excel?
Peut-être à la façon dont il se ferme? ou s'ouvre ?

Voici mon dernier 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
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
102
103
104
105
106
107
108
109
110
111
112
113
114
115
'***************************************
' CATIA .CvS Generator File Name
' Version 1.1b beta
' created by pdubernet on 2007
'
'
' please contact your administrator or
' euberti@assytem.com
' pdubernet@assystem.com
'***************************************
 
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
 
Private Declare Function apiGetSys Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
 
Sub Apparance()
Dim xls As Excel.Workbook
 
xls.DisplayFormulaBar = False
xls.Caption = "ASSYSTEM FRANCE"
ActiveWindow.Caption = ".CsV GENERATOR"
'Incorrect
MsgBox Application.Caption & " " & ActiveWindow.Caption
'Correct
MsgBox Application.Caption
End Sub
 
 
Private Sub Workbook_Open()
 
'désactive les boutons fermer plein écran et réduire d'excel
Dim hwnd As Long
 
hwnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
 
Dim strHeight As Integer
Dim strWidth As Integer
 
strHeight = apiGetSys(1)
strWidth = apiGetSys(0)
 
 
'Application.DisplayFullScreen = True
 
' désactive la barre de formule
Application.DisplayFormulaBar = False
 
'désactive le menu
Application.CommandBars(1).Enabled = True
 
'active les onglets des feuilles
ActiveWindow.DisplayWorkbookTabs = True
 
'désactive les barres d'outil
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
'désactive l'entête des colonnes et lignes
ActiveWindow.DisplayHeadings = False
 
'affichage de la "feuille"
Application.Height = (strHeight * 2) / 3
 
Application.Width = (strWidth * 2) / 3
 
        'Protège la feuille
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        ActiveSheet.EnableSelection = xlNoSelection
 
Sheets("Memory").Cells(2, 5) = ActiveWorkbook.FullName
 
 
 
 
    frmSplash.Show
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
'désactive la vue en plein écran
'Application.DisplayFullScreen = False
 
'réactive le menu
Application.CommandBars(1).Enabled = True
 
' réactive la barre de formule
Application.DisplayFormulaBar = True
 
'réactive les onglets des feuilles
'ActiveWindow.DisplayWorkbookTabs = True
 
'réactive l'entête des colonnes et lignes
ActiveWindow.DisplayHeadings = True
 
'réactive les boutons fermer plein écran et réduire d'excel
Dim hwnd As Long
hwnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H80000
 
'réactive les barres d'outil
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
 
 
End Sub

Le message d'erreur est toujours le même :aie: comprend po?
Alors si vous avez une idée?

Merci.