ASTUCES POUR EXCEL.

Commentaire de us_30 le 14/12/2008 18:15:48

Bonjour,

Disons que ce genre de code :
Private Declare Function GetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

n'est pas vraiment du VB"A", mais du VB.

Amicalement,
Us.

Commentaire de xyface le 15/12/2008 10:06:37

bonjour
je travaille sur une application pour un jeu en ligne: ikariam

je me rejouissait de pouvoir intégrer ce code dans mon travail pour l'ameliorer pour les gars de mon alliance

mais je travaille sous open office et les codes proposés ne fonctionnent sous le calculateur d'open office


y aurait il moyen d'avoir une adaptation du code pour open office?

ou conseils et ou liens


merci d'avance

Commentaire de bigfish_le vrai le 15/12/2008 17:37:24

Bonjour,

C'est pas mal, cela a au moins le merite de regrouper plusieurs astuces pas toujours faciles a trouver.

Mais...

je ne suis pas d'accord sur la façon de desactiver les combinaisons de touches Alt+F1, Ctrl+PgUp ou Ctrl+PgDn. Il existe une methode qui simplifie le code et fonctionne avec n'importe quelle combinaison de touches. Ce qui est encore plus etrange c'est que tu as utilisé cette methode dans d'autre cas alors pourquoi pas pour ceux-ci ?

Sub DesactiverCombiTouche()
    Application.OnKey "%{F1}", "MessageDeLimitation"
    Application.OnKey "^{PGUP}", "MessageDeLimitation"
    Application.OnKey "^{PGDN}", "MessageDeLimitation"
End Sub
Sub RetablirCombiTouche()
    Application.OnKey "%{F1}"
    Application.OnKey "^{PGUP}"
    Application.OnKey "^{PGDN}"
End Sub
Sub MessageDeLimitation()
    MsgBox "Vos droits sur ce fichier ne vous permettent pas d'acceder à ces fonctions !", vbExclamation
End Sub

Je ne suis pas non plus d'accord avec la methode qui consiste a virer la croix du userform c'est bien compliqué pour pas grand chose. En effet il existe un evenement sur la form qui permet de detecter l'utilisation de la croix et donc de la desactiver.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then Cancel = 1
End Sub

Pour plus d'info sur les limitations que l'on peut appliquer a excel tu peux aller jeter un oeil ici :
http://www.vbfrance.com/codes/AMELIORER-SECURITE-ACCES-DONNEES-CODE-FICHIER-EXCEL_48448.aspx

Autre chose: le fait de rendre invisible excel interdit l'ouverture d'un autre fichier excel c'est dommage pour l'utilisateur ! il existe une solution qui consiste a privatiser la session caché pour obliger excel a créer une autre session si l'utilisateur veut ouvrir un autre fichier par double clic(par exemple):

Sub cacher_Excel()
Application.IgnoreRemoteRequests = True
Application.Visible = False
End Sub
Sub montrer_Excel()
Application.IgnoreRemoteRequests = False
Application.Visible = True
End Sub

A+

Commentaire de piloulac le 15/12/2008 18:27:25

Merci infiniment à toi BigFish pour tous ces commentaires très judicieux.
J'essaie tout de suite d'intégrer tes conseils à mon petit didacticiel.

Commentaire de piloulac le 16/12/2008 12:53:26

XYface, désolé, je ne connais rien à Open Office.
Peut-être un spécialiste pourrait-il te tépondre.

Commentaire de mimiZanzan le 18/12/2008 19:35:53

Très facile:
Dim fichImp
fichImp = Application.GetOpenFilename
Ceci ouvre une boite mais pas le fichier.
Pour l'ouvrir, faire ensuite
Workbooks.Open Filename:=fichImp
C'est tout!