error9 subscript out of range

Code:

---

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?

Ce qui veut dire "L'indice n'appartient pas à la sélection"... donc, soit tu as une erreur dans le nom de la feuille soit dans le nom du Textbox, peut-être même de l'userform.

j ai deja du texte dedans je me demande si ça vient pas de la?

merci de ta présence..."même si je ne lis pas" ... lol

quand je mets worksheets("Questions")

questions est le nom de la feuille qui est représenté sur l'onglet...

serai t il pas mieu que je remplace Worksheets("Questions") par sheet1?

Code:

---

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

---

Ça ne changerait rien. Mais en relisant, je vois une bonne raison pour que tu aies un pb. Teste ça :

Code:

---

1 2 3 4

Set xldoc = ExcelApp.Workbooks.Open(PCF3 & "\Tool 10-8 Change Order Approval Checklist.xls") DoEvents 'laisse au système le tps d'ouvrir ton fichier xldoc.Worksheets("Questions").Range("C3").Value = UserForm1.TextBox2.Value ... Idem

---

Tu as utilisé une instance du classeur que tu n'utilises pas pour ta feuille de calculs. Donc ta macro cherche la feuille dans le classeur contenant la macro.
A+

Tu désignes la feuille ("Questions") mais pas le classeur. Utilise "With"

Cela donnerait ça :

Code:

---

1 2 3 4

with xldoc .Worksheets("Questions").Range("C3").Value = UserForm1.TextBox2.Value [etc...] end with

---

Perso, comme ça je n'ai pas d'erreur...

Salut.

en effet... tu as completement raison j ai oublié le xldoc. devant workbooks("Questions").....



merci ouskel'nor