Problème avec automation word

Version imprimable

04/10/2012, 17h23
tonio-lille

Problème avec automation word

Bonjour à tous,

J'ai passé mon application access 2003 en access 2010. J'ai pris le nouveau format .accdb.

Je n'ai aucune erreur à la compilation.

J'ai un seul souci avec mes fonctions d'automation.

Lorsque je clique sur un bouton qui lance une impression via une automation word, il ne se passe rien. Je n'ai aucun message d'erreur. Si le document n'est pas ouvert en arrière plan, j'ai bien word qui s'ouvre mais ça s'arrête là.

Quelqu'un a-t-il une idée sur les problèmes récurrent concernant les fonctions d'automation lors d'un passage de access 2003 à access 2010?

Merci d'avance.
04/10/2012, 18h05
tonio-lille

C'est encore plus bizarre que je ne le pensais.

Sur mon poste équipé de Access 2010.

Avec le .accdb, il ne se passe rien.
Avec le .accde, j'ai un message d'erreur de base( l'expression sur click entrée en paramètre.....à l'origine d'une erreur)

Sur les autres postes équipés du runtime.

Tout marche parfaitement.:arf:
04/10/2012, 18h24
Heureux-oli

Salut,

Normalement, ça passe bien.

Mais avec si peu de renseignement sur ton problème, difficile d'en dire plus.
05/10/2012, 10h55
tonio-lille

Bonjour,

c'est difficile d'expliquer mieux tellement ça me parait illogique.

J'ai d'ailleurs tout installer sur un autre poste client. Même config, même application, sur l'un des deux tout s'imprime, sur l'autre le message d'erreur l'expression sur click entrée a généré une erreur.

Je suis repassé au .mde et le problème persiste.

Je vais essayer de recréer mes classes d'automations.

Je vous tiens au courant.

Merci
05/10/2012, 12h20
tonio-lille

Bon j'ai tout transférer dans une base neuve et là j'ai au moins un message d'erreur sur la ligne suivante :

Code:

Set docWord = msWord.Documents.Open(path, , lectureSeule)

c'est une erreur 4198 la commande a échoué.

On avance petit à petit.
05/10/2012, 14h55
tonio-lille

ça y est, j'ai trouvé la solution sur un forum ricain.

J'ai remplacé :

Code:

Set msWord = New Word.Application

par

Code:

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

Pour l'explication du pourquoi du comment, il va falloir demander à quelqu'un de plus compétent.:D
05/10/2012, 21h09
Heureux-oli
Salut,

Sans code, avec juste un descriptif sommaire, c'est pas facile.

La raison est que si tu ne déclares pas et que tu n'affectes rien à ton objet, il ne peut pas en recevoir un autre.

Dans un code où l'on souhaite utiliser un document Word, il faut au moins déclarer deux objets.
La déclaration de ces objets peut être faites de deux manières différentes.
La première en utilisant du LateBinding.
On ne référence pas les bibliothèques que l'on souhaite utiliser dans le code pour y faire référence intégrament dans le code.
Code:

1 2 3 4 5 Dim wApp as Object Dim oDoc as Object Set wApp = CreateObject("Word.Application") set oDoc = wApp.Documents.Open("Mon chemin de document")
Dans la seconde, on fait de l'EarlyBinding.

On référence les bibliothéques au projet.
Code:

1 2 3 4 5 Dim wApp As Word.Application Dim oDoc as Word.Document Set wApp = New Word.Application Set oDoc = wApp.document.Open("Mon chemin de document")
Mais avec tes explications, comment pouvait-on savoir quelle méthode tu avais utilisé ?
Parce que ton problème n'est pas lié à la version d'Access utilisée.

Pour preuve, ton application 2010, essaie de la convertir en 2003 ?

Bonjour,

Ma question était d'ordre général car l'application fonctionnait parfaitement sous access 2003. En passant en access 2010 tout les fonctions utilisant l'automation ne fonctionnaient plus.

Dans mon application access 2003, j'utilisais l'EarlyBinding exactement de la même façon que tu le décris.

Au passage en access 2010, ce code, qui d'après toi et également d'après moi devrait fonctionner, ne fonctionne pas. Je suis donc passer au LateBinding qui fonctionne sans problème.

Les raisons pour lesquelles l'earlyBinding ne fonctionne pas m'échappe.

Dans l'ensemble de tes réponses, tu pars du principe qu'il y a une erreur dans mon code alors que dans mon premier message j'indique que c'est un passage d'une application access 2003 à 2010 ( sous-entendu que ça fonctionnait très bien sous access 2003). Je ne voyais donc pas l'intérêt de mettre mon code mais je basais plutôt ma question sur les problèmes récurrents qui intervenaient lors de ce passage de 2003 à 2010.

Voici la classe utilisé en Access 2003 :

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
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
72
73
74
75
76
77
78
79
80
Public msWord As Word.Application
Public docWord As Word.Document
Public ouvert As Boolean
 
Public Sub ouvrirDocWord(path As String, lectureSeule As Boolean, visible As Boolean)
 
    If Dir(path) = "" Then
        MsgBox "chemin d'accès au document non valide !" & vbCrLf & path, vbCritical
    Else
        Set msWord = new Word.Application
        msWord.visible = visible
        Set docWord = msWord.Documents.Open(path, , lectureSeule)
        ouvert = True
    End If
End Sub
Public Sub visible(value As Boolean)
    msWord.visible = value
End Sub
Public Sub fermerDocument(sauver As Boolean)
 
    If sauver Then
        docWord.Close wdPromptToSaveChanges
    Else
        docWord.Close wdDoNotSaveChanges
    End If
    Set docWord = Nothing
    msWord.Quit
    Set msWord = Nothing
End Sub
 
Public Sub imprimerDocument(nbCopies As Integer, Optional pageMin As Integer, Optional pageMax As Integer)
    If ouvert = True Then
        If (IsNull(pageMin) And IsNull(pageMax)) Or (pageMin = 0 And pageMax = 0) Then
            docWord.PrintOut Copies:=nbCopies
        Else
            docWord.PrintOut Copies:=nbCopies, Range:=wdPrintFromTo, FROM:=CStr(pageMin), To:=CStr(pageMax)
        End If
    Else
        MsgBox "document non initialisé", vbCritical
    End If
End Sub
Public Sub fenetreImpression()
 If ouvert = True Then
        msWord.Dialogs(wdDialogFilePrintSetup).Show
    Else
        MsgBox "document non initialisé", vbCritical
    End If
End Sub
Public Sub remplirSignet(nomSignet As String, texte As String)
 
    If docWord.Bookmarks.Exists(nomSignet) Then
        docWord.Bookmarks(nomSignet).Range.Text = texte
    Else
        MsgBox "le signet " & nomSignet & " n'existe pas"
    End If
End Sub
Public Sub remplirSignets(nomSignet As String, texte As String, nb As Integer)
    Dim i As Integer
    If ouvert = True Then
        For i = 1 To nb
            remplirSignet nomSignet & i, texte
        Next i
    End If
End Sub
Public Sub enregistrer(nomFichier As String, Optional ecrasement As Boolean)
    If ExistenceFichier(nomFichier) Then
        If ecrasement Then
            Kill nomFichier
            docWord.SaveAs nomFichier
        Else
            MsgBox "Erreur le fichier existe déjà", vbCritical
            Exit Sub
        End If
    End If
    If ouvert = True Then
        docWord.SaveAs nomFichier
    Else
        MsgBox "document non initialisé", vbCritical
    End If
End Sub

et voici la classe utilisé avec 2010 :

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
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
72
73
74
75
76
77
78
79
80
Public msWord As Word.Application
Public docWord As Word.Document
Public ouvert As Boolean
 
Public Sub ouvrirDocWord(path As String, lectureSeule As Boolean, visible As Boolean)
 
    If Dir(path) = "" Then
        MsgBox "chemin d'accès au document non valide !" & vbCrLf & path, vbCritical
    Else
        Set msWord = GetObject(, "Word.application")
        msWord.visible = visible
        Set docWord = msWord.Documents.Open(path, , lectureSeule)
        ouvert = True
    End If
End Sub
Public Sub visible(value As Boolean)
    msWord.visible = value
End Sub
Public Sub fermerDocument(sauver As Boolean)
 
    If sauver Then
        docWord.Close wdPromptToSaveChanges
    Else
        docWord.Close wdDoNotSaveChanges
    End If
    Set docWord = Nothing
    msWord.Quit
    Set msWord = Nothing
End Sub
 
Public Sub imprimerDocument(nbCopies As Integer, Optional pageMin As Integer, Optional pageMax As Integer)
    If ouvert = True Then
        If (IsNull(pageMin) And IsNull(pageMax)) Or (pageMin = 0 And pageMax = 0) Then
            docWord.PrintOut Copies:=nbCopies
        Else
            docWord.PrintOut Copies:=nbCopies, Range:=wdPrintFromTo, FROM:=CStr(pageMin), To:=CStr(pageMax)
        End If
    Else
        MsgBox "document non initialisé", vbCritical
    End If
End Sub
Public Sub fenetreImpression()
 If ouvert = True Then
        msWord.Dialogs(wdDialogFilePrintSetup).Show
    Else
        MsgBox "document non initialisé", vbCritical
    End If
End Sub
Public Sub remplirSignet(nomSignet As String, texte As String)
 
    If docWord.Bookmarks.Exists(nomSignet) Then
        docWord.Bookmarks(nomSignet).Range.Text = texte
    Else
        MsgBox "le signet " & nomSignet & " n'existe pas"
    End If
End Sub
Public Sub remplirSignets(nomSignet As String, texte As String, nb As Integer)
    Dim i As Integer
    If ouvert = True Then
        For i = 1 To nb
            remplirSignet nomSignet & i, texte
        Next i
    End If
End Sub
Public Sub enregistrer(nomFichier As String, Optional ecrasement As Boolean)
    If ExistenceFichier(nomFichier) Then
        If ecrasement Then
            Kill nomFichier
            docWord.SaveAs nomFichier
        Else
            MsgBox "Erreur le fichier existe déjà", vbCritical
            Exit Sub
        End If
    End If
    If ouvert = True Then
        docWord.SaveAs nomFichier
    Else
        MsgBox "document non initialisé", vbCritical
    End If
End Sub

Seul la création de l'objet WordApplication change.

De toute façon, il y en qu'en même des choses difficilement explicables puisque la version EarlyBinding fonctionne sur l'un de mes poste client.

08/10/2012, 14h39
Heureux-oli

Salut,

Ok, mais nous n'avons rien pour pouvoir certifier ce qui coince.
En général, lorsque ça fonctionne sous une version et plus sur l'autre, on reçoit un message d'erreur.

Le problème peut aussi venir d'objets, methodes, propriétés ou évènements qui disparraîssent d'une version à l'autre.

Essaie de te mettre à notre place, comment dire sans rien devant les yeux ce qui ne va pas.
08/10/2012, 14h53
tonio-lille

Je comprends bien, je m'expliquais juste sur le fait de ne pas mettre de code.

Puis j'avoue qu'entre l'application que marche parfaitement sur un poste et pas sur l'autre alors que ce sont deux PC identiques nouvellement achetés, ça laisse sceptique.

J'ai un problème similaire avec un import Excel dans une autre application.

Je ne pensais pas que le passage 2003 à 2010 poserait autant de soucis.
08/10/2012, 15h34
Heureux-oli

Salut,

J'espère que tu n'as pas utilisé d'ActiveX !
08/10/2012, 15h53
tonio-lille

Je pense que si car j'ai souvenir d'avoir un message d'erreur mentionnant le mot activeX.

On va reprendre à zéro.

Tu es d'accord que mon code sous access 2003 devrait fonctionner sous access 2010?

Si oui, le problème doit venir d'ailleurs et l'utilisation de getObject n'est pas necessaire.
12/10/2012, 10h29
tonio-lille

Bonjour,

Après différentes recherches, j'ai trouvé un truc qui pourra intéresser quelqu'un. C'est un patch de Word qui règle quelques bugs.

http://support.microsoft.com/kb/2553912

Personnellement après installation, tout mes problèmes concernant l'automation Word ont disparus et j'ai pu garder mon ancien code.

J'espère que ça aidera ceux qui ont des bugs louches concernant l'automation Word.