Discussion :

[subnox]

Bonjour,

J'ai dans ma table access une table avec un champ de type memo qui contient pour certains enregistrements, le caractères "ENTER" ou "à la ligne"

J'aimerais pouvoir exporter les données de cette table dans un fichier excel (en pressant sur un bouton) mais quand je l'exporte de cette façon VBA me fait une erreur car il ne reconnait pas ce caractère!

En revanche si je l'exporte depuis le menu fichier, exporter, cela fonctionne bien!

Je suppose qu'il y a donc une fonction qui permet de transformer ce caractère ou de l'ignorer!?

Si quelqu'un peut m'aider!?

Merci beaucoup!!!!!

[Bruno2r]

On pourrait pas avoir :

• Le message d'erreur
• Le code VB

[subnox]

Je ne pense pas que ca soit très utile pour ce problème mais le voilà quand même!

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
Private Sub Report_Click()
 
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
Dim I As Long, J As Long, K As Long
Dim t0 As Long, t1 As Long
Dim rec As DAO.Recordset
Dim Qry As DAO.QueryDef
 
t0 = Timer
 
 
Set xlApp = CreateObject("Excel.application")
Set xlBook = xlApp.Workbooks.Add
 
 
For Each Qry In CurrentDb.QueryDefs
    If Qry.Name = "Report_MinimaleInputs" Then
        Set xlSheet = xlBook.Worksheets.Add
        Set rec = CurrentDb.OpenRecordset("Report_MinimaleInputs", dbOpenSnapshot)
        xlSheet.Name = "Report"
 
 
        For J = 0 To rec.Fields.Count - 1
            xlSheet.Cells(1, J + 1) = rec.Fields(J).Name

Le Problème intervient ici, Erreur: "Objet de type inconnu" mais cela vient du caractère [ENTER] que l'on ne peut pas insérer dans une cellule Excel

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
 
            With xlSheet.Cells(1, J + 1)
                .Interior.ColorIndex = 37
                .Borders(xlEdgeBottom).LineStyle = xlContinuous
                .HorizontalAlignment = xlCenter
                xlSheet.Columns.AutoFit
                .Cells.Font.Bold = True
 
            End With
        Next J
 
        I = 2
 
        Do While Not rec.EOF
            For K = 0 To rec.Fields.Count - 1
                xlSheet.Cells(I, K + 1) = rec.Fields(K)
                If rec.Fields(K) = "gelb" Then
                    xlSheet.Cells(I, K + 1).Interior.ColorIndex = 6
                ElseIf rec.Fields(K) = "grün" Then
                    xlSheet.Cells(I, K + 1).Interior.ColorIndex = 43
                ElseIf rec.Fields(K) = "rot" Then
                    xlSheet.Cells(I, K + 1).Interior.ColorIndex = 3
                End If
 
            Next K
            I = I + 1
            rec.MoveNext
        Loop
    End If
Next
 
 
xlBook.SaveAs "H:\Report.xls"
xlApp.Quit
rec.Close
 
Set rec = Nothing
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
t1 = Timer
 
End Sub

Merci de votre aide!!!

[AlainTech]

Le saut de ligne dans une cellule Excel est VbLf.

Tu n'as qu'à remplacer le saut de ligne de tes champs memo par celui-là.