Simuler Shift F9 pour reconstruire l'index des vues

[Michael DELIQUE]

Code : Tout sélectionner

Public Sub RebuildIndex_API
   'permet de reconstruire les index des vues Lotus notes
   
%REM
Variable API pour la fonction RebuildIndex_API
Declare Sub keybd_event Lib "user32.dll" (Byval bVk As Integer, Byval bScan As Integer, Byval dwFlags As Integer,Byval dwExtraInfo As Integer)
%END REM
   
   On Error Goto ErreurRebuildIndex_API
   
   keybd_event &h10,0,0,0 ' shift key down
   keybd_event &h78,0,0,0 ' F9 key down
   keybd_event &h78,0,2,0 ' F9 key up
   keybd_event &h10,0,2,0 ' shift key up
   
   Exit Sub
ErreurRebuildIndex_API:
   Msgbox "("+Cstr(Getthreadinfo (1))+" Call by "+Cstr(Getthreadinfo(10))+")"+Chr(10)+"Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
   Exit Sub
End Sub