Accueil
Accueil Le Club Delphi Kylix C C++ Java J2EE DotNET & C# Visual Basic Access Pascal Dev Web PHP ASP XML UML SQLSGBD Windows Linux Autres
logo

precedent    sommaire    suivant   


Comment créer une page html en VBA ?
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

' --- Dans un module standard: ---

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 'attend la fin du chargement
    End With
    
End Sub
Vba

' --- Dans un module de classe nommé Classe1 ---

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
    
    'pour cet exemple le bouton est le 2eme objet "input" de la page... Item(1)
    Set Bouton = MaPageHtml.getElementsByTagName("input").Item(1)
End Sub
 
 
Private Function Bouton_onclick() As Boolean
    'Récupère le contenu de la zone de saisie dans la page html
    MaVariable = MaPageHtml.getElementsByTagName("input").Item(0).Value
    
    MsgBox MaVariable
    IE.Quit
End Function

Comment télécharger un fichier stocké sur le web ?
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

Comment piloter Google Map depuis Excel ?
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"
    RechercheGoogleMap "Condrieu", "Rue du marché aux fruits"
    'RechercheGoogleMap "Condrieu", "Rue du marché aux fruits", "69420"
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


precedent    sommaire    suivant   

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.

Vos questions techniques : forum d'entraide Accueil - Publiez vos articles, tutoriels, cours et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones. Nous contacter - Copyright 2000..2005 www.developpez.com