Re : Gérer une page web
Voici un exemple de la première méthode :
Private Declare Function InternetAutodial Lib "Wininet" _
(ByVal dwFlags As Long, ByVal hwndParent As Long) As Long
Private Declare Function InternetAutodialHangup Lib "wininet.dll" _
(ByVal dwReserved As Long) As Long
Sub OuvreHTM()
InternetAutodial 1, 0
On Error Resume Next
Workbooks.OpenText "http:/monsite.fr/sommaire.htm", xlWindows, _
1, xlDelimited, ConsecutiveDelimiter:=False, Tab:=True
If Err Then MsgBox Err.Description: Exit Sub
On Error GoTo 0
ChDir "C:\a sauvegarder\" 'a modifier
ActiveWorkbook.SaveAs Filename:="lapage.xls"
End Sub
'Arrête la connection
Sub DéConnecte()
InternetAutodialHangup (0&)
End Sub
Peut-on appeler une macro "d'identification" au sein de la première (OuvreHTM) si l'on veut saisir un login et un mot de passe avant de sauvegarder avec ActiveWorkbook.SaveAs Filename:="lapage.xls" ???