| | auteur : SilkyRoad |
Cet exemple crée une page html dynamiquement. Cette page contient un champ de saisie et un bouton. La procédure
permet ensuite d'intercepter l'évènement Click sur le bouton html (renvoie le contenu du champ de saisie).
Nécessite d'activer les références:
Microsoft HTML Objects Library
et
Microsoft Internet Controls
| Vba |
Option Explicit
Public Collect As Collection
Public MaVariable As String
Sub Test()
Dim xFile As Integer
Dim Cl As Classe1
Dim LaPage As Object
xFile = FreeFile
Open "C:\CreationPage.html" For Output As xFile
Print #xFile, "<HTML>"
Print #xFile, "<HEAD>"
Print #xFile, "<TITLE>Ma page de saisie</TITLE>"
Print #xFile, "</HEAD>"
Print #xFile, "<FORM>" & _
"<input type='text' size='10' name='autre'><br>" & _
"<INPUT type=button name='Bouton1' value='Validez'>" & _
"</FORM>" & _
"</BODY></HTML>"
Print #xFile, "</BODY>"
Print #xFile, "</HTML>"
Close xFile
Set Collect = New Collection
Set LaPage = CreateObject("InternetExplorer.Application")
Set Cl = New Classe1
Set Cl.IE = LaPage
Collect.Add Cl
With LaPage
.AddressBar = False
.MenuBar = False
.StatusBar = False
.Toolbar = False
.Visible = True
.Width = 400
.Height = 300
.navigate "C:\CreationPage.html"
Do Until .readyState = 4
DoEvents
Loop
End With
End Sub
|
| Vba |
Option Explicit
Public WithEvents IE As InternetExplorer
Dim WithEvents Bouton As HTMLInputElement
Dim MaPageHtml As HTMLDocument
Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set MaPageHtml = IE.document
Set Bouton = MaPageHtml.getElementsByTagName("input").Item(1)
End Sub
Private Function Bouton_onclick() As Boolean
MaVariable = MaPageHtml.getElementsByTagName("input").Item(0).Value
MsgBox MaVariable
IE.Quit
End Function
|
|
| | auteur : SilkyRoad |
Ce code importe un fichier (nomfichier.pdf) d'une URL vers le disque dur, puis le renomme (rapport.pdf).
| Vba |
Option Explicit
Private Declare Function URLDownloadToFile _
Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Private Const ERROR_SUCCESS As Long = 0
Sub LancementProcedure()
DownloadFile _
"ftp://ftp-nomsite.com/dossier/nomfichier.pdf", "C:\rapport.pdf"
End Sub
Public Function DownloadFile(ByVal sURL As String, _
ByVal sLocalFile As String) As Boolean
Dim lngRetVal As Long
DownloadFile = URLDownloadToFile(0&, sURL, _
sLocalFile, 0&, 0&) = ERROR_SUCCESS
End Function
|
|
| | auteurs : SilkyRoad, Bbil |
Il est possible d'ouvrir une page GoogleMap par VBA en précisant les paramètres de l'URL:
http://maps.google.fr/maps?f=q&hl=fr&q=" & [Var_adresse] & ",+" & [Var_code_postale] & "+" & [Var_ville]
| Vba |
Sub Test()
RechercheGoogleMap "Condrieu", "Rue du marché aux fruits"
End Sub
Sub RechercheGoogleMap(NomVille As String, _
Optional Adresse As String, Optional CodePostal As String)
Dim strURL As String
strURL = "http://maps.google.fr/maps?f=q&hl=fr&q="
strURL = strURL & Adresse & " ,+ " & CodePostal & "+" & NomVille
ThisWorkbook.FollowHyperlink strURL
End Sub
|
|
Consultez les autres F.A.Q's
Les sources présentés sur cette pages sont libre de droits,
et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs.
Copyright ©2008
Developpez LLC. Tout droits réservés Developpez LLC.
Aucune reproduction, même partielle, ne peut être faite de ce site et de
l'ensemble de son contenu : textes, documents et images sans l'autorisation
expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans
de prison et jusqu'à 300 000 E de dommages et intérets.
Cette page est déposée à la SACD.
|
