Exporter des données vers Word

**adaoluz** · 17/09/2018, 05h34

Bonjour les amis!

Ok, j'ai une erreur sur un formulaire où je veux exporter les données vers Word, une "erreur d'exécution '5174", ce fichier n'a pas pu être trouvé, bien je n'ai aucun modèle de fichier pourrait m'aider dans cette situation devrait procéder.

Erreur sur contour.

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
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
Option Compare Database
Option Explicit

'******************************************************************************
'*  Procédure pour l'export de texte vers un document Word
'*  Utilisé dans le cadre d'un tuto pour le publipostage
'*
'******************************************************************************

Public Sub TrfText(idctrt As Integer)
Dim rs01 As Recordset
Dim rs02 As Recordset 'recordset de la table client
Dim rs03 As Recordset 'recordset de la table clause
Dim db As Database
Dim stSQL01 As String
Dim stSQL02 As String
Dim stSQL03 As String
Dim wApp As Word.Application
Dim strChemin As String

strChemin = CurrentProject.Path
Set wApp = New Word.Application
wApp.Visible = True 'permet d'afficher à l'écran le transfert de texte
'ouverture du document Word
wApp.Documents.Add Template:=strChemin & "\contrat.dot", NewTemplate:=False, DocumentType:=0

stSQL01 = "Select * from tblcontrat where idcontrat =" & idctrt

Set db = CurrentDb
Set rs01 = db.OpenRecordset(stSQL01) 'défnition du premier recordset table contrat
    'insérer le code d'appel pour insertion dans Word
    With wApp.Selection
        .TypeParagraph 'ajoute une ligne en Word
        .TypeText "Contrat  " 'insertion de donnée de type texte
        .TypeText rs01.Fields("idContrat") 'insertion des données issues du recordset
        .TypeParagraph
        .TypeText "En date du  " & rs01.Fields("dtDate")
        .TypeParagraph
        .TypeParagraph
    End With
        
stSQL02 = "select * from tblclient where idclient =" & rs01.Fields("idclient").Value
Set rs02 = db.OpenRecordset(stSQL02) 'définition du second recordset table client
    With wApp.Selection
        .TypeParagraph
        .TypeParagraph
        .TypeText rs02.Fields("sttitre") & " " & rs02.Fields("stNom")
        .TypeParagraph
        .TypeText rs02.Fields("stAdresse")
        .TypeParagraph
        .TypeText rs02.Fields("stCP") & "  " & rs02.Fields("stville")
        .TypeParagraph
        .TypeParagraph
    End With
    

stSQL03 = "SELECT tblContrat.idContrat, tblClause.idClause, tblClause.stRubrique, tblClause.stClause FROM tblContrat INNER JOIN (tblClause INNER JOIN tblDetailContrat ON tblClause.idClause = tblDetailContrat.idClause) ON tblContrat.idContrat = tblDetailContrat.idContrat WHERE tblContrat.idContrat= " & rs01.Fields("idcontrat")
Set rs03 = db.OpenRecordset(stSQL03) 'définition de roisième recordset table clause
While Not rs03.EOF 'boucle pour récuperer les enreistrments de la table liée
    With wApp.Selection
        .TypeText rs03.Fields("strubrique")
        .TypeParagraph
        .TypeText rs03.Fields("stclause")
        .TypeParagraph
        .TypeParagraph
    End With
   rs03.MoveNext
Wend
' libération des objets
'afin de pourvoir manipuler le fichier Word, l'application n'est pas fermée
Set rs01 = Nothing
Set rs02 = Nothing
Set rs03 = Nothing
Set db = Nothing
End Sub

**hyperion13** · 17/09/2018, 13h20

Salut

Code :

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

L25 NewTemplate:=True

**adaoluz** · 18/09/2018, 00h27

bonjour mon pote

J'ai changé mais j'ai donné des erreurs variables non définies.

**adaoluz** · 18/09/2018, 03h43

Pourriez-vous s'il vous plaît me dire une solution?

**marot_r** · 18/09/2018, 16h16

Bonjour.

Peux-tu poster le code modifie et indiquer quelle est la variable signalee ?

A+

**adaoluz** · 19/09/2018, 00h22

Bonjour!
erreur de variable non définie "NewTemplate", j'ai fait la déclaration mais cela n'a pas fonctionné, comment puis-je continuer s'il vous plaît.

Je suis envoyé à l'archivi pour vérification, peut vérifier la gentillesse.

**marot_r** · 19/09/2018, 14h07

Bonjour.

Peux-tu poster le code modifie et indiquer quelle est la variable signalee ?

Pas un fichier .zip qu'il faut installer.

A+

**adaoluz** · 19/09/2018, 15h00

Bonjour!

Je viens de modifier une ligne en référence au numéro 25.

variable non définie
"NewTemplate".
Fichier Zip et base de données, si possible peut analyser, merci.

**tee_grandbois** · 19/09/2018, 20h02

Bonsoir,

Ok, j'ai une erreur sur un formulaire où je veux exporter les données vers Word, une "erreur d'exécution '5174", ce fichier n'a pas pu être trouvé, bien je n'ai aucun modèle de fichier pourrait m'aider dans cette situation devrait procéder.

J'ai testé la base contrat.mdb (base exemple qui vient du site developpez.com), cela fonctionne à condition d'avoir un fichier contrat.dot (même vide) existant au même endroit que la base.

Je viens de modifier une ligne en référence au numéro 25.

variable non définie
"NewTemplate".

Je n'ai pas eu besoin de modifier quoi que ce soit dans le code.
Peut-être faut il vérifier si les références sont manquantes:

Nom : _References.JPG
Affichages : 338
Taille : 63,1 Ko

Nom : _References.JPG
Affichages : 338
Taille : 63,1 Ko

**adaoluz** · 19/09/2018, 23h21

Bonjour!
Voici toutes les bibliothèques sélectionnées, mais l'erreur continue à travers
Je pouvais voir le code fonctionne, possible que l'erreur soit dans la version de mon bureau 2010, les libbiotecas sont accessibles en 2010. Nom : Error.jpg
Affichages : 335
Taille : 268,4 Ko

Nom : Error.jpg
Affichages : 335
Taille : 268,4 Ko

**tee_grandbois** · 20/09/2018, 00h02

essaie de remplacer l'instruction :

Code :

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

wApp.Documents.Add Template:=strChemin & "\contrat.dot", NewTemplate:=False, DocumentType:=0

par celle-ci:

Code :

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

wApp.Documents.Add strChemin & "\contrat.dot", False, 0

Si cela ne fonctionne toujours pas, il faudrait compiler le code pour voir si il y a des erreurs:

Nom : _compilerCode.JPG
Affichages : 321
Taille : 54,5 Ko

As-tu créé le fichier contrat.dot ?

**adaoluz** · 20/09/2018, 00h27

Oui, je l'ai fait, je vais faire les changements.

Merci!

**adaoluz** · 20/09/2018, 01h23

bonjour salut

J'ai fait le test plus l'erreur continue, je ne sais pas si c'est le bon chemin, il est possible que je laisse passer le fichier de modèle, en cliquant sur le bouton d'exportation pour Word l'erreur se produit. Je l'ai mis dans le prochain chemin d'accès.

C:\Users\zz\Downloads\Contrat

Nom : Erreur1.jpg
Affichages : 308
Taille : 114,0 Ko

Nom : Erreur1.jpg
Affichages : 308
Taille : 114,0 Ko

Nom : Erreur2.jpg
Affichages : 310
Taille : 204,3 Ko

Nom : Erreur3.jpg
Affichages : 334
Taille : 267,9 Ko

**hyperion13** · 20/09/2018, 12h29

Attention !!!
Votre fichier Word est nommé contrat.doc <<--- changer en contrat.dot
alors que dans votre sub() vous appelez contrat.dot !!!!

Pour une meilleure lisibilité :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim wApp As Word.Application
Dim wDoc As Word.Document
 
Dim strChemin As String
Dim strFichier As String
 
Set wApp = CreateObject("Word.Application")
wApp.Visible = True
 
strChemin = CurrentProject.Path
strFichier = "\contrat.dot"
Set wDoc = wApp.Documents.Add(strChemin & strFichier, True, 0, True)

**adaoluz** · 21/09/2018, 01h11

Salut les amis, bonsoir!

Désolé pour le retard, en fait j'ai fait les tests avec les deux situations,

à la fois avec extension dot, comme extension doc, mais malheureusement l'erreur a tendance à se poursuivre, je ne sais pas ce que je dois corriger puisque les codes sont corrects.

**hyperion13** · 21/09/2018, 05h40

Vous avez bien activé ça ?

**adaoluz** · 21/09/2018, 05h50

oui il est allumé

**hyperion13** · 21/09/2018, 09h10

Comment déclenchez-vous ou appelez-vous la sub Public Sub TrfText(idctrt As Integer) ?
Dans ce style ?

Code :

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

1
2
3
Private Sub TransfertText_Click()
Call TrfText(idctrt)
End Sub

**tee_grandbois** · 21/09/2018, 12h52

bonjour tout les deux,
il faut garder à l'esprit que l'erreur 5174 indique un fichier introuvable, il faut donc se demander pourquoi ...

**adaoluz** · 21/09/2018, 13h41

Bonjour!

Je vous remercie pour votre aide et vos efforts, je m'efforce de le découvrir, merci.

le fichier modèle est créé.

Exporter des données vers Word [AC-2010]

VBA Access

Discussions similaires

Partager

Partager