IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Ecrire dans un form internet depuis access


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Septembre 2007
    Messages
    127
    Détails du profil
    Informations forums :
    Inscription : Septembre 2007
    Messages : 127
    Par défaut Ecrire dans un form internet depuis access
    Citation Envoyé par JackOuYA Voir le message
    Bonjour,

    commence par rajouter la référence "Microsoft Html objet Library" à ton projet.

    puis la fonction :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    '
    ' YaChercheHtlm
    'recherche un "HtmlElement" en fonction de son nom et valeur :
    '
    Function YaChercheHTmlEl(yaNom As String, yaValeur As String, yaEL As IHTMLElement, YaDoc As HTMLDocument) As Boolean
      On Error GoTo yaErreur
      Dim mYaEL As IHTMLElement
            For Each mYaEL In YaDoc.getElementsByName(yaNom)
              If mYaEL.Value = yaValeur Then
                 Set yaEL = mYaEL
                 YaChercheHTmlEl = True
                 Exit Function
              End If
            Next
    yaErreur:
    YaChercheHTmlEl = False
     
    End Function
    et pour l'appel dans ton code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    ...
          Loop 'attend la fin du chargement
     
        Dim yaEL As IHTMLElement
            If YaChercheHTmlEl("precision", "", yaEL, IE.Document) Then
               yaEL.Value = "922752"
            Else
               MsgBox "Erreur sur Ecriture numero de licence"
               Exit Sub
            End If
            If YaChercheHTmlEl("reqid", "200", yaEL, IE.Document) Then '200 MAsculin, 300 Feminin
               yaEL.Checked = True
            Else
               MsgBox "Erreur sur Ecriture sur choix sexe"
               Exit Sub
            End If
             If YaChercheHTmlEl("submit", "Envoyer", yaEL, IE.Document) Then '200 MAsculin, 300 Feminin
                yaEL.Click
            Else
               MsgBox "Erreur sur Click sur envoyer"
               Exit Sub
            End If
     
        End With
     
     
    End Sub
    Bonjour, j'utilise ce code qui fonctionne bien mais je rencontre un problème dès lors que je n'arrive pas à connaître le nom du champ à remplir. Existerait-il un moyen de lister les champs (i.e. : champ texte) d'une form internet
    Merci de votre aide

  2. #2
    Membre confirmé
    Inscrit en
    Septembre 2007
    Messages
    127
    Détails du profil
    Informations forums :
    Inscription : Septembre 2007
    Messages : 127
    Par défaut
    bonjour, vraiment personne !!!

Discussions similaires

  1. Réponses: 4
    Dernier message: 11/09/2006, 16h55
  2. [RCP] ecrire dans la status bar depuis un editeur
    Par Jeannot dans le forum Eclipse Platform
    Réponses: 2
    Dernier message: 11/09/2006, 15h42
  3. Lire/Ecrire dans un fichier .xml depuis Java
    Par SkyBioSS dans le forum Format d'échange (XML, JSON...)
    Réponses: 13
    Dernier message: 16/05/2006, 17h38
  4. Réponses: 11
    Dernier message: 08/02/2006, 16h59
  5. Ecrire dans un tableau html depuis une fonction js ?
    Par botanica dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 05/10/2005, 12h48

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo