Discussion :

[tomy7]

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?

[ouskel'n'or]

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.

[tomy7]

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

[tomy7]

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 :

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

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[Gilou1958]

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

Cela donnerait ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[tomy7]

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



merci ouskel'nor