Bonjour,

Voila en vue de mon projet de stage, j'upload un fichier .doc a partir de l'Intranet de la société. Je cherche alors le moyen de sauvegarder ce document sur mon poste. Pour cela je pensais utiliser un SENDKEYS "^{S}" pour lancer la boite "Sauvegarder sous...".

Cependant je me se rendus compte que le SENDKEYS ne s'effectuait passur Word mais plutot sur IE ou même sur l'editeur VBA, je ne sais pas trop. J'aurais donc aimé savoir comment dire à Excel de réaliser la simulation de touche sous Word.

Ci-dessous le code que j'utilise. Où S est la page ou je trouve le fichier word.
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 IE_dl2(S As String)
'nécéssite d'activer la référence Microsoft HTML Objects Library
'nécéssite d'activer la référence Microsoft Internet Controls
 
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate S
 
Dim x As Integer
 
Sleep 3000
Set maPageHtml = IE.document
 
For x = 0 To maPageHtml.Links.Length - 1
    ext = Right(maPageHtml.Links(x), 3)
    If ext = "pdf" Then
        maPageHtml.Links(x).Click
        Sleep 1000
        SendKeys "+^{S}", 1
        Sleep 1000
        SendKeys "^{X}"
        Sleep 1000
        SendKeys ThisWorkbook.Path, 1
        Sleep 500
        SendKeys "{\}"
        Sleep 1000
        SendKeys "^{V}"
        Sleep 1000
        SendKeys "{ENTER}"
    ElseIf ext = "doc" Then
        maPageHtml.Links(x).Click
        'Sleep 1000
        'SendKeys "^{S}"
        'Sleep 1000
        'SendKeys "^{X}"
        'Sleep 1000
        'SendKeys ThisWorkbook.Path, 1
        'Sleep 500
        'SendKeys "{\}"
        'Sleep 1000
        'SendKeys "^{V}"
        'Sleep 1000
        'SendKeys "{ENTER}"
    End If
Next
En esperant une reponse de votre part,

Chipss