Résultats pour "web question vba"

9'368 résultats pour cette recherche

Bonjour,

J'ai une petite question concernant excel pour le web, en ligne, le vba ne peut pas être exécuté a partir d'un bouton, créé ou modifier mais est ce que si on met du vba qui se lance a l'ouverture du document, est ce que ça fonctionne ?

En vous remerciant d'avoir lu

Salut amis ,

J'ai trouvé un excellent code VBA pour importer des données directement d'Internet vers Excel .

Je veux vraiment utiliser le même code VBA mentionné précédemment, pour importer dans Excel les données du tableau de données Historical Data (avec 7 colonnes) .

S'il était également possible d'adapter le code VBA mentionné ci-dessus, pour importer des données avec des critères dans l'intervalle de périodes de mois-année à mois-année .

par Exemple :

importer uniquement les données de février 2020 à décembre 2019, c'est-à-dire définir une plage de périodes de mois-année à mois-année .

la feuille de calcul avec le code VBA et les données importées que j'ai mentionnées dans l'exemple est jointe .

merci d'avance .

Bonjour à tous,

J’espère que tout le monde se porte bien.

J'utilise le code ci-dessous pour importer les données d'un site web. Cependant, l'import est très lent et comme je dois répéter cet import de plusieurs pages web vers plusieurs feuilles Excel, je me retrouve avec trop long un temps d’exécution (plusieurs minutes pour 5 Imports).

Je me permets donc de vous solliciter pour essayer de trouver une solution.

Auriez-vous des idées permettant d’accélérer l’exécution de cette macro ?

J'avais pensé à importer le code source de la page web (car j'y retrouve l'information que je cherche), mais je ne sais pas comment faire.

Je vous remercie par avance de votre retour, toujours très précieux.

Vous trouverez ci-dessous le code et ci joint le classeur.

Bien à vous,

Sub MacroImportweb()

Application.ScreenUpdating = False  

    Sheets("Feuil1").Cells.Clear         

    With Sheets("Feuil1").QueryTables.Add(Connection:="URL;http://base-donnees-publique.medicaments.gouv fr/affichageDoc.php?specid=61574515&typedoc=R" _
        , Destination:=Sheets("Feuil1").Range("$A$1"))
        .Name = "importtest"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

Hellowwww a tous ,

Tout d'abord ceci es mon premier poste donc ci je fais des boulettes je demande déjà votre pardon

ps: j 'écrit rarement en français et vous allez surement voire des fautes

Voici mon Sujet :

j'ai une feuil Exel ou je copie colle des donnez de code-barres

pour explication chaque code-barres contiens dans notre application web un nombre (X) de packet

mon bute c des vidée tout c code-barres

pour cela rien de difficile a ce jour j'imprime tout les code-barres "oui oui ca peu faire 24000 code-barres "

et je les scanne

quand je les scanne => ils vont direction notre application web qui elle les annuler directement

voila mon projet

1: copier tout les code-barres dans mon excel = OK ( normal c manuel )

2: macro VBA => ouvre internet ( Intranet ) = OK

3: copie colle chaque code-barre un par un écrit ok dans mon excel quand le code-barres a êtes (.submit)

Voici mon souci

le site ou je me connecte a un URL Statique ( JavaServer Pages ) je ne peu vous le donner car c'est un INTRANET :s

dans mon code que voici HAAAA OUIII AUSSI JE DEBUTE

IMPORTENT LE CODE FONCTIONNE AVEC GOOGLE

MAIS NE FONCTIONNE PAS DANS MON : JavaServer Pages

voire erreur ci dessous

Sub IEconnect()

 Dim ie As InternetExplorer
 Dim sURL As String
 Dim CellEmpty As Boolean
 Dim valeur As Range

'====================Verification si cellule vide====================

  CellEmpty = IsEmpty(Range("B3"))
If CellEmpty = True Then
  Sheets("MACROAVCS").Select
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "NOK"
Exit Sub

 Else

 '====================Ouverture de la page + config====================

sURL = "www.google.be"
Set ie = New InternetExplorer

With ie

.Top = 10
.Left = 0
.Width = 1000
.Height = 750
.AddressBar = 0
.StatusBar = 0
.Toolbar = 0

.Visible = True
.Navigate sURL

'====================Chargement de la page====================

Do Until Not .Busy And .ReadyState = 4
DoEvents
Loop

'====================Ecrit TEXT dans la barre de recherche====================

.Document.all("q").Value = (Range("B3"))
Application.Wait Now + TimeSerial(0, 0, 5)
Sheets("MACROAVCS").Select
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "OK"

End With

'====================Charge la page====================

Do Until Not ie.Busy
DoEvents
Loop

'====================Click sur ok====================

ie.Document.forms(0).submit

Set ie = Nothing
Err.Clear

End If

End Sub

erreur 1 : Evidemment c une page statique donc que faire un wait ?

ci je retire cette loop avec un wait application....

j'ai une deuxième erreur

Do Until Not .Busy And .ReadyState = 4
DoEvents
Loop

erreur 2 : il ne trouve pas la textbox peu etre que c'est différent avec une URL statique ?

.Document.all("q").Value = (Range("B3"))

Lundi je vous donnerais des Screenshots du site + les infos élément inspecter

la fin du "site" intranet = jsp/index.jsp

Bonjour

J'essaye de cliquer sur un bouton dans la page web, mais sans succès!

Voici le code pour me connecter sur le site de la compagnie et il faut que je sois sur leur réseau!

Voici le code du fameux bouton!

<a id="BUTTON_GROUP_ITEM_1_btn4_acButton" ct="B" st="" href="javascript:void(0);" ti="0" tabindex="0" class="urBtnStd" ocl="sapbi_page.sendCommandArray([['GUID','5',0],['NOUILOCK','X',0],['BI_COMMAND_TYPE','ABSTRACT',0]],event);" onkeydown="ur_Button_keypress(event);" onclick="ur_Button_click(event);" style="min-width: !important;text-align:center;overflow:visible;">Exporter vers Excel</a>

End Sub

Sub MyLogin()

Dim IE As Object

Set IE = CreateObject("InternetExplorer.application")

IE.Visible = True

IE.navigate ("

")

Do

If IE.readyState = 4 Then

Exit Do

Else

DoEvents

End If

Loop

On Error Resume Next

IE.document.Forms(0).all("j_username").Value = "XXXXX"

IE.document.Forms(0).all("j_password").Value = "XXXXX"

IE.document.Forms(0).submit

End Sub

Bonjour tout le monde,

Je dois dans un cadre professionnel éffectuer un travail nécessitant de comparer des données excels sous forme de texte avec des données d'un site officiel.

Imaginons que j'ai une feuille N°1 appellée "Temp", une feuille N°2 appellée "Accueil" et une feuille N°3 appellée "Clients"

Je veux faire en sorte que le lien URL ouvert par ma fonction ci dessous, ne soit pas fixé de la sorte mais que ma macro fasse appel à un lien généré dans ma feuille clients (Colonne G),

Sub Nom()

 Sheets("Temp").Cells.Clear

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.ordre.pharmacien.fr/%20annuaire/pharmacien?search=pharmacist&lastname=levy&maiden=&firstname=guileine&institution=&date=&zipcode=&city=&op.x=79&op.y=16" _
        , Destination:=Sheets("Temp").Range("$A$1"))
        .Name = "www.ordre.pharmacien"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

     compteur = 0

    For ligne = 1 To 1000

       If Left(Sheets("Temp").Cells(ligne, 1), 5) = "Nom :" Then
    compteur = compteur + 1
    Sheets("Accueil").Cells(3, 1) = Sheets("Temp").Cells(ligne, 1)
       If compteur = 2 Then Exit For
       End If
    Next
End Sub

Je débute sur VBA , j'apprécierai des conseils pour m'aider dans cette tache qui me semble très complexe.

A terme l'objectif est de comparer les cellules générées par la macro aux cellules de mon fichier client.

Je pensais utiliser des formules types =exact(). Est ce une bonne idée ?

Merci beaucoup pour votre aide à venir

Bonjour,

Utilisateur de LibreOffice, je viens de me payer Excel depuis hier.

Et j'ai malgré tout réussi à faire une webquery d'un fichier Json avec l'enregistreur de macro.

J'ai besoin de votre aide pour qu'il soit vraiment optimal :

L'adresse web est évolutive (pour la partie en rouge)

BT1819SWRLCP01SMIN

et il faudrait donc que la macro récupère l'adresse (partiellement) dans la cellule A1.

D'autre part, avant de lancer la requête, il faudrait supprimer la précédente ainsi que son résultat. (Peut-être la feuille entière puisque XL crée une nouvelle feuille à la création)

Je vous joins le fichier avec la macro.

Bonjour

j'utilise VBA pour importer des données du web via une commande VBA, sauf que quand j’exécute le code:

Sub WEB()
'
' Macro1 Macro
'

'
    Sheets("WEB").Cells.Clear

    With Sheets("WEB").QueryTables.Add(Connection:= _
        "URL;https://www.investing.com/currencies/eur-usd-historical-data", _
        Destination:=Sheets("WEB").Range("$A$432"))
        .CommandType = 0
        .Name = "eur-usd-historical-data_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    For Ligne = 1 To 1000

              If Left(Sheets("WEB").Cells(Ligne, 1, 13)) = "Download Data" Then
              Sheets("FX").Cells(1, 1) = Sheets("WEB").Cells(Ligne + 2, 1)
                  End If

une erreur de compilation: argument non facultatif et le mot Sub WEB() est colorié en jaune

comment je peux corriger l'erreur

merci

Bonjour

J'ai experimenté le sujet:

Créer une macro pour importer des données d’un site Web

et cela a très bien fonctionné jusqu'à mars dernier.

A cette période les données fournies par le Browser ont changés.

J'ai dû utiliser une nouvelle page que l'on ne peut accéder que via 2 x enter

1x l'URL et ensuite choisir la page portfolio

Lorsque je ne donne que la 1ère adresse le résltat est nul

Y a-t-il une astuce pour effectuer 2 x enter de l'adresse

L'URL de base est https://fr.finance.yahoo.com/portfolios

et ensuite il faut choisir le porfolios CGMUS

pour obtenir les cours désirés

De plus il est possible qu'il faille être signé avec un PW

pour avoir droit

Qui serait au courant de ce genre de manip?

Bonjour,

Je cherche à lancer une recherche sur un site web par une macro vba. Cela se fait très bien sur le site google par exemple : on renseigne le champ et on lance la recherche automatiquement en utilisant l'objet form de la page et la fonction submit.

Mais je tombe sur des cas où il n'y a pas d'objet form sur la page et je ne vois pas de manière de lancer la recherche par un submit. J'essaye donc de le faire en simulant une validation par la touche ENTREE au clavier grâce à la fonction Sendkeys. J'ai fait de nombreux essais - sans succès. Voir le code ci-dessous.

Merci d'avance si quelqu'un a une idée !

Luc W.

Un exemple de site où je n'arrive pas à lancer la recherche après avoir renseigné le champ.

Sub RechScipio()

' Déclare les variables du module

Dim oNav As SHDocVw.InternetExplorer

Dim oDoc As MSHTML.HTMLDocument

Dim ChampInput As HTMLInputElement

URLcible = "https://www.myfrenchstartup.com/fr/recherche-avancee"

Set oNav = New SHDocVw.InternetExplorer

oNav.navigate URLcible

oNav.Visible = True

' Attend le chargement de la page

Do Until oNav.readyState = READYSTATE_COMPLETE

DoEvents

Loop

Set oDoc = oNav.document

' Renseigne le champ recherche

Set ChampInput = oDoc.all("startup_name")

ChampInput.Value = "Scipio Bioscience"

''Tentatives infructueuses pour lancer la recherche

''ChampInput.SendKeys("~")

''ChampInput.SendKeys("~").send

''ChampInput.Value = "Alantaya" & ChampInput.SendKeys("~").send

End Sub

Bonjour,

J'utilise depuis plusieurs mois un dérivé de votre exemple d'accès WEB via VBA donné sur blog-excel.com.

Cependant j'ai un problème car si j'execute l'accès depuis la macro macweb sur la feuille TEMPI voir fichier joint

j'obtiens des données qui ne sont pas les mêmes que lorsque je donne l'adresse directement via google

Voici l'URL

https://finance.google.com/finance (cette même adresse est fournie via VBA)

J'ai essayé de nettoyer l'historique Google mais en vain.

Bonjour, j'espère que vous vous portez bien. Je travaille sur un projet actuellement mais je rencontre quelques difficultés que je tiens à partager avec vous pour que vous puissiez m'aider à le résoudre.

Je veux remplir un formulaire web contenant des listes déroulantes, des boutons radio via vba mais quand l'application vba se connecte au site, elle n'arrive pas à remplir les listes déroulantes et les boutons radio. Je suis certainement en train de faire une erreurs quelque part. Merci de m'aider !

Voici un exemple du code html de la balise select

<select id="j_id_jsp_132384828_4:selectval::content" name="j_id_jsp_132384828_4:selectval" style="background-color:  rgb(51,204,255);color:  rgb(0,0,0);" class="x2f" theme="dark" title="">
<option value="0" title=""></option>
<option value="1" selected="" title="ABJC">ABJC</option>
<option value="2" title="BICC">BICC</option>
<option value="3" title="BNBC">BNBC</option>
<option value="4" title="BOAB">BOAB</option>
<option value="5" title="BOABF">BOABF</option>
</select>

Bonjour, je suis en train de bosser sur un projet et là j'ai des difficultés à me connecter à un site web via vba. Voici mon code vba qui n'arrive pas à se connecter au site souhaité. L'exécution du code s'arrête au niveau du login. S'il vous plait, merci de m'aider à régler ce problème.

NB: J'ai utilisé le même code sur d'autres sites et il fonctionne à merveille.

Sub connection()

    Dim IE As InternetExplorer
    Dim IEdoc As Object
    Dim DOCelement As Object

    Set IE = New InternetExplorer
    IE.Visible = True
    IE.navigate ("http://bit.ly/2skkczD")

    ' attente de fin de chargement
    Do Until IE.readyState = 4
        DoEvents
    Loop

    Set IEdoc = IE.Document

    'login
     Set DOCelement = IEdoc.getElementsByName("j_id_jsp_926394357_14").Item
     DOCelement.Value = "username"

    'password
     Set DOCelement = IEdoc.getElementsByName("idpass").Item
     DOCelement.Value = "mdp"
     DOCelement.Select

    'connexion
     Set DOCelement = IEdoc.forms(0)
     DOCelement.submit

 End Sub
27mywork.xlsm (14.11 Ko)

Bonjour,

Je suis à la recherche d'un code vba qui me permet d'ouvrir une page web. J'ai bien trouvé plusieurs réponses sur divers forum sauf qu'à chaque fois je suis face au même problème :

sans titre 5218051

Pour information, voici le code que j'ai trouvé :

Option Explicit

Public Declare Function ShellExecute Lib "shell32.dll" _

Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _

ByVal lpFile As String, ByVal lpParameters As String, _

ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub Ouvrir()

Dim Fichier As String

Fichier = "https://forum.excel-pratique.com/"

ShellExecute 0, "", Fichier, "", "", 0

End Sub

À savoir que ce que j'ai mis en rouge ci-dessus l'est vraiment sur ma page

Merci par avance

bonjour,je cherche a télécharger une page web d'un serveur du boulot pour pouvoir forcer le bouton imprimer sur la page web a l'imprimer

j'arrive a ouvrir la page web avec vba mais je ne sais pas du tout comment faire pour forcer a cliquer sur le bouton imprimer

merci pour votre aide

Bonjour,

Il fut un temps j'utilisais Konfabulator pour programmer la récupération d'informations sur des pages internet. Mais ce producteur de widget ne fonctionne plus a priori sur win 8 et win 10.

Et puis je me suis davantage investi dans le VBA depuis.

Ma question est donc : comment peut-on récupérer le fichier source complet d'un page internet via excel et VBA ?

Bonjour à tous.

Je souhaiterais créer un outil de web scraping en utilisant VBA.

J'ai déjà commencé à ébaucher quelque chose avec mes piètres connaissances mais je bloque sur l'extraction InnerHTML du texte désiré.

Pouvez-vous me dire comment arriver à sélectionner le texte désiré?

EDIT : j'ai réussi à me débloquer, je fais un point au prochain post. Merci en tous cas !

Bonjour à tous,

Je travaille sur des textes de la réglementation et pour cela je dois surveiller l'évolution des textes, les nouveauté etc.

Ma question est de savoir s'il existe un macro excel qui permettrait de faire des aspiration selon le modèle suivant :

- Aspiration des données (web/rss/xml etc) -----> collecte des données avec Tri (filtre, mots clés etc) ------->mise en forme.

- Une fois la première action réalisé, implémenter ensuite une mise à jour automatisé par exemple à chaque ouverture du fichier.

Vous remerciant d'avance, je reste disponible pour des informations complémentaires.

A vos commentaires et conseils.

Merci.

Bonjour,

Voici mon problème :

J'aimerai pouvoir me servir de l'image de ce site web :

http://finviz.com/quote.ashx?t=A&ty=c&ta=1&p=d&b=1

Image qui va nécessairement changer étant donné que l'utilisateur de mon code pourra choisir d'autres valeurs (je ne sais pas si ça a une importance majeure pour le code).

Ainsi, je souhaiterais intégrer cette image d'une manière ou d'une autre dans ma feuille excel, mais je ne sais pas comment coder cela.

J'ai il me semble le choix entre enregistrer l'image et l'incorporer dans la feuille.

Sinon je peux éventuellement copier l'image, et la coller sur ma feuille à un emplacement précis (moins propre je pense).

Toujours étant que je ne sais pas comment extraire cette image d'une manière ou d'une autre.

Pourriez-vous s'il vous plaît m'éclairer à ce sujet ?

Cordialement,

Alex

Bonjour à tous,

Voici mon souci :

Je dois extraire une feuille .csv d'un site web. Pour le moment j'arrive à me connecter au site. Le voici :

http://finviz.com/screener.ashx

Pour ce faire, je dois dire à VBA de cliquer sur le bouton 'export' (en bas à droite de la page).

N'étant pas franchement calé dans ce domaine, j'ai contourné légèrement ce premier problème en me connectant à la page

, ce qui semble être équivalent au clic sur le bouton extract.

Désormais, je fais face à un autre souci qui, il me semble, n'a pas été résolu sur le forum. Réalisant les actions web sur IE (l'application étant censée fonctionner sur tout ordinateur), une petite fenêtre s'ouvre me demandant si je veux ouvrir ou enregistrer le fichier. Là, je n'ai aucune idée de comment confirmer l'enregistrement.

Afin de mieux cerner de quoi il s'agit, voici le début de mon code pour cette action :

Sub IE2()

Dim IE As InternetExplorer
'Déclaration de la variable IE

    Set IE = CreateObject("InternetExplorer.Application")
'Affectation de l'objet à la variable IE
IE.Navigate ("http://finviz.com/export.ashx?v=111") 'permet de lancer le téléchargement
'insérer ici une commande afin de confirmer l'enregistrement (fenêtre s'ouvre; choix entre Open et Save).

End Sub

Peut être qu'une simple instruction pour simuler "entrer" sur le clavier permettrait d'enregistrer. Mais je pense qu'il y a plus propre et plus fiable comme solution.

Quelles seraient vos propositions ? (j'attends évidemment des explications, pas un code tout fait sinon je risque de revenir dans deux jours vous reposer une question similaire )

Merci par avance pour vous réponses,

Alex.

Recherches récentes

usfmasquer lignes filtreshourpmucalcul satisfaction clientcsv recherche vbavba stextrecherche csvcsv rechercheliste deroulantecongeparc autosatisfaction clientscrollbar listboxquerymodestelotocrackcalendrier dynamiquekeno