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

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

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.

Citation :

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?

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

modifications effectuées

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

Merci beaucoup c'est parfait.

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,

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?