Discussion :

[Dali29]

Bonjour,

J'ai fait une macro qui permet d'ouvrir une page html à partir de l'internet explorer et j'arrive pas à faire la copier coller en utilisant SendKeys sachant qu'on travaille sous word.
Merci d'avance.

la partie de code qui permet la copier/coller

Code :

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

1
2
3
4
5
6
7
8
9
 
AppActivate("Internet Explorer")
SendKeys "^a", True
SendKeys "^c", True
SendKeys "^q", True
 
' Je pense qu'il faut changer cette instruction par une autre où on va sélectionner le document word qui est déjà ouvert
AppActivate ("Microsoft Word") 
SendKeys "^v", True

[patricktoulon]

RE
BONJOUR regarde du cote de getobject et ses arguments

[Dali29]

Merci pour votre réponse,

avec la fonction GetObject, on sélectionne un fichier Excel en indiquant son chemin mais comment le sélectionner quand il est ouvert ?

exemple :

Set MyXL = Getobject("c:\vb4\MYTEST.XLS")

[patricktoulon]

re
ben de la meme maniere je suppose

[Dali29]

Excusez moi j'ai pas bien compris

[patricktoulon]

re
exemple

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
Dim wd As Object
 Sub TestWord()
    On Error Resume Next
    Err.Clear
    Set wd = GetObject(, "Word.application")
    If Err.Number = 429 Then
        MsgBox "Word n'est pas lancé": Exit Sub
    ElseIf Err.Number > 0 Then
        MsgBox "Erreur : " & Err.Number & vbCrLf & Err.Description: Exit Sub
    Else
              mess = "Word est déjà lancé" & vbCrLf & "liste des document ouverts"
        For Each doc In wd.Documents
        i = i + 1
        mess = mess & vbCrLf & doc
        Next
    End If
    MsgBox mess
    On Error GoTo 0
End Sub