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
| Sub Hotmail()
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim Doc As HTMLDocument
Dim UrlPageContact As String
Dim ElemCheck As HTMLElementCollection
Dim ElemCheckbox As IHTMLElementCollection
IE.Visible = True
IE.navigate ("https://login.live.com")
WaitIE IE
'Arrête le code pour te permettre de te logger (je ne reprend pas le code de log)
Stop 'une fois loggé, il suffit de revenir ici et de relancer l'exécution de la macro (F5)
IE.navigate "https://outlook.com/"
Stop 'aller sur contact
WaitIE IE
Set Doc = IE.document
'Ensuite ca se complique...
'Les données sont contenu dans une frame, dont le contenu n'est pas accessible
'Voila ce que j'ai trouvé pour contourer le problème
'On charge l'URL de la frame (alors je l'ai trouvé avec l'inspecteur d'objet de chrome, pas vu avec IE)
'Il faut modifier l'url de départ pour en supprimer un bout (/default.aspx?id=64855&owa=1&owasuffix=owa%2f#!)
'On crée la racine
UrlPageContact = "https://snt002.mail.live.com/mail/contacts.mvc?n="
'Et on prend la clé
UrlPageContact = UrlPageContact & Right(Doc.URL, Len(Doc.URL) - InStr(1, Doc.URL, "?n=") - 2)
'On charge la page
IE.navigate UrlPageContact
WaitIE IE
'Un essai
Set ElemCheckbox = Doc.getElementsByClassName("CL_Checkbox_Div") |
