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
|
Dim XlApp As Object
Dim XlBook As Object
Dim Sheet1 As Object
Dim Sheet2 As Object
Dim DernLig As Integer
Dim Msg As String
Set XlApp = CreateObject("Excel.Application")
Set XlBook = XlApp.Workbooks.Open("D:\Test1.xlsx")
Set Sheet1 = XlBook.Worksheets(1)
Set Sheet2 = XlBook.Worksheets(2)
XlApp.Visible = True
On Error Resume Next
DernLig = Sheet2.Range("G65536").End(xlUp).Row
Sheet1.Select
XlBook.Sheets(1).Range(Cells(1, 1), Cells(5, 3)). _
Font.Italic = True
If Err.Number <> 0 Then
Msg = "Erreur : " & Str(Err.Number) & "générée par " _
& Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Erreur", Err.HelpFile, Err.HelpContext
Err.Clear
End If
XlBook.Close
XlApp.Quit
Set XlApp = Nothing
Set Sheet1 = Nothing |
Partager