erreur sur remplissage de doc word par excel

**tomy7** · 10/03/2008, 09h30

Bonjour j ai une erreur assez critiques que mon pc ne digère pas de trop .

je joins a ce message le type d'erreur:Pièce jointe 26805

mon code :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Set WordApp = New Word.Application
    Set Worddoc = WordApp.Documents.Open(PCF1 & "\tool4-5.doc")
    With Worddoc
        .Bookmarks("ProjectName").Range.Text = UserForm1.TextBox3.Value
        .Bookmarks("ProjectManager").Range.Text = UserForm1.combobox1.Value
        .Bookmarks("ProjectNumber").Range.Text = UserForm1.TextBox1.Value
    End With
    Worddoc.Save
    WordApp.Quit
    Set Worddoc = Nothing
 
    Set Worddoc = WordApp.Documents.Open(PCF2 & "\tool4-2.doc")
    With Worddoc
        .Bookmarks("ProjectName").Range.Text = UserForm1.TextBox3.Value
        .Bookmarks("ProjectManager").Range.Text = UserForm1.combobox1.Value
    End With
    Worddoc.Save
    WordApp.Quit
    Set Worddoc = Nothing
 
    Set Worddoc = WordApp.Documents.Open(PCF4 & "\Tool 10-7 Change Control Notice.doc")
    With Worddoc
        .Bookmarks("ProjectName").Range.Text = UserForm1.TextBox3.Value
        .Bookmarks("ProjectManager").Range.Text = UserForm1.combobox1.Value
        .Bookmarks("CustomerName").Range.Text = UserForm1.TextBox2.Value
        .Bookmarks("ProjectNumber").Range.Text = UserForm1.TextBox1.Value
    End With
    Worddoc.Save
    WordApp.Quit
    Set Worddoc = Nothing
    Set WordApp = Nothing
 
 
    Set ExcelApp = New Excel.Application
    Set xldoc = ExcelApp.Workbooks.Open(PCF3 & "\Tool 10-8 Change Order Approval Checklist.xls")
    With xldoc
        .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
    End With
    xldoc.Save
    ExcelApp.Quit
    Set xldoc = Nothing
 
    Set xldoc = ExcelApp.Workbooks.Open(PCF9 & "\approved cost budget.xls")
    With xldoc
        .Worksheets("Main").Range("B3").Value = UserForm1.combobox1.Value
        .Worksheets("Main").Range("B4").Value = UserForm1.TextBox6.Value
        .Worksheets("Main").Range("B5").Value = UserForm1.TextBox1.Value
        .Worksheets("Main").Range("W3").Value = UserForm1.TextBox4.Value
        .Worksheets("Main").Range("Z2").Value = UserForm1.TextBox10.Value
        .Worksheets("Main").Range("Z3").Value = UserForm1.TextBox9.Value
    End With
    xldoc.Save
    ExcelApp.Quit
    Set xldoc = Nothing
 
    Set xldoc = ExcelApp.Workbooks.Open(PCF5 & "\Overdracht sales_PM1.xls")
    With xldoc
        .Worksheets("Checklist").Range("D7").Value = UserForm1.combobox1.Value
        .Worksheets("Checklist").Range("D4").Value = UserForm1.TextBox1.Value
        .Worksheets("Checklist").Range("D10").Value = UserForm1.TextBox2.Value
        .Worksheets("Checklist").Range("D5").Value = UserForm1.TextBox3.Value
    End With
    xldoc.Save
    ExcelApp.Quit
    Set xldoc = Nothing
 
    Set ExcelApp = Nothing

merci de votre futur aide

**ouskel'n'or** · 10/03/2008, 10h14

En effet, tu sembles ne pas avoir compris ce que tu fais le code ici

Code :

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

1
2
3
4
5
6
7
    xldoc.Save
'Là, tu fermes l'application
    ExcelApp.Quit 
    Set xldoc = Nothing
 'Et ici tu cherches à ouvrir un fichier dans une application fermée
    Set xldoc = ExcelApp.Workbooks.Open(PCF5 & "\Overdracht sales_PM1.xls")
    With xldoc

Je te laisse corriger où faut-il expliquer le problème ?

Tu dis
A+

**tomy7** · 10/03/2008, 10h17

en effet je me suis peut être trompé

je pensais que wordApp.quit fermait le document word

ma question serai mtn:

faut il que je ferme le doc word et que j en ouvre un autre juste apres ou je les laisse tous ouvert et je les ferme a la fin?

Comment ferai tu toi?

**ouskel'n'or** · 10/03/2008, 10h46

C'est comme tu veux. Tu peux fermer un doc sans fermer l'application, en ouvrir un autre, le laisser ouvert jusqu'à AppQuit... mais tu alourdis ton appli. Pour ce qui me concerne, je les fermerais eu fur et à mesure. Simplement, je ne fermerais pas l'appli entre chaque ouverture

**tomy7** · 10/03/2008, 10h49

pour les fermer tu ferai xldoc.close pour excel
worddoc.close pour word

**ouskel'n'or** · 10/03/2008, 10h49

NB - Simplement un "détail" si tu crées une instance pour le "nouveau" fichier ouvert, elle n'existe plus pour le fichier déjà ouvert. Tu n'auras plus accés à ce fichier. Donc, ferme tes fichiers au fur et à mesure, d'autant que si tu as à écrire dedans, l'instance n'existant plus pour un fichier ouvert précédemment, tu ne pourras pas enregistrer les modifs.

**ouskel'n'or** · 10/03/2008, 10h52

Envoyé par tomy7

pour les fermer tu ferai xldoc.close pour excel
worddoc.close pour word

Par exemple...
Mais pourquoi crées-tu une instance d'Excel si tu travailles dans Excel ? Ou est-ce une autre question ?

**tomy7** · 10/03/2008, 10h55

si tu entends par autre application ceci:

j utilise mon prog excel, je collecte des infos avec ces infos je crée une arborescence de dossier et en fonction d une matrice de checkbox

je colle des fichiers word ou excel ds l'arborescence....
ensuite j ouvre ces fichiers et je les remplies avec les infos collectées....

ces fichiers que j ouvre sont des modèles....

**ouskel'n'or** · 10/03/2008, 11h05

Ok. Je comprends mieux

Si ton pb est résolu... Tu connais

erreur sur remplissage de doc word par excel

Macros et VBA Excel

Discussions similaires

Partager

Partager