bug sur la couleur violette, une idée?
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
Partager