DEL).

Version imprimable

Bonjour,

Alors voici ma question, j'ai mis en place un p'ti script sous VBA Excel qui va rappatrier les données d'un site (plusieurs en fait..) sous excel. Ce script fonctionne tres bien. SAUF! quand mon PC est verrouillé (CTRL+ALT+DEL). :roll:

En fait, j'aimerais faire tourner ce script une fois par jour, quand je ne suis pas la (et donc PC verrouillé).

Le script est a base d'Objets Shell.application, InternetExplorer.application, sendkeys (copier/coller)..etc...

J'ai l'impression que le probleme vient du selectall/copier/coller en sendkey.

Voici un exemple de code..
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Application.Wait Now + 2 / 3600 / 24 Set IE = CreateObject("internetexplorer.application") Application.Wait Now + 2 / 3600 / 24 IE.Visible = False IE.Navigate ("http://www.yahoo.fr") Do While IE.Busy Application.Wait Now + 0.1 / 3600 / 24 Loop 'Copie les données Application.Wait Now + 2 / 3600 / 24 Application.SendKeys "^a^c" Application.Wait Now + 2 / 3600 / 24 IE.Quit Sheets(1).Select Range("A1").Select Application.SendKeys "^v"
Je repete ce script fonctionne tres bien lorsque mon PC est deverrouillé.

Si vous avez une idée, parce que la, je seche .. :cry:
Des idées quant à la maniere de faire les choses, voir aussi avec mes propriétés utilisateur (je ne suis pas admin de mon PC par ex.)..etc..etc..

Bref, merci ;)

Si tu perds le focus de ta fenetre, il y a des chances que les sendkeys ne fonctionnent pas.
Utilise plutot execWB :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
    Dim ie As New InternetExplorer
    'ie.Visible = True
    ie.navigate "http://tonurl.com/"
    Do While ie.ReadyState <> 4
    Loop
    Do While ie.document.ReadyState <> "complete"
    Loop
    Call ie.document.body.Focus
    Call ie.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER)
    Call ie.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER)
 
    Feuil1.Paste Feuil1.[a1]
    ie.Quit
End Sub

Cela fonctionne si tu as déclaré la référence "Microsoft Internet Controls"
Sinon :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
    Set ie = CreateObject("InternetExplorer.Application")
    'ie.Visible = True
    ie.navigate "http://tonurl.com/"
    Do While ie.ReadyState <> 4
    Loop
    Do While ie.document.ReadyState <> "complete"
    Loop
    OLECMDID_SELECTALL = 17
    OLECMDEXECOPT_DONTPROMPTUSER = 2
    OLECMDID_COPY = 12
    Call ie.document.body.Focus
    Call ie.execWB(OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER)
    Call ie.execWB(OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER)
 
    Feuil1.Paste Feuil1.[a1]
    ie.Quit
    Set ie = Nothing
End Sub

08/03/2007, 06h54
Rippey67

Ok merci dadavyvy,

J'vais essayer ca, j'te tiens au courant...
08/03/2007, 08h51
Rippey67

Ok, ca a l'air de pas mal fonctionner les URL type web (html, php and co.)

Par contre, je complique un peu ...

Avec les URLs de type http://***/*.pdf (donc acrobat), il semblerait que le SELECTALL / COPY ne fonctionne pas.. pourtant j'ouvre bien mon fichier sous IE (avec un appel a Acrobat reader). Comment dire a Internet explorer de faire un SelectAll/Copy du fichier PDF ?

Je ne veux pas le code source car illisible, je voudrais le resultat "ecran" (il n'y a pas d'image, deja ca d'pris .. :D )