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 :

Navigateur internet VBA Excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    Septembre 2011
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Groenland

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2011
    Messages : 1
    Par défaut Navigateur internet VBA Excel
    Bonjour le forum,

    Dans ma boite on est condamné à windows xp sp3 et IE6, j'ai donc décidé de créer mon navigateur internet en vba. Ce n'est pas le premier que je developpe, mais j'aime bien améliorer mes outils. Ma dernière prise de tête est sur l'évenement NewWindow du webbrowser. En effet je veux qu'à chaque nouvelle fenêtre internet hors de mon navigateur, soit généré une copie de mon navigateur, puis afficher avec la page internet qui a généré l'évenement.
    J'ai bien ramé pour duppliquer un Userform et l'intégré dans le même classeur mais j'ai réussi ! Mais là je suis bloqué par l'impossibilité d'afficher le userform, ni même d'interagir avec les controls qu'il contient.

    Voici le 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
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    'j'exporte le userform1 et nomme le fichier en incrémentant le n°, le nombre de userform de navigateur internet est noté dans la textbox3
     
    ThisWorkbook.VBProject.VBComponents("Userform1").Export "C:\Userform" & TextBox3.Text + 1 & ".frm"
     
    'j'ouvre le fichier frm ainsi généré pour le lire et en créé un autre afin de modifier dans le frm final les deux occurrences qui mentionnent le nom réel du userform
     
    Open "C:\Userform" & TextBox3.Text + 1 & ".frm" For Input As #1
    Open "C:\Userform" & TextBox3.Text + 1 & "final.frm" For Output As #2
    While Not EOF(1)
        Line Input #1, get_line
        If Left(get_line, 17) = "Attribute VB_Name" Then
            Print #2, Left(get_line, 21) & "UserForm" & TextBox3.Text + 1 & Right(get_line, 1)
        End If
        If Right(get_line, 10) = "UserForm1 " Then
            Print #2, Left(get_line, Len(get_line) - 10) & "UserForm" & TextBox3.Text + 1 & " "
        End If
        If Left(get_line, 17) <> "Attribute VB_Name" And Right(get_line, 10) <> "UserForm1 " Then
            Print #2, get_line
        End If
    Wend
     
    Close #1
    Close #2
     
    'j'incrémente le nombre de userform de navigateur dans la textbox3
     
    TextBox3.Text = TextBox3.Text + 1
     
    'j'importe le FRM final dans mon classeur
     
    ThisWorkbook.VBProject.VBComponents.Import "C:\Userform" & TextBox3.Text & "final.frm"
     
    'je détruit les fichiers temporaires
     
    Kill "C:\Userform" & TextBox3.Text & ".frm"
    Kill "C:\Userform" & TextBox3.Text & ".frx"
    Kill "C:\Userform" & TextBox3.Text & "final.frm"
    Kill "C:\Userform" & TextBox3.Text & "final.frx"
    A savoir, mon navigateur principal est dans le userform1, le userform99 sera celui qui me permettra de parametrer le navigateur.

    Donc si quelqu'un peut me dire comment afficher le userform créé, et envoyer dans la barre d'adresse de ce dernier (textbox1) l'URL qui a généré l'évenement New Window. En espérant être clair parceque ce n'est pas évident.

    En pièce jointe la bêta de mon navigateur.
    Merci par avance
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. connexion a un site internet sur IE via VBA excel
    Par deubelte dans le forum Windows XP
    Réponses: 3
    Dernier message: 16/07/2008, 12h16
  2. vba excel et internet
    Par geoffrey49 dans le forum Macros et VBA Excel
    Réponses: 15
    Dernier message: 01/09/2007, 22h57
  3. lien internet avec VBA EXCEL
    Par casefayere dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 19/07/2007, 10h40
  4. Réponses: 3
    Dernier message: 08/03/2007, 08h51
  5. VBA Excel - Vérifier la disponibilité internet
    Par pjthedj dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 24/12/2005, 18h12

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