B
beatbox
Guest
Bonjour à tous!
Je souhaiterai pouvoir récupérer des données sur Citrix dans XLCubed grâce à une macro.
Pour l'instant, j'arrive uniquement à mettre au premier plan la fenêtre Citrix mais je n'arrive pas à sélectionner un onglet précis ainsi qu'à selectionner une plage de cellule (que je souhaiterai copier puis coller dans mon classeur Excel).
Voici mon début de code et merci d'avance pour votre aide précieuse ! 😉
Option Explicit
Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function SetForegroundWindow Lib "user32" ( _
ByVal HWnd As Long) As Long
Public Sub Extraction()
'Open the extracted file
Dim HWnd As Long
HWnd = FindWindow(vbNullString, "Microsoft Excel - BAs New Scope v0.2.xlsx - \\Remote")
If HWnd Then
SetForegroundWindow HWnd
End If
End Sub
Je souhaiterai pouvoir récupérer des données sur Citrix dans XLCubed grâce à une macro.
Pour l'instant, j'arrive uniquement à mettre au premier plan la fenêtre Citrix mais je n'arrive pas à sélectionner un onglet précis ainsi qu'à selectionner une plage de cellule (que je souhaiterai copier puis coller dans mon classeur Excel).
Voici mon début de code et merci d'avance pour votre aide précieuse ! 😉
Option Explicit
Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function SetForegroundWindow Lib "user32" ( _
ByVal HWnd As Long) As Long
Public Sub Extraction()
'Open the extracted file
Dim HWnd As Long
HWnd = FindWindow(vbNullString, "Microsoft Excel - BAs New Scope v0.2.xlsx - \\Remote")
If HWnd Then
SetForegroundWindow HWnd
End If
End Sub
