Discussion :

[Pierre Fauconnier]

Bonjour

J'utilise le code suivant, avec une liaison tardive sur Word dans un projet VB6

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
    Dim oWord As Object
    Dim oDoc As Object
 
    Set oWord = CreateObject("word.application")
    Set oDoc = oWord.documents.Open("m:\fichetechniquefr.doc")
    oDoc.PrintOut
 
    oDoc.Close False
    oWord.Quit False
    Set oDoc = Nothing
    Set oWord = Nothing
End Sub

Avec un Word 2003, la liaison tardive fonctionne sans problème et mon document est imprimé.

Avec Word 2007, la liaison tardive ne fonctionne pas. Je suis obligé de cocher la référence à Word et de typer mes objets

Code :

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

1
2
    Dim oWord As Word.Application
    Dim oDoc As Word.Document

pour que cela fonctionne... Après avoir fait fonctionner le code avec les variables typées, je peux faire fonctionner le code avec les objets typés Object...

Cela ne m'arrange pas du tout. C'est la librairie Word 2007 qui fout la pagaille ou c'est mon cerveau qui a déserté mon crâne...???

[Invité]

Salut Pierre

Je n'ai pas testé (car VB6 n'est pas installé sur le poste avec Office 2007), mais peut-être que c'est parce que les .doc ne sont pas les formats par défaut de Word 2007, essayes de

J'ai remarqué que pour ouvrir un .doc avec Word 2007, cela passe mieux si tu ouvres Word en premier et non en double-cliquant sur le .doc.

C'est juste une idée.

Starec

[Pierre Fauconnier]

Bonjour Starec...

En fait, le problème était le suivant...

En exécution normale, avec ou sans la référence à Word, et donc avec ou sans liaison tardive, l'impression n'était pas réalisée. Le problème survenait quel que soit le document, qu'il s'agisse d'un .doc ou d'un .docx

Par contre, avec une exécution pas à pas, l'impression était réalisée.

Pour solutionner le problème, il "suffisait" de définir qu'il ne fallait pas d'exécution en arrière-plan...

Pour que cela fonctionne, il fallait donc que j'utilise

Code :

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

oDoc.PrintOut Background:=False

Maintenant, tout fonctionne

Je tague

Bonne journée