Changement de focus d'application en VBA (Court, mais intense)Résolu

Question

Voici mon probl&#232;me,

Tout cela en VBA

Je veux pouvoir changer d'application, puis revenir sous word pour y coller les donn&#233;es r&#233;cuper&#233;s.

J'ai r&#233;cuper&#233; une script VBS qui fait exactement ce que je veux mais je n'arrive pas &#224; le faire fonctionner, je pense que vous savez peut &#234;tre pourquoi.

Set obj_ie = CreateObject("InternetExplorer.Application")   
obj_ie.Navigate("about:blank")
Set obj_wsh = WScript.CreateObject("WScript.Shell") 

Cela fait je r&#233;cup&#232;re les donn&#233;es en faisant de la facon suivante :

obj_wsh.SendKeys "{TAB}^c"
str_character = obj_ie.document.parentwindow.clipboardData.GetData("text") 

Ca fonctionne parfaitement dans mon VBS, mais pas en VBA, le premier probl&#232;me ce situe &#224; ce niveau la : 
Set obj_wsh = WScript.CreateObject("WScript.Shell")

Sinon autre question, seriez vous comment faire pour lancer un script VBS depuis Word, la commande shell() ne semble pas vouloir fonctionner avec l'extension .VBS

Merci d'avance aux bonnes ames qui pourront m'aider !!

cs_Warning · Accepted Answer

Essai de remplacer 
Set obj_wsh = WScript.CreateObject("WScript.Shell")

Par
Set obj_wsh = CreateObject("WScript.Shell")

ou
Set obj_wsh = CreateObject("Shell")

Parce qu'en fait WScript n'est utilis&#233; que par les scripts vbs ou js.


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

cs_Warning · Answer

Sinon tu peux encore remplacer directement:
Set obj_wsh = WScript.CreateObject("WScript.Shell") 
obj_wsh.SendKeys "{TAB}^c"

par :
SendKeys "{TAB}^c"

Car sendkeys est deja implement&#233; dans VB et VBA.


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

cs_Keliah · Answer

Merci pour ton aide, en effet cela fonctionne directemement.

J'ai maintenant un dernier probl&#232;me au niveau de la r&#233;cup&#233;ration de donn&#233;e :

Je voudrais pouvoir stocker dans une variable ce que je r&#233;cup&#232;re  en faisant un SendKeys "{TAB}^c"

Malheuresement je n'arrive pas &#224; utiliser le clipboard de Word...

J'ai trouv&#233; cette ligne, mais cela ne fonctionne pas, visiblement il faut que je d&#233;clare un objet mais je ne sais pas comment m'y prendre...

str_character = Clipboarddata.GetDataObject.GetData(DataFormats.Text).ToString()

Merci d'avance pour ceux qui auront une id&#233;e :)

cs_Warning · Answer

tu met cette fonction quelque part apr&#232;s ta procedure:
Public Function GetOffClipboard() As Variant
    Dim MyDataObj As New DataObject
    MyDataObj.GetFromClipboard
    GetOffClipboard = MyDataObj.GetText()
End Function

puis tu l'utilise dans ta procedure:
str_character 
 = CStr(GetOffClipboard)


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

Changement de focus d'application en VBA (Court, mais intense)

4 réponses

Discussions similaires