Masquage du classeur actif par programme dans Excel

Je suis en train de travailler sur un projet VBA dans un classeur. Le code ouvre un nouveau classeur et appelle une API externe qui télécharge et insère un tas de données dans plusieurs feuilles de calcul de ce classeur. J'ai désactivé l'Écran de mise à Jour (Application.Screenupdating = False) donc, au départ, l'écran reste concentré sur le classeur d'origine que l'API télécharge les données sur l'autre classeur en arrière-plan. Cependant, l'écran bascule vers le nouveau classeur une fois l'API insère des données. Comment puis-je éviter cela? Merci!

source d'informationauteur lodhb

  1. 3

    Soit vous vous enregistrez et fermez le classeur cible, ou sélectionnez le classeur d'origine avant de screenupdating est tourné le dos.

  2. 18

    Cacher le classeur actif est possible avec

    ActiveWorkbook.Windows(1).Visible = False

    Vous devrez peut-être remplacer ActiveWorkbookavec une référence appropriée si le classeur en question n'est pas active et/ou ajouter une boucle comme For i = 1 To ActiveWorkbook.Windows.Count si le classeur a plusieurs fenêtres.

  3. 5

    Vous pouvez essayer d'utiliser la fonction ShowWindow API:

    Public Declare Function ShowWindow Lib "user32.dll" _
    (ByVal HWND As Long, ByVal nCmdShow As Long) As Long

Const SW_HIDE as Long = 0
Const SW_SHOW as Long = 5

ShowWindow otherWorkbookApplication.Hwnd, SW_HIDE

'Your code here

ShowWindow otherWorkbookApplication.Hwnd, SW_SHOW

    Ou, à défaut, LockWindowUpdate la fonction de l'API (grâce à la Puce Pearson, http://www.cpearson.com/excel/vbe.aspx):

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal ClassName As String, ByVal WindowName As String) As Long

Private Declare Function LockWindowUpdate Lib "user32" _
    (ByVal hWndLock As Long) As Long


Sub EliminateScreenFlicker()
    Dim VBEHwnd As Long

    On Error GoTo ErrH:

    Application.VBE.MainWindow.Visible = False

    VBEHwnd = FindWindow("wndclass_desked_gsk", _
        Application.VBE.MainWindow.Caption)

    If VBEHwnd Then
        LockWindowUpdate VBEHwnd
    End If

    '''''''''''''''''''''''''
    ' your code here
    '''''''''''''''''''''''''

    Application.VBE.MainWindow.Visible = False
ErrH:
    LockWindowUpdate 0&
End Sub