Forums XLPages

Tous les messages

« 1 2 3 4 5 ... 852 »
Re: Récupérer une phrase sur un site internet
#11
Régulier XLPages

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.

Alors en farfouillant a droite a gauche j'ai trouvé un code qui fonctionne, bon il fonctionne sur IE mais ça c'est pas grave lol

Et j'ai eu une idée pour contourner tous les problèmes d'identifiants de session et de clique sur des liens javascript.
J'ai tout simplement mis une pause dans le code et je le fais moi-même ^^

 


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 ^^

Hors Ligne
Rapport   Haut 

Re: Récupérer une phrase sur un site internet
#12
Régulier XLPages

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.
Je me rends sur edge je vais sur le site, je clique sur les liens et je copie l'identifiant de session.
J'actualise le code avec cet identifiant et je peux lancer la macro

 

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!!!

Maintenant l'étape suivante c'est de cliquer sur un élément de la page le fameux id=A9

 

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???
Bah ça ne fonctionne pas ^^

je continu de chercher ;)

 

[EDIT]
J'ai tenté quelques getElementByID mais j'ai toujours une erreur au lancement du code
Dans les codes cités au-dessus un ; est à la fin de la ligne "navigate" mais il ne faut pas les mettre sinon ça retourne une erreur également

Edité par Icedarts le 31/05/2023 13:23:56
Hors Ligne
Rapport   Haut 

Récupérer une phrase sur un site internet
#13
Régulier XLPages

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.
La j'ai l'impression qu'il y a un identifiant de session unique qui s'ajoute à l'url a chaque fois il faudrait donc partir de l'accueil du site et cliquer sur différents lien afin d'arriver sur la bonne page

 

www.dl-ligue.com
Puis sur l'id M21 

 

www.zupimages.net/up/23/21/uxgv.jpg
 

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.

Pièce jointe:
xlsx Classeur1.xlsx   [ Taille: 11.77 Ko - Téléchargements: 512 ]
Hors Ligne
Rapport   Haut 

Re: Ouvrir une page web et récupérer les données d'un tableau
#14
Régulier XLPages

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 :

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,

 

Bonjour,

 

J'essaie de poster ici car je n'arrive pas a créer de sujet.
Il y a un problème avec le forum?

Hors Ligne
Rapport   Haut 

ListBox en cascade
#15
Aspirant XLPages

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

Hors Ligne
Rapport   Haut 

Re: Modification Caisse enregistreuse
#16
Aspirant XLPages

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

Hors Ligne
Rapport   Haut 

Modification Caisse enregistreuse
#17
Aspirant XLPages

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

 

Pièce jointe:
xlsm caisse2.xlsm   [ Taille: 116.86 Ko - Téléchargements: 183 ]
Hors Ligne
Rapport   Haut 

Re: Ouvrir une page web et récupérer les données d'un tableau
#18
Régulier XLPages

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.

Hors Ligne
Rapport   Haut 

Re: Ouvrir une page web et récupérer les données d'un tableau
#19
Webmestre

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,

Pièce jointe:
xlsm PourIcedarts2.xlsm   [ Taille: 23.35 Ko - Téléchargements: 229 ]

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Supprimer les espaces d'une cellule
#20
Régulier XLPages

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?
Tu mets dans la première cellule un espace et dans la seconde tu remplaces par rien.
Tu fais remplacer tout et terminé non?

Hors Ligne
Rapport   Haut 

« 1 2 3 4 5 ... 852 »