Discussion :

[patricktoulon]

Ok plus vite se sera fait plus vite une contribution de Marc ou moi sera faite a ce sujet afin que tout le monde en profite

bon week end

re

EDIT
J'ai quand même tenté.
Ça fonctionne, sauf pour la mise en forme du tableau. En effet, elle est un peu spéciale avec des boutons contenant du texte (du coup, on a des boutons importés mais dont le positionnement n'est pas génial).
Ce que je faisais jusqu'alors, c'était de prendre le texte de chaque cellule concaténé à celui du bouton de la cellule quand il y en a un.

je te règle ca en 3 lignes si tu veux
il suffit de remasteuriser le code
je reviens dans 5 minutes

voila teste celle la

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Sub DemoIEinPrivate()
    Dim temps As Long
    IE$ = CreateObject("WScript.Shell").RegRead("HKCR\Applications\iexplore.exe\shell\open\command\")
    With CreateObject("Shell.Application").Windows
        c& = .Count
        If Shell(Replace(IE, "%1", "-private https://teletubies"), vbNormalFocus) Then
            While .Count = c: Wend
            With .Item(CLng(c))
                If fenetre_securite(10) = True Then    ' pour 10 secondes de delai avant abandon (remplacer 10 par ce qu'on veut slon la tolerance de l'utilisateur )
                    tape_les_touche
                    While .Busy Or .readyState < 4: Wend
                    '............................
                    'explotation du document ici
                    Dim IEdoc As HTMLDocument, ieTable
                    Set IEdoc = .document
                    ieTableouter = IEdoc.getElementsByClassName("tab-workdesk").Item(0).outerHTML    'on trouvele tableau à partir du nom de la classe
                    With CreateObject("htmlfile")
                        .body.innerHTML = ieTableouter
                        For Each elem In .all
                        If elem.tagName = "TD" Then elem.innerHTML = elem.innerText
                        Next
                        faire = .parentWindow.clipboardData.setData("text", .body.innerHTML)
                        With Sheets(1): .Range("A1:Z" & Rows.Count).Clear: .Cells(1, 1).Select: .Paste: End With
                        faire = .parentWindow.clipboardData.clearData("text")
                    End With
                End With
            .Quit
            End With
            '............................
        Else
            MsgBox "temps depassé vérifier le debit "
        End If
        On Error Resume Next
        .Quit
    End With
End If
End With
End Sub

re
Salut mar c
il me viens une réflexion un peu tardive mais un truc qui me chagrine pas dans ton raisonnement mais plutôt dans ta façon de le mettre en application

tu dis effectivement et je suis d'accords avec toi que c'est forcement la dernière fenêtre dans le ".count"

mais alors dans ta mise en application ca n'est pas ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With CreateObject("Shell.Application").Windows
        c& = .Count  'on repere le .count des Windows 
        If Shell(Replace(IE, "%1", "-private https://teletubies"), vbNormalFocus) Then    'on ouvre la fenetre 
            While .Count = c: Wend   ' on boucle tant que le .count est pareil 
            With .Item(CLng(c))  ' et c'est ici que je pige pas C a été instruit avant l'ouverture de ie private ce n'est donc pas le dernier que fait vraiment CLNG 

j'aimerais beaucoup des éclaircissements sur ce point

serait ce parce que le .count démarrerait l'index de la première Windows à 0 je vois que ca comme explication : Est-ce exact????

[Marc-L]

Oui, et je t'ai pourtant indiqué de regarder la ligne n°12 du code du post #17 ! …

[patricktoulon]

bpnjourmarc
lepost#17 c'est yoyof!!

il utilise ceci en ligne 12:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set IE = oShellAppWindows.Item(oShellAppWindows.Count - 1)

mais ca réponds pas a ma question

a savoir pourquoi count-1

1. par ce que le.count fait toujours 1 de plus que le dernier index (normal) donc toi avec C instruit juste avant tu tombe bon forcement
2. ou c'est bien l'avant dernière Windows la bonne en fait

et encore une fois que fait clng pour C ???

[yoyof]

C'est ce que j'ai compris de mon côté. Item "commence à 0"; donc, si count=1, il n'y a qu'une fenêtre et on la retrouve avec Item(0).

[patricktoulon]

re
oui count c'est le nombre de fenêtre si il y en a une c'est 1 mais son index commence a 0

0,1,2,3,4 =count 5

[yoyof]

voila teste celle la

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Sub DemoIEinPrivate()
    Dim temps As Long
    IE$ = CreateObject("WScript.Shell").RegRead("HKCR\Applications\iexplore.exe\shell\open\command\")
    With CreateObject("Shell.Application").Windows
        c& = .Count
        If Shell(Replace(IE, "%1", "-private https://teletubies"), vbNormalFocus) Then
            While .Count = c: Wend
            With .Item(CLng(c))
                If fenetre_securite(10) = True Then    ' pour 10 secondes de delai avant abandon (remplacer 10 par ce qu'on veut slon la tolerance de l'utilisateur )
                    tape_les_touche
                    While .Busy Or .readyState < 4: Wend
                    '............................
                    'explotation du document ici
                    Dim IEdoc As HTMLDocument, ieTable
                    Set IEdoc = .document
                    ieTableouter = IEdoc.getElementsByClassName("tab-workdesk").Item(0).outerHTML    'on trouvele tableau à partir du nom de la classe
                    With CreateObject("htmlfile")
                        .body.innerHTML = ieTableouter
                        For Each elem In .all
                        If elem.tagName = "TD" Then elem.innerHTML = elem.innerText
                        Next
                        faire = .parentWindow.clipboardData.setData("text", .body.innerHTML)
                        With Sheets(1): .Range("A1:Z" & Rows.Count).Clear: .Cells(1, 1).Select: .Paste: End With
                        faire = .parentWindow.clipboardData.clearData("text")
                    End With
                End With
            .Quit
            End With
            '............................
        Else
            MsgBox "temps depassé vérifier le debit "
        End If
        On Error Resume Next
        .Quit
    End With
End If
End With
End Sub

merci Patrick, mais pour le coup je ne retrouve pas le texte des boutons...

[patricktoulon]

re Bonjour yoyof
y a pas de soucis on fait de la même manière pour récupérer le texte des boutons

j'ai juste besoins de savoir si chaque cellule a un bouton ???

faut il séparer les texte des cellules et des bouton par un espace ou tout laisser accroché ???

quoi que!! je fait faire un généraliste plus simple je reviens

[yoyof]

Patrick, c'est là la difficulté: toutes les cellules ne comportent pas de bouton.
Dans le code du post #40, ligne 10, je laisse un espace entre le texte de la cellule et celui du bouton potentiellement présent.

[patricktoulon]

re
ok voila

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
'https://webbies.siemens.fr/Ocapi/ssii/prestations
'exemple yoyof
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal Milliseconds&)
Sub DemoIEinPrivate()
    Dim temps As Long
    IE$ = CreateObject("WScript.Shell").RegRead("HKCR\Applications\iexplore.exe\shell\open\command\")
    With CreateObject("Shell.Application").Windows
        c& = .Count
        If Shell(Replace(IE, "%1", "-private https://teletubies"), vbNormalFocus) Then
            While .Count = c: Wend
            With .Item(CLng(c))
                If fenetre_securite(10) = True Then    ' pour 10 secondes de delai avant abandon (remplacer 10 par ce qu'on veut slon la tolerance de l'utilisateur )
                    tape_les_touche
                    While .Busy Or .readyState < 4: Wend
                    '............................
                    'explotation du document ici
                    Dim IEdoc As HTMLDocument, ieTable
                    Set IEdoc = .document
                    ieTableouter = IEdoc.getElementsByClassName("tab-workdesk").Item(0).outerHTML    'on trouvele tableau à partir du nom de la classe
                    With CreateObject("htmlfile")
                        .body.innerHTML = ieTableouter
                        For Each elem In .all
                            If elem.tagName = "TD" Then
                                codebouton = ""
                                For Each elem2 In elem.all
                                    If elems.tagName = "input" Then codebouton = elem2.Value
                                Next
                                elem.innerHTML = elem.innerText & " " & codebouton
 
                            end if 
                        Next
                            faire = .parentWindow.clipboardData.setData("text", .body.innerHTML)
                            With Sheets(1): .Range("A1:Z" & Rows.Count).Clear: .Cells(1, 1).Select: .Paste: End With
                            faire = .parentWindow.clipboardData.clearData("text")
                        End With
                    End With
                    .Quit
                End With
                '............................
            Else
                MsgBox "temps depassé vérifier le debit "
            End If
            On Error Resume Next
            .Quit
        End With
    End If
End With
End Sub
Function fenetre_securite(TP) As Boolean
    Handle = 0
    T = Timer
    Do
        DoEvents
        Handle = FindWindow(vbNullString, "Sécurité de Windows")
        If Timer - T > TP Then Exit Do
    Loop Until Handle <> 0
    If Handle <> 0 Then fenetre_securite = True
End Function
Function tape_les_touche()
    With CreateObject("wscript.shell")
        Sleep 50: .SendKeys (" monlogin")
        Sleep 100: .SendKeys "{TAB}"
        Sleep 100: .SendKeys ("mon mot de passe ")
        Sleep 100: .SendKeys "{TAB}{TAB}"
        'Sleep 50: .SendKeys "{ENTER}"
    End With
End Function

edit :j'ai oublier de fermer le IF reprends le j'ai corrigé

[yoyof]

Merci; petite question en commentaire dans le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub DemoIEinPrivate()
...
For Each elem In .all
    If elem.tagName = "TD" Then
        codebouton = ""
        For Each elem2 In elem.all
            If elems.tagName = "input" Then nombouton = elem2.Value 'elems et nombouton ou elem2 et codebouton?
        Next
        elem.innerHTML = elem.innerText & " " & codebouton
    end if 
Next
...
End Sub

[patricktoulon]

re
oui j'ai corrigé ca aussi dans le post
des fois je tape tellement vite sans reflechir que j'ecris n'importe quoi

en tout cas tu a compris le principe

elem.innerhtml=elem.innertext :ca t'enlève le code html de l'élément et garde que le innertext comme tu a des éléments dans les éléments on fait pareil pour ses children

reprend le code en entier j'ai corrigé

déplace la ligne 5 "codeboutuon="" "juste d'un cran au-dessus juste en dessous la ligne for

[yoyof]

La ligne 29

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

elem.innerHTML = elem.innerText & " " & codebouton

est à placer avant le Next.

Je poste la version finale (normalement ) un peu plus tard.

[yoyof]

Voilà donc la macro principale dans sa forme finale.
Normalement, elle est suffisamment aboutie comme ça.

Merci Patrick et Marc-L pour votre aide.

A noter que .tagName semble sensible à la casse, d'où le passage de "input" à "INPUT".
J'ai aussi modifié If elem.tagName = "TD" Then en If elem.tagName = "TD" Or elem.tagName = "TH" Then pour éviter que la ligne d'en-tête du tableau ne se trouve sur plusieurs lignes Excel (car il y a des retours chariot dans le code HTML de certaines cellules de la ligne d'en-tête).
Enfin, comme le tableau est pollué par des éléments cachés, j'ai ajouté If elem2.Type <> "hidden" Then pour éviter de voir ces éléments apparaître alors qu'on ne les attend pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub DemoIEinPrivate()
    Dim temps As Long
    IE$ = CreateObject("WScript.Shell").RegRead("HKCR\Applications\iexplore.exe\shell\open\command\")
    With CreateObject("Shell.Application").Windows
        c& = .Count
        If Shell(Replace(IE, "%1", "-private https://le-site-en-question"), vbNormalFocus) Then
            While .Count = c: Wend
            With .Item(CLng(c))
                Dim IEdoc As HTMLDocument, ieTable
                If fenetre_securite(10) = True Then    ' pour 10 secondes de délai avant abandon (remplacer 10 par ce qu'on veut selon la tolérance de l'utilisateur)
                    tape_les_touche
                    While .Busy Or .readyState < 4: Wend
                    '............................
                    'explotation du document ici
                    Set IEdoc = .Document
                    ieTableouter = IEdoc.getElementsByClassName("tab-workdesk").Item(0).outerHTML    'on trouve le tableau à partir du nom de la classe
                    With CreateObject("htmlfile")
                        .body.innerHTML = ieTableouter
                        For Each elem In .all
                            If elem.tagName = "TD" Or elem.tagName = "TH" Then
                                For Each elem2 In elem.all
                                    codebouton = ""
                                    If elem2.tagName = "INPUT" Then
                                        If elem2.Type <> "hidden" Then
                                        codebouton = elem2.Value
                                        End If
                                    End If
                                    elem.innerHTML = elem.innerText & " " & codebouton
                                Next
                            End If
                        Next
                            faire = .parentWindow.clipboardData.setData("text", .body.innerHTML)
                            With Sheets(1): .Range("A1:Z" & Rows.Count).Clear: .Cells(1, 1).Select: .Paste: End With
                            faire = .parentWindow.clipboardData.clearData("text")
                    End With
                    .Quit
                '............................
                Else
                    MsgBox "temps depassé - vérifiez le debit"
                    On Error Resume Next
                    .Quit
                End If
            End With
        End If
    End With
End Sub

Yohann

[patricktoulon]

re


oui c'est vrai j'ai oublié c'est sensible a la classe dans un object("htmlfile" ) tout les balises sont en majuscules contrairement au document dans une page de IE la mise en majuscule se fai automatiquement quand tu place le code html dans l'object

y a pas de quoi
j'en conclu que ma méthode te convient et que tu la comprises

j'en suis ravi
Au plaisir