XL 2010 Utilisation API

[cathodique]

Bonjour,

Dans les diverses codes que j'ai pu rencontrer utilisant les API. Elles sont généralement déclarées en "Private".

Voulant utiliser un fichier en plein écran que ce soit Excel et Userform (pas tous les userforms du projet).

j'ai modifié le private en Public, cela semble fonctionner.

je voudrai votre avis pour ne pas avoir de mauvaises surprises.

#If Win64 Then ' (Office 64bit ET Win 64Bit)
            Public Declare PtrSafe Function SetWindowLongPtrA Lib "user32" (ByVal hwnd As LongLong, ByVal nIndex As Long, ByVal dwNewLong As LongLong) As LongLong
            Public Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongLong
            Public Declare PtrSafe Function GetWindowLongA Lib "user32" (ByVal hwnd As LongLong, ByVal nIndex As LongLong) As LongLong
            Public Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongLong, ByVal nCmdShow As LongLong) As LongLong
        #Else ' (Office 32bit ET Win 32Bit) OU (Office 32Bit ET Win 64Bit)
            Public Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
            Public Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
            Public Declare Function GetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
            Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
        #End If

En vous remerciant par avance.

Bonne journée.

 

[patricktoulon]

tiens ma fonction perso excel plein ecran sans caption que la grille
et sans API !!

 

[cathodique]

re

je t'ai donné les valeurs des constante raccourci si tu veux applique le sur excel si tu y tiens
mais avant de te proposer j'ai testé ton exemple tel quel et ce que je propose sans les api fait la même chose

Ok. Donc si j'ai bien compris avec cette constante &H94080080, je pourrai afficher l'application Excel sans la barre de titre.

 

[cathodique]

tiens ma fonction perso excel plein ecran sans caption que la grille
et sans API !!

Merci beaucoup. J'espère m'en sortir sans me mêler les pinceaux.

Bonne soirée.

 

[patricktoulon]

normalement oui si la gestion MDI des fentres le permet
cela dit je viens de te donné la fonction complète qui le fait sans API
pour ton userform sans barre de titre et plen ecran ben c'est simple
tu reprend le code que je t'ai donné et tu rajoute le showwindow hwnd,3

Private Sub UserForm_Activate()
    Dim hwnd As Long
    hwnd = FindWindowA(vbNullString, Me.Caption)
    SetWindowLongA hwnd, -16, &H94080080
    'Me.Width = Application.Width
    'Me.Height = Application.Height
ShowWindow hwnd, 3
End Sub

 

[patricktoulon]

ici tu a tout

 

[cathodique]

ici tu a tout

C'est parfait, Encore merci.

Edit: je vais même ajouter ta procédure "SameSizeApplication"

 

[patricktoulon]

👍

 

[patricktoulon]

re

Edit: je vais même ajouter ta procédure "SameSizeApplication"

oui aussi dans le module comme ça tu recentre toute les fonctions d'affichage dans un module que tu pourra glisser à souhait dans les projets ou tu en aura besoins 👍
c'est du recyclage informatique ecolo🤣🤣🤣