[VBA] Controle d'Internet Explorer (IE) avec Excel

Controle d'Internet Explorer (IE) avec Excel [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 13-08-2008 à 10:04:02    

Bonjour,
 
Je poste ce message car malgré mes nombreuses recherches sur le net je tourne en rond depuis plusieurs mois (bon d'accord je l'avoue je ne fais pas que ca dans la vie donc ca prend plus de temps). J'ai vu des super réponses sur ce forum de JihemAir notamment donc j'espère trouver des gens compétents sur la manipulation des fenetres.
 
Mon problème :
Je cherche à télécharger un fichier qui est sur mon intranet via Excel. Je prends donc le controle d'IE pour être identifié sur le reseau et je lance le téléchargement sans problème. C'est ensuite que ca se corse. La fameuse fenetre "File Download" s'ouvre et me demande si je veux ouvrir (Open) ou enregistrer (Save) le fichier.... et je n'arrive pas à prendre la main dessus pour lui dire d'ouvrir le fichier.
J'ai essayé les Postmessage, Sendmessage et sendkeys.... bizarrement rien ne fonctionne donc j'ai plutôt l'impression que je pointe sur la mauvaise fenetre... bref je suis perdu  :pt1cable:  
 
Mon problème est aussi que je n'ai aucune doc sur les parametres possibles de Postmessage et Sendmessage donc je navique à l'aveuglette. Je n'ai rien trouvé sur le net qui puisse me dire les valeurs possibles de wMsg, wParam et lParam ainsi que leur significations.
 
Merci aux âmes charitables qui voudront bien m'aider.
Bleu34


Message édité par bleu34 le 13-08-2008 à 11:00:09
Reply

Marsh Posté le 13-08-2008 à 10:04:02   

Reply

Marsh Posté le 21-08-2008 à 18:28:34    

Allez je m'auto-réponds pour en faire profiter tout le monde. Je vous livre ma macro tel quel. Ca servira surement à quelqu'un.
Je vous rappele mon environnement : windows 2000, Excel 2000, le tout en anglais.
et mon problème : récupérer un fichier sur intranet via une macro Excel, cliquer sur tout les boutons pour réussir à le sauvegarder.
 

Code :
  1. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
  2.     (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  3. Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
  4.     (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
  5. Private Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd As Long) As Long
  6. Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
  7.     (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  8. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  9.     (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  11. Public hwnd As Long
  12. Private Const WM_KEYDOWN = &H100
  13. Private Const WM_CHAR = &H102
  14. Private Const VK_RETURN = &HD
  15. Private Const BM_CLICK = &HF5
  18. Sub LaunchDownload()
  20.     On Error Resume Next
  21.     Set ie = CreateObject("InternetExplorer.Application" )
  22.    
  23.     acceuil = "http://intranet"
  24.     baseline = "http://intranet/monfichier.csv"
  25.        
  26.     fichier_baseline = "c:\baseline.csv"
  27.    
  28.     If Dir(fichier_baseline) <> "" Then Kill fichier_baseline
  29.    
  30.     'connection à la page d'acceuil intranet pour éviter les problèmes de login/password
  31.     ie.Navigate acceuil
  32.     'ie.Visible = True
  33.     Do Until ie.ReadyState = 4 'Loop unitl ie page is fully loaded
  34.         DoEvents
  35.     Loop
  36.    
  37.     If ie.document.Title = "Mettre le Header de votre page, c'est juste pour un test" Then
  38.    
  39.         ie.Navigate baseline
  40.         Do Until ie.ReadyState = 4
  41.             DoEvents
  42.         Loop
  43.         hwnd = 0
  44.         hwnd_fils = 0
  45.         Do
  46.             hwnd = FindWindow(vbNullString, "File Download" )
  47.             If hwnd = 0 Then
  48.                 PauseTimer (1)
  49.             Else
  50.                 hwnd_button = FindWindowEx(hwnd, 0, "Button", "&Save" )
  51.             End If
  52.         Loop While hwnd_button = 0
  53.         hwnd_button_hexa = Hex(hwnd_button)
  54.         hwnd_hexa = Hex(hwnd)
  55.        
  56.         SetActiveWindow hwnd
  57.         SendMessage hwnd_button, BM_CLICK, ByVal CLng(0), ByVal CLng(0)
  58.        
  59.         Do
  60.             hwnd_fils = FindWindow(vbNullString, "Save As" )
  61.             If hwnd_fils = 0 Then
  62.                 PauseTimer (1)
  63.             Else
  64.                 hwnd_button = FindWindowEx(hwnd_fils, 0, "Button", "&Save" )
  65.                 hwnd_level1 = FindWindowEx(hwnd_fils, 0, "ComboBoxEx32", "" )
  66.                 hwnd_level2 = FindWindowEx(hwnd_level1, 0, "ComboBox", "" )
  67.                 hwnd_level3 = FindWindowEx(hwnd_level2, 0, "Edit", "" )
  68.             End If
  69.         Loop While hwnd_button = 0
  71.         hwnd_fils_hexa = Hex(hwnd_fils)
  72.         hwnd_text_hexa = Hex(hwnd_text)
  73.         hwnd_level3_hexa = Hex(hwnd_level3)
  74.        
  75.         For num = 1 To Len(fichier_baseline)
  76.             PostMessage hwnd_level3, WM_CHAR, Asc(Mid(fichier_baseline, num, 1)), 0
  77.         Next
  78.         PostMessage hwnd_fils, WM_KEYDOWN, VK_RETURN, 0 'enter
  79.         Do
  80.             If Dir(fichier) = "" Then
  81.                 PauseTimer (1)
  82.             End If
  83.         Loop While Dir(fichier) = ""
  84.     Else
  85.         MsgBox "Please ensure that you have Internet Explorer opened" & Chr(13) & _
  86.                "and that you are already connected to Intranet." & Chr(13) & _
  87.                "Note : having multiple IE windows could lead to problems"
  88.     End If
  89.    
  90.     ie.Quit
  91.     Set ie = Nothing
  92. End Sub
  94. 'celle du dessous je l'ai trouvé sur le net... je ne sais plus où, en tout cas merci à celui qui l'a écrite
  95. Sub PauseTimer(ByVal nSecond As Single)
  96. Dim t0 As Single
  97.      'temps de référence
  98.      t0 = Timer
  99.      'boucle d'attente
  100.      Do While Timer - t0 < nSecond
  101.            Dim dummy As Integer
  102.            dummy = DoEvents()
  103.            'si on dépasse minuit,il faut
  104.            'retrancher un jour
  105.            If Timer < t0 Then
  106.                t0 = t0 - 24 * 60 * 60
  107.            End If
  108.      Loop
  109. End Sub


Message édité par bleu34 le 22-08-2008 à 09:40:46
Reply

Marsh Posté le 21-02-2009 à 18:33:40    

Bonjour,
 
Merci d'avoir mis ta réponse, j'ai exactement le même problème que toi !
Cependant, il y a une petite différence pour moi car Windows et Excel sont en Français pour moi et la fentre "File Download" n'a surement pas le même nom...
Ainsi je reste dans la boucle suivante :
 
Do
            hwnd = FindWindow(vbNullString, "File Download" )
            If hwnd = 0 Then
                PauseTimer (1)
            Else
                hwnd_button = FindWindowEx(hwnd, 0, "Button", "&Save" )
            End If
        Loop While hwnd_button = 0
 
En fait je ne trouve pas le nom de la fenetre en français...
J'ai essayé "Téléchargement de fichiers" (le titre de ma fenetre) mais ça ne fonctionne pas et pas moyen de mettre la main sur le nom de ma fenetre...
Quelqu'un pourrait m'indiquer des pistes pour trouver ce nom ?
 
Par avance merci

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed