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

Macros et VBA Excel Discussion :

programmer un code vba qui automatise le virement de données d'un tableau excel à un formulaire dans le web [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2010
    Messages
    128
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2010
    Messages : 128
    Par défaut programmer un code vba qui automatise le virement de données d'un tableau excel à un formulaire dans le web
    Bonjour,

    Comme vous l'avez compris je veux allouer à chaque donnée dans une cellule d'un tableau d'un fichier excel un emplacement dans un formulaire qui se trouve dans le web.

    Est ce que c'est possible et si c'est le cas merçi de m'aider.

    Cordialement,
    SKIP

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Une exemple
    Activer la référence Microsoft Internet Controls
    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
    28
    29
    30
    31
    32
    33
    34
    35
    Sub IE_ATTENTE(ByVal IE As InternetExplorer)
     
    Do While IE.readyState <> READYSTATE_INTERACTIVE
        DoEvents
    Loop
    Do While IE.readyState <> READYSTATE_COMPLETE
        DoEvents
    Loop
    End Sub
     
    Sub REMPLISSAGE()
    Dim IE As New InternetExplorer
    Dim Sh As Worksheet
     
    Const stURL As String = "http://www.xxx.yyy"
     
    IE.navigate stURL
    IE.Visible = True
    IE_ATTENTE IE
    Set Sh = ThisWorkbook.Worksheets("BASE")
    With IE.Document
    'MATRICULE
        .getElementsByName("Stagiaires_CIn").Item.Value = Sh.Range("A1").Value
    'SEXE (Liste M/F)
        .getElementsByName("v_sexestag").Item.Value = Sh.Range("B1").Value
    'NOM & PRENOM
        .getElementsByName("Stagiaires_nom").Item.Value = UCase(Trim(Sh.Range("C2").Value))
    'ADRESSE
        .getElementsByName("Stagiaires_Adresse").Item.Value = UCase(Trim(Sh.Range("D2").Value))
    'VILLE (Liste)
        .getElementsByName("Stagiaires_ville").Item.Value = Sh.Range("E2").Value
    'DATE DE NAISSANCE
        .getElementsByName("Stagiaires_Datenaiss").Item.Value = Format(CDate(Sh.Range("H2").Value), "dd/mm/yyyy")
    End With
    End Sub
    les .getElementsByName("toto") correspondent au nom de champs de ta page web (regarde le code source de ta page pour dénicher ces noms)

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2010
    Messages
    128
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2010
    Messages : 128
    Par défaut
    Bonjour Mercatog,

    Qu'est ce que je dois changer dans le code, moi à ce que je vois les éléments à changer sont:
    Le nom du site internet qui est "http://www.xxx.yyy".
    Le nom de la feuille qui est "BASE".
    Et les noms des éléments que je dois faire rentrer dans le formulaire comme:
    "Stagiaires_CIn","v_sexestag","Stagiaires_nom","Stagiaires_Adresse",etc...

    Est ce que c'est bon?

    Et merçi d'avance.
    SKIP

  4. #4
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Oui c'est ça. et aussi les cellule que tu veux exporter vers ta page web

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2010
    Messages
    128
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2010
    Messages : 128
    Par défaut
    Bonjour,

    J'ai un problème c'est que quand j'exécute la macro il y a une erreur de compilation qui survient : "Type défini par l'utilisateur non défini". Et il fait fait à la première ligne du code c'est à dire:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sub IE_ATTENTE(ByVal IE As InternetExplorer)
    Vous savez pas de quoi s'agit il exactement?

    Cdt,
    SKIP

  6. #6
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Activer la référence Microsoft Internet Controls
    tu n'avais pas lu cette ligne

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Code VBA qui modifie du Code VBA ?
    Par tictactoc dans le forum Excel
    Réponses: 2
    Dernier message: 30/07/2009, 09h43
  2. programme en vba qui permet le transfert des données word vers excel
    Par progaide dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 15/06/2009, 17h28
  3. [E-00] Code VBA qui insère du code VBA
    Par _Sool_ dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 25/11/2008, 09h16
  4. code vba qui fonctionnes plus du jour au lendemain
    Par alexkickstand dans le forum VBA Access
    Réponses: 1
    Dernier message: 29/07/2008, 16h41
  5. Code VBA qui supprime une requête
    Par Fredo67 dans le forum VBA Access
    Réponses: 2
    Dernier message: 28/05/2008, 17h47

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