Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Set ExcelApp = New Excel.Application
    Set xldoc = ExcelApp.Workbooks.Open(PCF3 & "\Tool 10-8 Change Order Approval Checklist.xls")
    Worksheets("Questions").Range("C3").Value = UserForm1.TextBox2.Value
    Worksheets("Questions").Range("C7").Value = UserForm1.Textbox1.Value
    Worksheets("Questions").Range("C5").Value = UserForm1.combobox1.Value
    Worksheets("Questions").Range("C4").Value = UserForm1.TextBox6.Value
    Worksheets("Questions").Range("C6").Value = UserForm1.TextBox3.Value
    xldoc.SaveAs Filename:=PCF3 & "\Tool 10-8 Change Order Approval Checklist.xls"
    ExcelApp.Quit
    Set xldoc = Nothing
    Set ExcelApp = Nothing
bug sur la couleur violette, une idée?