Discussion :

[mandingueiro]

Bonjour,

J'ai un petit souci qui me bloque depuis plus de 2 jours.
La problématique est simple : imprimer des documents word, dont le chemin est contenu dans le champs d'une dB, sans ouvrir ces mêmes document. A priori pas de soucis, j'aui mis en place le code suivant :

Code :

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

1
2
3
4
 
Dim appWord As Word.Application
Set appWord = CreateObject("Word.Application")
appWord.PrintOut FileName:=current_courr

Où current_courr est une variable contenant le chemin abolu de mon .doc

ce code à marché, quelques temps, et ne fonctionne plus. J'ai l'erreur suivante :

Code :

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

1
2
erreur d'exécution 4605:
Cette méthode ou propriété n'est pas disponible car une fenêtre de document n'est pas active

Si vous avez une idée n'hésitez pas, moi j'en suis completement à cours!!

Merci.

[ProgElecT]

Moi j'ai rajouter ("",) car j'avais le même probleme depuis sa fonctionne, attention je ne suis pas du tout specialiste dans ce domaine

Code :

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

Set Appli = GetObject("", "Word.Application")

[mandingueiro]

ok j'ai éssayé mais il me dit qu'Active X n'arrive pas a créer l'objet, et si je met ..., "") à la fin j'ai toujours le même soucis....
Merci en tout cas

[Phifi]

ce code à marché, quelques temps, et ne fonctionne plus

Si tu n'as pas changé de version de Word entre-temps, regarde du côté de ta variable current_courr

Sinon, est-ce que tu ne masques pas les alertes de l'objet application ? Si c'est le cas, tu rates peut-être un épisode...

Code :

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

1
2
3
4
Dim appWord As Word.Application
Set appWord = CreateObject("Word.Application")
Debug.Print appWord.DisplayAlerts
appWord.PrintOut FileName:=current_courr

[avigeilpro]

Un jour j'ai récupéré une source je ne sais ou ( donc désolé de ne pas citer ni de nom ni d'adresse) et je l'ai utilisé pour en faire un control, voici la création du lien OLE avec Word :

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
 
 
Public Application As Word.Application
 
 
' La fonction Getobject appelée sans le premier argument
' renvoie une référence à une occurrence de l'application Word.
' Si l'application n'est pas en exécution,
' une erreur se produit et on utilise l'erreur.
' Noter la virgule utilisée en tant que premier espace réservé d'argument.
 
Set Application = GetObject(, "Word.Application")
 
If Err.Number <> 0 Then
   Set Application = CreateObject("Word.Application")
End If
 
Err.Clear ' Efface l'objet Err au cas où une erreur s'est produite.

et voici une partie de la procedure d'impression, Nom_Document étant le nom du fichier:

Code :

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

1
2
3
4
5
6
7
8
9
10
Application.PrintOut _
                        FileName:=Nom_Document, _
                        Range:=wdPrintAllDocument, _
                        Item:=wdPrintDocumentContent, _
                        Copies:=1, _
                        PageS:="", _
                        PageType:=wdPrintAllPages, _
                        Collate:=True, _
                        Background:=False, _
                        PrintToFile:=False

Si toutefois mon control t'interressait, va sur mon site et tu le trouveras

[ProgElecT]

' La fonction Getobject appelée sans le premier argument
' renvoie une référence à une occurrence de l'application Word.
' Si l'application n'est pas en exécution,
' une erreur se produit et on utilise l'erreur.
' Noter la virgule utilisée en tant que premier espace réservé d'argument.

Merci avigeilpro pour cette expliquation nette et precise,
cela va me permetre de mieux gérer des petits bouts de prog qui ne fonctionnait pas toujours tres bien.

[mandingueiro]

Ok, merci de vos propositions. J'ai testé de

Code :

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

debug.print

, rien a signaller.

Sinon le problème je cros ne réside pas dans la création de l'objet word app car je peux soit ouvrir un word (manuellement) et faire un getobject soit ne pas en ouvrir et faire un createobject, dans les 2 cas pas d'erreur particulière à ce niveau.
Sauf quand j'appelle la méthode "printout", avec ou sans option j'ai ce même message :

erreur d'exécution 4605:
Cette méthode ou propriété n'est pas disponible car une fenêtre de document n'est pas active