Discussion :

[biscotto23]

Bonjour,

A partir d'un recordset sur ma base de données Access, j'alimente champ par champ un document Word à partir de signets.

Cela fonctionne très bien mais les champs qui sont supérieurs à 255 caractères sont tronqués, je n'ai qu'une partie du texte transféré dans le document Word.
Auriez-vous une solution à me proposer pour corriger ce problème ?

Avec mes remerciements anticipés.

Cordialement,

[loufab]

Bonjour,

C'est vague comme description.

Tu fusionne comment ? On peut voir ton code ?

Cordialement,

[biscotto23]

Bonjour,

Voici le code utilisé qui fonctionne excepté les champs qui dépassent 255 caractères

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
Private Sub bt_exportXLS_Click()
 
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim I As Long
Dim j As Long
Dim rec As Recordset
 
a = "\\...\Temp\Template_Liste.xlsx"
b = "\\...\Liste_" & Format(Now(), "yyyy" & "mm" & "dd") & "_" & Format(Now(), "hhnn") & ".xlsx"
 
FileCopy a, b
 
Set rec = Me.F_sf.Form.RecordsetClone
 
Set xlApp = Excel.Application
Set xlBook = xlApp.Workbooks.Open(b)
xlApp.Visible = True
Set xlSheet = xlBook.Worksheets("Liste")
 
'recopie les données à partir de la ligne 2
I = 2
Do While Not rec.EOF
For j = 0 To 4
xlSheet.Cells(I, 1) = rec.Fields("Code")
xlSheet.Cells(I, 2) = rec.Fields("Origine")
xlSheet.Cells(I, 3) = rec.Fields("Projet")
xlSheet.Cells(I, 4) = rec.Fields("Description")
Next j
I = I + 1
rec.MoveNext
Loop
 
'fermeture et libération des objets
xlBook.Save
rec.Close
Set rec = Nothing
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
 
End Sub

[biscotto23]

Une solution à me proposer ?

[tee_grandbois]

bonsoir,
est-ce le bon code ? car c'est Excel qui y est utilisé, contrairement à ce que tu dis plus haut:

A partir d'un recordset sur ma base de données Access, j'alimente champ par champ un document Word à partir de signets.

Cela fonctionne très bien mais les champs qui sont supérieurs à 255 caractères sont tronqués, je n'ai qu'une partie du texte transféré dans le document Word.

Est-ce que les champs tronqués ont bien plus de 255 caractères dans la source du sous-formulaire ?

[biscotto23]

Bonjour,

Oui, j'ai aussi le même problème avec l'export Excel.
Le résultat de la requête donne pourtant bien le nombre de caractères du champ attendu.
Le type de sous-formulaire influt-il sur la sortie du recordset ?

Voici le code utilisé pour l'export Word basé sur le résultat d'une requête SQL :

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
Private Sub btDOC_Click()
 
Dim SQL As String
Dim wApp As Word.Application
Dim wBkm As Word.Bookmark
Dim I As Long
Dim j As Long
Dim rec As Recordset
 
a = "\\...\FR\Temp\Template_Fiche.doc"
Num = Me.Texte262
b = "\\...\FR\Fiche_" & Num & "_" & Format(Now(), "yyyy" & "mm" & "dd") & "_" & Format(Now(), "hhnn") & ".doc"
 
FileCopy a, b
 
sql = "SELECT * FROM r_Export_Fiche WHERE NC_ID = " & Me.NC_ID
 
Set rec = CurrentDb.OpenRecordset(sql)
 
Set wApp = New Word.Application
 
With wApp
    .Visible = True
    .Documents.Open (b)
 
'Remplacer les signets uniques par leur valeur
         .ActiveDocument.Bookmarks("Code").Range.Text = Nz(rec.Fields("Code").Value, "")
         .ActiveDocument.Bookmarks("Origine").Range.Text = Nz(rec.Fields("Origine").Value, "")
         .ActiveDocument.Bookmarks("Date_Declaration").Range.Text = Nz(rec.Fields("NC_date_declaration").Value, "")
         .ActiveDocument.Bookmarks("Description").Range.Text = Nz(rec.Fields("NC_description").Value, "")
 
         .ActiveDocument.Save
 
End With
 
'fermeture et libération des objets
  Set wApp = Nothing
  rec.Close
  Set rec = Nothing
 
End Sub

Merci pour votre aide.

[loufab]

Bonjour,

Aucun problème constaté sur ce code.

Tu utilises quelle version d'Office ?

Cordialement,