Discussion :

[appocallypseman]

voila 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
Private Sub Commande40_Click()
 
    Dim oWord As Word.Application
    Dim Text As String
 
    Set oWord = New Word.Application *
    oWord.Visible = False
    oWord.Selection.TypeText Text:="ceci est un test"
    oWord.ActiveDocument.SaveAs "C:\Documents and Settings\Administrateur\Bureau\essai_creation_doc_word.doc"
 
On Error GoTo Err_Commande40_Click
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
 
Exit_Commande40_Click:
    Exit Sub
 
Err_Commande40_Click:
    MsgBox Err.Description
    Resume Exit_Commande40_Click
 
End Sub

le compilateur me revoie l'erreur " Variable objet ou variable de bloc with non définie " pour la ligne marquée d'une "*".
comment puis-je faire pour arriver à générer ce doc word.

Merci d'avance.

[Domi2]

Bonjour,

Tu as bien référencé la bibliothèque Microsoft Word XX.X Object Library ?

Domi2

[appocallypseman]

oui je suis allé dans Outils->Référence puis j'ai coché microsoft word 9.0.
c pour ça que je ne comprend pas ce qu'il se passe

[Domi2]

Re,

Et comme ceci ?

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
Dim oWord As New Word.Application

Dim Text As String

'Set oWord = New Word.Application * A supprimer
oWord.Visible = False
oWord.Selection.TypeText Text:="ceci est un test"
oWord.ActiveDocument.SaveAs "C:\Documents and Settings\Administrateur\Bureau\essai_creation_doc_word.doc"
'Ne pas oublier de fermer l'instance
oWord.Quit
Set oWord= Nothing


On Error GoTo Err_Commande40_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Commande40_Click:
Exit Sub

Err_Commande40_Click:
MsgBox Err.Description
Resume Exit_Commande40_Click

End Sub

Domi2

[appocallypseman]

le compilateur ne veut vaiment rien savoir il me renvoi kan meme le message d'erreur.
C'est sur cette ligne qu'il me renvoi le message

Code :

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

 Dim oWord As New Word.Application

c'est a dire que la déclaration de l'application word est incomplète

il me dit quand je le fait en debuggage sur "Word.Application" que la variable objet ou variable de bloc with est non définie.

Comment puis-je faire autrement. le but de ma manoeuvre étant, au final, de transformer un Report access en doc word ou excel ou une autre manière de se servir d'un document access et de l'exporter vers word ou autres ...
Si tu as une autre solution je suis prenant. ça fait une semaine ke je galere.

[Domi2]

Bonjour,

Curieux...

Quelle version d'Access, respectivement Word utilises-tu ?

Domi2

[appocallypseman]

la version office 2000 version 9 je croi

[appocallypseman]

jai windows 2000 serveur et c office 2000 premiun

[appocallypseman]

la version c'est bien microsoft word 9.0

[Domi2]

Re,

la version c'est bien microsoft word 9.0

Plutôt Word 2000, dont la référence est bien 9.0.

Le problème vient certainement de là.

Je tenterai de registrer une nouvelle fois le fichier MSWORD.OLB et de recocher la référence.

Domi2

[appocallypseman]

et en francais ça veut dire quoi?

[Domi2]

Re,

Regarde ceci.

Il faut faire une recherche sur ton disque au préalable pour savoir à quel endroit se trouve le fichier MSWORD.OLB. Avec XP, il est dans mon répertoire Office.

Je sais que la référence est présente, mais il semble que dans certains cas, un nouvel enregistrement dans la base de registre peut régler le problème.

Domi2

[appocallypseman]

et je fais quoi une fois que j'ai trouvé MSWORD.OLB ?

[Domi2]

Re,

Tu as regardé le lien ?

Tu le registres au même endroit avec la commande indiquée.

Après, si ça ne fonctionne toujours pas, il serait intéressant que tu puisses tester ton appli sur un autre poste similaire au tien.

Parce que comme ultime solution à proposer, je n'ai que désinstaller et réinstaller Office.

Domi2

[appocallypseman]

merci

[Domi2]

Re,

Ca fonctionne ?

Si oui, qu'as-tu fais en définitive ?

Domi2