Bonjour à tous,

j'aimerais vous demander de l'aide si possible bien sûr.

Je viens de commencer à mettre en place un tableau de bord sur excel (cf. le fichier joint) et que je souhaite partager avec l'équipe de direction sous forme page web.

Le souci pour moi c'est que si je suis sur excel, je peux faire le choix suivant le segment que j'ai mis en place à partir du TCD mais dès que c'est sur la page web, le segment est figé et je ne peux plus selectionner la période.

Est-il possible de remedier à cela?

Aider moi s'il vous plaît.

Bonjour Eric,

désolé de mon retour tardive, cijoint le fichier

Bonjour Nalisoa

Toujours pas de fichier 

Cela vient peut-être des spécifications :

Taille maximum du fichier: 350K;  Extensions autorisées: zip xls xlsx xlsm xlt xltx xltm xla xlam

et ne pas oublier de cliquer sur le bouton : Télécharger"  

A+

Eric

Bonjour Eric, 

merci pour ton retour,

Je te prie de trouver ci-joint le fichier

Bonjour et bienvenue Nalisoa

Désolé, mais ta demande n'est pas très claire

Avec un fichier ce serait peut-être plus facile pour nous.

A+

Eric

Bonjour à tous,

je sollicite votre aide sur mon projet.

En effet, j'ai un fichier excel et je souhaite mettre un cligntement sur des cellules selon des règles ou formules dépendant des dates sur d'autres colonnes.

Au départ, j'ai utilisé les formes conditionnelles et cela a bien a marché, sauf que mon responsable souhaite que les dates en retard de traitement clignote directement.

Je vous explique un peu:

*Prenons le cas de la colonne H (date annonce embauche RH à IT et formation et responsable entité), la date doit être à J-1 de la colonne I (date d'embauche) pour les employés qui passent en formation et à J-5 pour les employés qui ne passent pas la formation. (c'est déjà un obstacle pour moi).

Ainsi, la cellule doit clignoter en rouge si:

Pour un employé en formation: la date d'annonce de son embauche est réalisé entre J-1 et J( J-1 pas compris)

Pour un employé pas en formation: la date d'annonce de son embauche est réalisé entre J-4 et J(J-4 y compris).

pour les autres colonnes, les règles sont en haut, mais je penses être capable de dupliquer.

Le fichier est en PJ

merci pour votre aide précieuse

Bonjour,

Y a-t-il des nouvelles concernant un éventuelle nouveau fichier Géocontacts?

J'ai utilisé le fichier tous un moment (merci à David84) et cela m'a été très utile.

Je ne sais pas s’il y a des alternatives à ce fichier ?

Merci d'avance.

Bâv

PS: je suis flamand et j’espère que mon français n'est pas catastrophique.

Grosse amélioration du code.

Sub recup()
    Dim driver As WebDriver
    Dim LeftFrame As WebElement, Lien As WebElement
    Dim Championnat As WebElement, NumEquipe As WebElement, NumJoueur As WebElement
    Dim btnConsult As WebElement, btnValider As WebElement, Res As WebElement
    Dim i As Long, Infos() As String
    Set driver = New WebDriver
    driver.Edge "D:\OneDrive\Bureau\webdriver\msedgedriver.exe"
    driver.OpenBrowser
    driver.SetTimeouts 30000, 30000, 10000
    driver.NavigateTo "www.dl-ligue.com"
    driver.MaximizeWindow
    Set LeftFrame = driver.FindElement(name, "leftframe")
    driver.SwitchToFrame LeftFrame
    Set Lien = driver.FindElement(ID, "M21")
    Lien.Click
    Set btnConsult = driver.FindElement(ID, "A9")
    btnConsult.Click
    Set Championnat = driver.FindElement(ID, "A1")
    Set NumJoueur = driver.FindElement(ID, "A2")
    Set NumEquipe = driver.FindElement(ID, "A3")
    Set btnValider = driver.FindElement(ID, "A4")
    Set Res = driver.FindElement(ID, "tzA5")
    Championnat.SendKeys "Indiv"
    On Error Resume Next
    For i = 1 To 200
        NumJoueur.Clear
        NumJoueur.SendKeys CStr(Cells(i, 1).value)
        btnValider.Click
         If InStr(1, Res.GetText, "%1") Then
            Debug.Print CStr(NumJoueur.GetProperty("value")), " : ", " - "
         Else
            Infos = Split(Res.GetText, vbCrLf)
            Debug.Print CStr(NumJoueur.GetProperty("value")) + " : " + _
            Infos(0) + " -> " + Infos(1)
         End If
    Next i
    On Error GoTo 0
    Application.Wait Now() + TimeValue("00:00:2")
    driver.MinimizeWindow
    driver.CloseBrowser
    driver.Quit
    Set driver = Nothing
 
 
End Sub

mais la il a fallu installer selenium et le webdriver d'edge.

ça vient bon!!!

Plus que l'étape de la récupération des données en feuil2

Bonjour a tous,

Je suis arrivé a mes fins mais je bloque sur quelque chose
Je récupère les données dans la fenetre execution de l'éditeur VBA ça pourrait le faire si on pouvait y mettre énormément de ligne lol
La je suis bloqué à une centaine de numéro car le résultat est sur 2 lignes.

Bref pas pratique.

Si je pouvais récupérer ça dans la feuille 2 du classeur ça serait top.

Merci d'avance pour l'aide

Sub recup()
    Dim IE As Object
    Dim IEdoc As Object, Res As Object
    Dim DOCelement As Object, FrameLeftDoc As Object
    Dim Championnat As Object, NumEquipe As Object, btnValider As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate ("www.dl-ligue.com")
    WaitIE IE
    Set IEdoc = IE.document
    Set FrameLeftDoc = IEdoc.frames("leftframe").document
    Set DOCelement = FrameLeftDoc.All("M21")
    DOCelement.Click
    WaitIE IE
    Set IEdoc = IE.document
    Set FrameLeftDoc = IEdoc.frames("leftframe").document
    Set DOCelement = FrameLeftDoc.All("A9")
    DOCelement.Click
    WaitIE IE
    Set IEdoc = IE.document
    Set Championnat = IEdoc.All("A1")
    Championnat.Value = "2"  'Choix menu déroulant
    
Dim Derlig&
Derlig = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To Derlig
    If Cells(i, 1) Then
        With DOCelement
            Set DOCelement = IEdoc.getElementsByName("A3").Item
            DOCelement.Value = Cells(i, 1).Text
            Set btnValider = IEdoc.All("A4")
            btnValider.Click

    
            WaitIE IE
            Application.Wait Now() + TimeValue("00:00:01")
            Set Res = IEdoc.All("tzA5")
            Debug.Print Res.innerText
        End With
    End If
Next i
 
If Cells(i, 1) <> "" Then MsgBox ("Traitement terminé !")
        



    
    If Cells(L + 1, 1) <> "" Then MsgBox ("Traitement terminé !")
    
    Application.Wait Now() + TimeValue("00:00:10")
    IE.Quit
    Set IE = Nothing
End Sub

Sub WaitIE(IE As Object)
   'On boucle tant que la page n'est pas totalement chargée
   Do Until Not IE.Busy And IE.readyState = 4
      Application.Wait Now() + TimeValue("00:00:01")
      DoEvents
   Loop
End Sub

J'ai encore avancé un peu mais la je bloque.

 

Sub test()

    Dim IE As Object
    Dim IEdoc As Object
    Dim DOCelement As Object
    Static L As Long

    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

    If Cells(1, 1) Then L = 0
        L = L + 1
        With DOCelement
        Set DOCelement = IEdoc.getElementsByName("A3").Item
        DOCelement.Value = Cells(L, 1).Text
        Set DOCelement = IEdoc.getelementsbytagname("button")(12)
        DOCelement.Click
        End With
 
    If Cells(L + 1, 1) <> "" Then MsgBox ("Traitement terminé !")

    Set IE = Nothing

End Sub

Sub pause()
      Application.Wait Now() + TimeValue("00:00:10")
End Sub

Je n'arrive pas a faire comprendre à la macro qu'après avoir testé le numéro en A1 il faut qu'elle passe à A2 puis A3 etc etc jusqu'à ce que la colonne soit vide.
La elle fait A1 et j'ai le message "traitement terminé"