Discussion :

[tomy7]

non c est vrai ...

mais je veux pas trop alourdir mon sub ...

le code pour verifier les répertoire créer par mkdir est long?

mais je verfie l existence avec des msgbox ... mais si tu as un code pr traité ça autrement cela m interesse...

je ne leve pas d erreur 76 ...
je bug sur set ans = fso.getfolder (way)

[tomy7]

sa fonctionne tres bien comme sa :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
label111:
    Set WordApp = New Word.Application
    Set Worddoc = WordApp.Documents.Open(PCF4 & "\Tool 10-7 Change Control Notice.doc")
    Worddoc.Bookmarks("ProjectName").Range.Text = UserForm1.TextBox3.Value
    Worddoc.Bookmarks("ProjectManager").Range.Text = UserForm1.combobox1.Value
    Worddoc.Bookmarks("CustomerName").Range.Text = UserForm1.TextBox2.Value
    Worddoc.Bookmarks("ProjectNumber").Range.Text = UserForm1.TextBox1.Value
    Worddoc.Save
    WordApp.Quit
    Set wordoc = Nothing
    Set WordApp = Nothing
 
    Set ExcelApp = New Excel.Application
    Set xldoc = ExcelApp.Workbooks.Open(PCF3 & "\Tool 10-8 Change Order Approval Checklist.xls")
    xldoc.Worksheets("Questions").Range("C3").Value = UserForm1.TextBox2.Value
    xldoc.Worksheets("Questions").Range("C7").Value = UserForm1.TextBox1
    xldoc.Worksheets("Questions").Range("C5").Value = UserForm1.combobox1.Value
    xldoc.Worksheets("Questions").Range("C4").Value = UserForm1.TextBox6.Value
    xldoc.Worksheets("Questions").Range("C6").Value = UserForm1.TextBox3.Value
    xldoc.Save
    ExcelApp.Quit
    Set xldoc = Nothing
    Set ExcelApp = Nothing

mais j ai peur que sa ramme bcp qd je remplirai bcp plus de doc !
qu'en penses tu Ouskel'nor?
J'aimais bien aussi ton autre méthode mais je pige pas pk elle bloc!