sauvegarde word depuis excel [Résolu]

[tomy7]

Bonjour j effectue une sauvegarde d un fichier word depuis excel 2003:

pour ceci j utilise deux lignes de code:

Code :

1
2
3
appword.ChangeFileOpenDirectory "D:\My Documents\" & Create_project
 
        appword.ActiveDocument.SaveAs Filename:="big and small label.doc"

Mais j ai un bug, je pense que la synthaxe n ' est pas bonne

Une idee?

merci

[Heureux-oli]

Ce n'est pas dans ces deux lignes que tu as un bug, ces deux lignes sont bonnes.

Es-tu certains de ta variable Create_project c'est la seule source de problème que je pourrais voir.

[tomy7]

oui je suis sur car create a project est ceci:

Code :

1
2
3
4
5
6
T1 = UserForm1.Textbox1 & "_"
    T2 = UserForm1.TextBox2 & "_"
    T3 = UserForm1.TextBox3 & "\"
    New_PROJECT = T1 + T2 + T3
    C1 = UserForm1.combobox1 & "\"
    Create_project = "D:\My Documents\" & C1 + New_PROJECT

et pour etre sur que mon directory est bon je fais:

Code :

MsgBox "D:\My Documents\" & Create_project

le hic c est que je vois pas d ou vient le bug et il plante sur :

Code :

 appword.ChangeFileOpenDirectory "D:\My Documents\" & Create_project

est ce qu il faut que je mette appword, ou appword.activedocument ou encore juste activedocument?

[Heureux-oli]

Essaie l'opérateur de concaténation et pas des plus (+)

Code :

New_PROJECT = T1 & T2 & T3

Et en plus

Code :

Create_project = "D:\My Documents\" & C1 + New_PROJECT

et

Code :

appword.ChangeFileOpenDirectory "D:\My Documents\" & Create_project

Tu as deux fois D:\My Documents\

[tomy7]

ok pour le create project j ai fais la modif et c est vrai que sa devait pas arranger les choses:

apres modif:

Code :

1
2
3
4
5
6
7
8
T1 = UserForm1.Textbox1 & "_"
    T2 = UserForm1.TextBox2 & "_"
    T3 = UserForm1.TextBox3 & "\"
    C1 = UserForm1.combobox1 & "\"
    New_project = C1 & T1 & T2 & T3
 
appword.ChangeFileOpenDirectory "D:\My Documents\" & New_project
        appword.SaveAs Filename:="big and small label.doc"

Mais il bug tjrs au meme endroit!

[Heureux-oli]

C'est ta chaîne qui n'est pas conforme.

Fais un debug.print ou un msgBox sur

Code :

"D:\My Documents\" & New_project

Je pense que c'est de là que vient ton souci.

[tomy7]

je viens de reessayer et j ai placer un MSGBOX pour verifier le directory et c est bon.

[tomy7]

si sa peux aider voici le SUB:

Code :

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
Private Sub Button_OK_Click()
 
    T1 = UserForm1.Textbox1 & "_"
    T2 = UserForm1.TextBox2 & "_"
    T3 = UserForm1.TextBox3 & "\"
    C1 = UserForm1.combobox1 & "\"
    New_project = C1 & T1 & T2 & T3
 
    Dim appword As Object
    Set appword = New Word.Application
    Application.DisplayAlerts = True
    appword.ShowMe
    appword.Visible = True
    appword.Documents.Open Filename:="D:\My Documents\structure\Label\big and small label.doc"
 
    If CheckBox1 Or CheckBox2 Or CheckBox3 Or CheckBox4 Then
        ActiveDocument.Bookmarks("Project_Number1").Range.Text = UserForm1.Textbox1.Value
        ActiveDocument.Bookmarks("Customer_Name1").Range.Text = UserForm1.TextBox2.Value
        ActiveDocument.Bookmarks("Project_Name1").Range.Text = UserForm1.TextBox3.Value
    End If
 
.
.
.
.
msg = " Do you have finished to create labels? "
    ans = MsgBox(msg, vbYesNo)
If ans = vbYes Then
    MsgBox "D:\My Documents\" & New_project
        Unload UserForm3
        Unload UserForm2
        Unload UserForm1
        appword.ChangeFileOpenDirectory "D:\My Documents\" & New_project
        appword.SaveAs Filename:="big and small label.doc"
    End If
 
    If ans = vbNo Then
        appword.ChangeFileOpenDirectory "D:\My Documents\" & Create_project
        appword.SaveAs Filename:="big and small label.doc"
        appword.Quit
    End If
End Sub

[Heureux-oli]

Peux-tu me donner les lignes où tu déclares Word.

[tomy7]

je t ai devance , regarde au dessus.

[Heureux-oli]

La bibliothèque Word doit être déclarée dans ton projet.

Tu as encore un mix de New_Project et Create_Project.

Quel est le message d'erreur ?

[tomy7]

j ai declarer word dans tools> reference il faut que je le fasse ds mon sub aussi?

regarde la piece jointe:
Pièce jointe 25517

[Heureux-oli]

Le répertoire n'existe pas sur ton dique dur.

Il faut le créer.

Code :

MKdir

Mais ce n'est pas tout, tu dois active la gestion d'erreur en plus. Si le répertoire existe, tu lève une erreur 75.

Code :

1
2
3
4
5
6
7
8
9
On Error resume Next
 
MkDir .....
 
If Err.Number = 75 Then
   ....
Else
   MsgBox "Erreur inconnue " & err.number
End if

tu peux aussi te contenter de On Error Resume Next, sans la gérer, mais dans ce cas, si tu lève une autre erreur, tu ne le sauras pas.

[tomy7]

ce sub que je t ai montrer est dans un userform3 sous excel mais ds le Userform1 je fais le Mkdir donc le dossier existe bien a l avance...

l'erreur ne vient pas de la!

comment fais tu pour declarer word ds le sub?

[Heureux-oli]

Ta méthode n'est pas celle que j'utilise, mais la tienne fonctionne.

C'est au niveau du path que tu rencontre ton problème, c'est le message renvoyé, que tu as mis dans ta copie d'écran.

Pour déclarer Word,

Code :

Dim wApp as New Word.application

Ou encore

Code :

1
2
Dim wApp as Word.application
Set wApp = GetObject(,"Word.Application")

ou encore si tu ne déclares pas la bibliothèque

Code :

1
2
Dim wApp as Object
Set wApp = GetObject("WordApplication")

Dans ce cas on se retrouve avec du LateBinding.

[tomy7]

ok donc j ai tjrs le meme prob et je ne sais pas pk.

J ai fais un

Code :

On error Resume NExt

Mais rien ne se passe et je dirai normal puisqu il plante sur
se save as....

[Heureux-oli]

J'ai utilisés une copie de ton code, qui de toute façon est correct et chez moi tout passe.

Essaie sans variables et de mettre le tout en dur pour la sauvegarde, par exemple

Code :

C:\temp\tom\MonFichier.doc

En ayant pris le soin de créer le répertoire avant.

[tomy7]

sa fonctionne depuis chez toi quand tu l execute depuis excel?

je ne comprend pas j ai essayer sous C:\ sous D:\ qui est une autre partition de mon Disc dur sans utiliser new project c est a dire :

Code :

"C:\tom\taratati\"

La je bloc....

[Heureux-oli]

Oui, lancé depuis Excel ou dans Word, les lignes sont bonnes, le seul hic est le chemin que tu donnes.

[tomy7]

je vais essayer apres manger de placer ce code sous word:

Code :

1
2
3
4
5
6
7
msg = " Do you have finished to create labels? "
    ans = MsgBox(msg, vbYesNo)
 
    If ans = vbYes Then
        MsgBox "D:\My Documents\" & New_project
        ActiveDocument.ChangeFileOpenDirectory "D:\My Documents\" & New_project
        ActiveDocument.SaveAs Filename:="big and small label.doc"