REM http://www.microsoft.com/technet/scriptcenter/resources/qanda/dec04/hey1215.mspx REM **************************************** REM Modifier le presse-papier REM **************************************** Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") objIE.document.parentwindow.clipboardData.SetData "text", "Hello This Is A Test" objIE.Quit REM **************************************** REM Recuperer le presse-papier REM **************************************** Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") strURL = objIE.document.parentwindow.clipboardData.GetData("text") objIE.Quit Set objShell = CreateObject("Wscript.Shell") objShell.Run(strURL)