Re: Récupérer une phrase sur un site internet | ||
---|---|---|
Inscription: 02/10/2008
Messages:
56
Système d'exploitation: PC Version Excel utilisée: 365 |
Posté le : 31-05-2023 21h31
Grande avancée aujourd'hui.
Sub test() Dim IE As Object Dim IEdoc As Object Dim DOCelement As Object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.Navigate ("www.dl-ligue.com") Call pause Do Until IE.ReadyState = 4 DoEvents Loop Set IEdoc = IE.document Set DOCelement = IEdoc.getElementsByName("A3").Item DOCelement.Value = "48001" Set DOCelement = IEdoc.getelementsbytagname("button")(12) 'Forms(0) DOCelement.Click Set IE = Nothing End Sub Sub pause() Application.Wait Now() + TimeValue("00:00:10") End Sub Prochaine étape dire à la macro de prendre les valeurs pour "A3" dans la première colonne de la première feuille du classeur et de les tester un par un puis de copier coller le résultat dans la première colonne de la feuille 2.
Ça ne va pas être une mince affaire ^^ |
|
![]() |
![]() ![]() |
Re: Récupérer une phrase sur un site internet | ||
---|---|---|
Inscription: 02/10/2008
Messages:
56
Système d'exploitation: PC Version Excel utilisée: 365 |
Posté le : 31-05-2023 11h38
J'avance un peu ^^
J'ai réussi a contourner le problème de l'identifiant de session.
Sub Excel_Pratique() navigate = "www.dl-ligue.com/DL-ligue/menu_CDF/1BEAAJ_V2xEMAA" Shell ("C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe -url " & navigate) End Sub Ça fonctionne parfaitement bien youhou!!!
J'ai essayé ça Sub Excel_Pratique() navigate = "www.dl-ligue.com/DL-ligue/menu_CDF/mAYAAPkG4hEGAA" Shell ("C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe -url " & navigate) Dim element As WebElement Set element = FindElementByID("A9") element.Click End Sub Et vous savez quoi??? je continu de chercher ;)
[EDIT]
Edité par Icedarts le 31/05/2023 13:23:56
|
|
![]() |
![]() ![]() |
Récupérer une phrase sur un site internet | ||
---|---|---|
Inscription: 02/10/2008
Messages:
56
Système d'exploitation: PC Version Excel utilisée: 365 |
Posté le : 30-05-2023 17h26
Bonjour,
Il y a quelques années (25 c'est quelques non? ^^), j'avais fait une demande (la première y en a eu d'autres après) pour la récupération de données sur un site internet. Mais tout à changé et si à l'époque j'avais réussi a bidouiller quelques bricoles ce n'est vraiment plus le cas maintenant.
Déjà à l'époque je pouvais donner le lien de la page directement et c'était bon.
www.dl-ligue.com
Ce qui nous amène sur une nouvelle page ou il faudrait cliquer sur l'id A9 www.zupimages.net/up/23/21/q08v.jpg
On arrive enfin sur la page qui nous intéresse. Sur le name A1 il faudrait sélectionner la value 2 www.zupimages.net/up/23/21/4m83.jpg
Dans le name A3 il faudrait mettre le premier numéro de la colonne A du classeur Valider en cliquant sur le bouton id A4
www.zupimages.net/up/23/21/dco6.jpg www.zupimages.net/up/23/21/8rn6.jpg
Et dans la feuille 2 du classeur récupérer le numéro et le message correspondant qui s'affiche (id tzA5) www.zupimages.net/up/23/21/qywc.jpg
Si le numéro n'existe pas un pop up s'ouvre en indiquant que le numéro n'est pas trouvé www.zupimages.net/up/23/21/7gc2.jpg
Quand on le valide on obtient cela www.zupimages.net/up/23/21/bgm0.jpg
La ce n'est pas nécessaire de le récupérer mais ça serait assez simple de filtrer ce résultat et de le supprimer dans la page 2 du classeur.
J'espère avoir été assez clair et que tu pourras, comme à l'époque, me faire quelque chose de génial ^^
Merci d'avance.
PS: Désolé pour les liens des images je n'ai pas trouvé comment faire autrement. |
|
![]() |
![]() ![]() |
Re: Ouvrir une page web et récupérer les données d'un tableau | ||
---|---|---|
Inscription: 02/10/2008
Messages:
56
Système d'exploitation: PC Version Excel utilisée: 365 |
Posté le : 25-05-2023 11h47
Citation : myDearFriend! a écrit :
Bonjour,
J'essaie de poster ici car je n'arrive pas a créer de sujet. |
|
![]() |
![]() ![]() |
ListBox en cascade | ||
---|---|---|
Inscription: 19/11/2011
Messages:
21
Système d'exploitation: PC Version Excel utilisée: 2010 |
Posté le : 04-05-2023 20h14
Bonjour à tous depuis quelques temps je bataille pour un petit projet je voudrais réaliser ceci à partir de de ma feuille"BD" Mes données sont: Dans la colonne A à partir de A2 jusqu'à A4 Dans la colonne C de C2 à C6 Dans la colonne E de E2 à E59 les cellules qui doivent etre "reliées ensembles sont : Pour A2 la plage de cellule C2: C5 Pour A3 la plage de cellule C5 Pour A4 la plage de cellule C6: C9 Pour la listbox3 C2 la plage de cellule E2:E9 C3 la plage de cellule E10: E16 C4 la plage de cellule E17: E18 C5 la plage de cellule E19: E33 C6 la plage de cellule C45 C7 la plage de cellule E48: E49 C8 la plage de cellule E50: E59 C9 la plage de cellule E34: E43 Le but serait d'afficher par exemple Je selectionne la valeur qui correspond à A2 dans la listbox1 la listbox2 se remplie avec les valeurs des cellule C2: C5 , si je selectionne sur listbox2 la valeur de C5 la listbox3 se remplie avec les valeurs des cellules E19: E33 Quelqu'un a une idée Merci à tous |
|
![]() |
![]() ![]() |
Re: Modification Caisse enregistreuse | ||
---|---|---|
Inscription: 19/11/2011
Messages:
21
Système d'exploitation: PC Version Excel utilisée: 2010 |
Posté le : 21-04-2023 18h59
modifications effectuées |
|
![]() |
![]() ![]() |
Modification Caisse enregistreuse | ||
---|---|---|
Inscription: 19/11/2011
Messages:
21
Système d'exploitation: PC Version Excel utilisée: 2010 |
Posté le : 17-04-2023 17h01
Bonjour à tous J'aimerais modifier mon petit calculateur afin que dans la listBox1 il s'affiche 2 infos supplémentaires Actuellement quand je saisie un article il ne s'affiche que la désignation et la quantité . Je n'arrive pas à y afficher à la suite son prix et le total (prix x quantité) sur la ligne puis passer à la suivante. Un autre souci que je rencontre mais que je n'arrive pas à résoudre c'est de supprimer un article déjà saisie (par erreur) et de refaire un calcul du nouveau montant J'ai bricolé avec la saisie négative de l'article erroné mais c'est pas top Si quelqu'un à quelques pistes je suis preneur Merci
|
|
![]() |
![]() ![]() |
Re: Ouvrir une page web et récupérer les données d'un tableau | ||
---|---|---|
Inscription: 02/10/2008
Messages:
56
Système d'exploitation: PC Version Excel utilisée: 365 |
Posté le : 07-03-2023 21h14
Merci beaucoup c'est parfait. |
|
![]() |
![]() ![]() |
Re: Ouvrir une page web et récupérer les données d'un tableau | ||
---|---|---|
Inscription: 18/05/2006
De Saône-et-Loire (71)
Messages:
1539
Système d'exploitation: PC Version Excel utilisée: 97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365 |
Posté le : 07-03-2023 21h08
Bonsoir Icedarts, le Forum,
En modifiant une partie du code précèdent comme suit (en rouge), ça devrait suffire pour répondre à cette nouvelle demande : 'Complétude du tableau With Sheets("Données") For L = 1 To NbLignTab For C = 0 To NbColTab With .Cells(Lmax + L + 1, C + 1) .Value = TabDoc.Rows(L).Cells(C).innerText If C = NbColTab Then .Offset(0, 1).Value = vTabLiens(Lnk, 2) End If End With Next C Next L End With En pièce jointe, le code en action.
Bien cordialement, Didier_mDF
![]() Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
![]() |
![]() ![]() |
Re: Supprimer les espaces d'une cellule | ||
---|---|---|
Inscription: 02/10/2008
Messages:
56
Système d'exploitation: PC Version Excel utilisée: 365 |
Posté le : 07-03-2023 17h01
Et simplement avec controle H? |
|
![]() |
![]() ![]() |