Discussion :

[matfeb]

Bonjour,
j'ai un soucis avec mon export de Access 2003 vers Excel 2003. (image jointe).
Mes références sont bien cochées (image jointe) et le code de l'export est le suivant (pris dans un tutoriel de devellopez):

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
Public Sub Export2Excel(SQL As String, Titre As String)
 
        Dim xlApp As Excel.Application
        Dim xlSheet As Excel.Worksheet
        Dim xlBook As Excel.Workbook
        Dim I As Long, J As Long
        Dim rec As Recordset
 
        Set rec = CurrentDb.OpenRecordset(SQL, dbOpenSnapshot)
 
        'Initialisations
        Set xlApp = CreateObject("Excel.Application")
        Set xlBook = xlApp.Workbooks.Add
 
        'Ajouter une feuille de calcul
        Set xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = "Export Excel"
 
        ' le titre
        '  écriture dans la cellule de ligne 1 et de colonne 1
        xlSheet.Cells(1, 1) = Titre
 
 
        ' les entetes
        '  .Fields(Index).Name renvoie le nom du champ
        For J = 0 To rec.Fields.Count - 1
            xlSheet.Cells(2, J + 1) = rec.Fields(J).Name
            ' Nous appliquons des enrichissements de format aux cellules
            With xlSheet.Cells(2, J + 1)
                .Interior.ColorIndex = 15
                .Interior.Pattern = xlSolid
                .Borders(xlEdgeBottom).LineStyle = xlContinuous
                .Borders(xlEdgeBottom).Weight = xlThin
                .Borders(xlEdgeBottom).ColorIndex = xlAutomatic
                .HorizontalAlignment = xlCenter
            End With
        Next J
 
        ' recopie des données à partir de la ligne 3
        I = 3
        Do While Not rec.EOF
            For J = 0 To rec.Fields.Count - 1
                ' .Fields(Index).Type renvoie le type du champ
                '   si c'est un Texte (dbText) nous insérons "'" pour
                '   qu'il soit reconnu par Excel comme du Texte
                'If rec.Fields(J).Type = dbText Then
                    xlSheet.Cells(I, J + 1) = "'" & rec.Fields(J)
                'Else
                    'xlSheet.Cells(I, J + 1) = rec.Fields(J)
                'End If
            Next J
            I = I + 1
            rec.MoveNext
        Loop
 
        ' code de fermeture et libération des objets
        xlBook.SaveAs "\test.xls"
        xlApp.Quit
        rec.close
        Set rec = Nothing
        Set xlSheet = Nothing
        Set xlBook = Nothing
        Set xlApp = Nothing
End Sub

Quelqu'un a-t-il trouver le problème ?
Cordialement.

[Jack78960]

Salut,

Quel message d'erreur ou anomalie as- tu?

A première vue, la seule chose que je vois est le nom de fichier sur saveAs qui doit être reconstruit, par exemple:

Code :

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

xlBook.SaveAs Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "\")) & "test.xls"

Comme tu utilises CreateObject, tu pourrais remplacer les trois premiers dim ainsi que le dim de Rec par

Code :

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

1
2
3
4
5
        Dim xlApp As Object
        Dim xlSheet As Object
        Dim xlBook As Object
        Dim I As Long, J As Long
        Dim rec As Object

Dans ce cas les liens sur les bibliothèques DAO, Excel et Office peuvent être retirés. ==> Cette syntaxe te permettrais de te détacher de la version d'excel ==>le code marcherait pour Excel 9, 10 et 11

De toute façon , donnes plus de précisions sur ton anomalie

[matfeb]

Merci, pour ta réponse.

Le problème est l'impossibilité pour Excel 2003 de lire le fichier généré par Access , cela doit être dû à un mauvais format.
Ce qui est étranger c'est que Excel 2007 arrive à l'ouvrir même si il me dit que le format du fichier n'est pas un format reconnu.
L'erreur que m'inscrit Excel est dans les fichiers joints au post.
Cordialement.

Mathieu

[Invité]

Bonjour

Ton chemin de sauvegarde de ton fichier Excel

Code :

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

"\test.xls"

est bizarre, non ?

Starec

[matfeb]

En fait, j'aimerais sauvegardé le fichier la où se trouve le fichier Access mais il me le met autre part !

[Invité]

Re

Essayes

Code :

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

Application.CurrentProject.Path & "\test.xls"

Starec

[matfeb]

Pour le fichier c'est ok, il apparait bien là où il y a l'application.
Merci.

Malheureusement mon problème est toujours présent !
Incompatibilité avec Excel 2003, il affiche des caractères bizarres.
Excel 2007 me l'affiche correctement après un message d'avertissement me disant que ce n'est pas un fichier au bon format (.xls)