Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Utilisation API

cathodique

XLDnaute Barbatruc
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.

VB: 
#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.
 

Pièces jointes

  • Plein Ecran.xlsm
    35.3 KB · Affichages: 2
Trier par date Trier par votes

dysorthographie

XLDnaute Accro
Bonjour,
Private t'oblige à utiliser les propriétés/méthodes dans le même module que les déclarations ; publique te permet d'utiliser les propriétés/méthodes de n'importe quel endroit du projet.

Bien sur il faut que ces déclaration ce trouve dans un module standard et pas dans thisworkbook
 
Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc
Bonjour @dysorthographie ,

Je te remercie. Ok, pas dans Thisworkbook. J'avais mis le code dans un module standard.
J'ai testé avec la déclaration Public au lieu Private, semble fonctionner.
je voulais juste vos avis par rapport à la fiabilité du code.

Encore merci.

Bonne journée.
 
Vote positif 0 Vote négatif

jurassic pork

XLDnaute Occasionnel
Hello,
il me semble que si tu veux utiliser une API dans le code d'une feuille , d'un classeur ou d'un formulaire il faut que tu la déclares en Private et tu ne pourras l'utiliser que dans l'endroit où tu l'as déclarée. Par contre si tu la déclares en public dans un module standard tu pourras l'utiliser de n'importe où.
Ami calmant, J.P
 
Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc
Bonjour @jurassic pork ,

J'utilise rarement les APIs, je voulais avoir votre avis.
Car j'ai trouvé de codes où les apis sont déclarées en Private ou Declare.
Je me suis demandé si Public ne me causerait pas de souci.

Merci.
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
bonjour @cathodique
au delà du problème de declaration d'api (qui n'en est pas vraiment un)
j'aurais une question
dis moi a quoi sert ceci
VB: 
Option Explicit

'#If Win64 Then ' (Office 64bit ET Win 64Bit)
'            Private Declare PtrSafe Function SetWindowLongPtrA Lib "user32" (ByVal hwnd As LongLong, ByVal nIndex As Long, ByVal dwNewLong As LongLong) As LongLong
'            Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongLong
'            Private Declare PtrSafe Function GetWindowLongA Lib "user32" (ByVal hwnd As LongLong, ByVal nIndex As LongLong) As LongLong
'            Private 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)
'            Private Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
'            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 ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
'        #End If

#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


 Sub Excel_Plein_Ecran()
'plein ecran
Dim hwnd As Long
'masquer les boutons
  hwnd = FindWindowA(vbNullString, Application.Caption)
  SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
'plein écran
Application.DisplayFullScreen = True
 'Masquer le quadrillage
    ActiveWindow.DisplayGridlines = False
' Masquer les en-têtes
    ActiveWindow.DisplayHeadings = False
' Masquer les barres de défilement
   ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
' Masquer les onglets de classeur
    ActiveWindow.DisplayWorkbookTabs = False
End Sub
'rétablir
Sub Excel_Ecran_Normal()
Dim hwnd As Long
'rétablir les boutons
  hwnd = FindWindowA(vbNullString, Application.Caption)
  SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H80000
'rétablir plein écran
Application.DisplayFullScreen = False
'rétablir le quadrillage
    ActiveWindow.DisplayGridlines = True
' rétablir les en-têtes
    ActiveWindow.DisplayHeadings = True
' rétablir les barres de défilement
   ActiveWindow.DisplayHorizontalScrollBar = True
    ActiveWindow.DisplayVerticalScrollBar = True
' rétablir les onglets de classeur
    ActiveWindow.DisplayWorkbookTabs = True
End Sub
et pose toi la question: ais-je vraiment besoins de tout ça pour atteindre ce but ?
 
Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc
 
Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc
Bonjour @patricktoulon ,

patricktoulon à dit:
au delà du problème de declaration d'api (qui n'en est pas vraiment un)
Cliquez pour agrandir...
Pas pour toi, pour moi si. Je ne suis pas un chevronné comme toi.
De plus autodidacte qui ne code pas régulièrement.

patricktoulon à dit:
dis moi a quoi sert ceci
Cliquez pour agrandir...
Dans le détail je ne pourrai pas te donner une réponse.
Cependant, je sais que ça masque ou supprimer la barre de titre et redimensionne par rapport à l'écran.


patricktoulon à dit:
et pose toi la question: ais-je vraiment besoins de tout ça pour atteindre ce but ?
Cliquez pour agrandir...
Je ne sais pas ce que fait exactement chacune de ces api.

Connaissant ton niveau, je ne sais que tu sais ce que font ces bouts de code.
Donc, tu sais que le but est l'affichage d'excel et de formulaires en plein écran.

Mon objectif est d’empêcher un utilisateur novice d'accéder aux feuilles de calcul qui contiennent des données sensibles. D'où l'idée, d'une navigation via un formulaire principal et d'autres pour faire différentes tâches.

J'espère avoir répondu à tes questions.

Merci.
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
ma question était à caractère rhétorique a fin de t'ammener sur la reflection de l'utilité de l'utilisation des api dans certains cas

je suis à l'écoute pour plus de renseignement si tu veux
 

Pièces jointes

  • Plein Ecran.xlsm
    28.8 KB · Affichages: 1
Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc
patricktoulon à dit:
re
ma question était à caractère rhétorique a fin de t'ammener sur la reflection de l'utilité de l'utilisation des api dans certains cas

je suis à l'écoute pour plus de renseignement si tu veux
Cliquez pour agrandir...
Bonsoir Patrick,

Je te remercie, tes explications sont de très haut niveau.
J'ai pu me rendre compte avec quelle aisance tu décortiques et modifies les codes.
(entre nous je t'envie un peu )
je n'ai pas ton niveau et je suis persuadé que je l'atteindrai jamais.
Tu t'es posé beaucoup de questions sur ce que je voulais faire.
Tu t'es aperçu qu'il y a en effet, des bribes de tes codes.
Tu m'as fait une très belle démonstration mais tu ne t'es pas aperçu que dans la barre de titre d'excel il n'y avait plus les petites icônes en haut à droite.

Voici ce que je voudrais arriver à faire:
- à L'ouverture d'excel: Plein écran sans barre de titre (onglets non visibles Seule feuille "Menu" apparentes)
- ensuite affichage d'une userform d'identification si OK --> Affichage d'un userform de navigation en plein écran sans barre de titre (ni réduction, ni déplacement, ni zoom).
- au clic sur un des bouton de formulaire ouvrira un autre formulaire (et ferme ce dernier) etc...

Voilà pour l'essentiel, je pourrai adapter pour les autres formulaires.

C'est en faisant des recherches que je suis tombé par hasard sur des exemples utilisant les api.

Si on peut faire ce que je viens de décrire sans API, je suis preneur.

Encore merci.

Bonne soirée.
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
Tu m'as fait une très belle démonstration mais tu ne t'es pas aperçu que dans la barre de titre d'excel il n'y avait plus les petites icônes en haut à droite.
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

Y
  • Résolu(e)
Affichage Userform en plein écran quelque soit la taille de l'écran
2
Réponses
22
Affichages
798
youguybass
Y
  • Résolu(e)
XL 2021 Modification d'un code VBA
Réponses
5
Affichages
287
kiki29
E
  • Résolu(e)
Microsoft 365 32 ou 64 bits
2 3 4
Réponses
46
Affichages
2 K
eric72
E
  • Question
XL 2016 Impossible de SendKeys une tabulation
Réponses
4
Affichages
558
R1-
V
  • Question
XL 2021 Upload fichier depuis Bureau
Réponses
7
Affichages
443
vmax67
V
  • Résolu(e)
XL 2013 prise de tête avec une variable static
Réponses
3
Affichages
343
patricktoulon
  • Question
XL 2019 Cherche Volontaires pour tester dll interface VBA Dotnet
Réponses
8
Affichages
397
patricktoulon
C
  • Question
XL 2019 Probleme olepro32 et/ou LongPtr
Réponses
11
Affichages
605
patricktoulon
  • Question
Autres que penses vous de ce mini test benchmark(timer plus precis)
Réponses
6
Affichages
436
patricktoulon
  • Question
XL 2016 VBA - Déclarations des fonctions l'API Windows
3 4 5
Réponses
71
Affichages
5 K
Dudu2
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…