Sub test() On Local Error Resume Next Dim oExcel As Object Dim oBook As Object Dim sFileName As String Dim sFilePath As String With Session .WaitForEvent rcEnterPos, "30", "0", 20, 20 .WaitForDisplayString "RESPONSE:", "30", 20, 10 .TransmitANSI "SC" sFileName = Trim$(.GetDisplayText(4, 11, 19)) End With Set oExcel = GetObject(, "Excel.Application") If Nothing Is oExcel Then Set oExcel = CreateObject("Excel.Application") End If On Local Error GoTo 0 oExcel.Visible = True Set oBook = oExcel.Workbooks.Open(fileName:="C:\suivi CEN.xls") oBook.ActiveSheet.Range("B16").Value = sFileName sFilePath = "C:" & sFileName & ".bmp" SaveDisplay rcGraphicsAndText, rcOverwrite, sFilePath, rcBitmapColor, rcBlackBkgrnd End Sub
With Session Dim path As String path = "G:\Recines\rafting\1- Administration\10- Plan\2-suivi\fichesCN" & Clipboard.GetText & ".bmp" SaveDisplay rcGraphicsAndText, rcOverwrite, path,BitmapColor, rcBlackBkgrnd End With
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionFunction GetClipboardText Set objHTML = CreateObject("htmlfile") GetClipboardText = objHTML.ParentWindow.ClipboardData.GetData("text") End Function