Discussion :

[Dermochelys]

Bonjour,

Grâce au tuto "Communication entre access et excell" qui décrit la fonction "TransfertExcelAutomation", je transfére les tables de ma base dans différents fichiers excell (1 par table, chacun portant le nom de la table).
Ca fonctionne bien sauf que la fonction s'arrête après avoir exporté les 7 premières tables. Le déboggeur mets en fluo la ligne suivante :

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
    For Each oTbl In oDb.TableDefs
         Set rec = oDb.OpenRecordset(oTbl.Name, dbOpenSnapshot)
         
         'Initialisations
         Set xlApp = CreateObject("Excel.Application")
         Set xlBook = xlApp.Workbooks.ADD
        
         'Ajouter une feuille de calcul
         Set xlSheet = xlBook.Worksheets.ADD
         xlSheet.Name = CStr(oTbl.Name)
        
         ' le titre
         '  écriture dans la cellule de ligne 1 et de colonne 1
         xlSheet.Cells(1, 1) = "Export de la table Access" & oTbl.Name
        
         
         ' 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
         Chemin = Application.CurrentProject.Path & "\BackupBD\" & oTbl.Name & "-" & Format(Now, "mm-dd-yyyy") & ".xls"
         
         xlBook.SaveAs Chemin
         xlApp.Quit
         rec.Close
    Next oTbl

Je ne vois pas pourquoi ça stoppe ainsi. il n'y a pas de variables particulières dans cette table.

En regardant le contenu de différentes varaibles, je vois que CStr(oTbl.Name) contient le nom MSysAccessObjects (une table temporaire je suppose)

Quant à moi je suppose que si ça bloque c'ets que le format de l'info contenu dans les champs access ne doit pas être compatible avec ceux d'excell....

Une idée ou une piste de solution?

Merci

[loufab]

Bonjour,

Non il s'agit d'une table système les tables temporaires en principe ne sont pas visibles facilement mais elles commencent par ~Temp.

Tu ne dois prendre que les tables utilisateurs (toutes sauf celles qui commencent par Msys)

Code :

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

if not otable.name like "Msys*"

ou vérifier que l'attribut n'est pas système.

Code :

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

if not otable.attributes = (oTable.Attributes And dbSystemObject) then

Cordialement,

[Dermochelys]

Merci Loufab pour ta réponse rapide.
A priori, cette table système est cachée car je ne la vois pas dans ma fenetre de table. Elle a été créée quand????
Mais je vais rajouter la ligne de code et on va voir ce que ça donne demain.
Bonne soirée et Merci!!!

[Dermochelys]

Bonjour!

La première solution que tu proposes fonctionne impec!
Pour la seconde, il me ressort la table MSys...

Un grand merci!!

Mais...

J'ai donc essayer d'améliorer le code pour n'exporter qua les infos relatives à un numéro NumCD donné (donc faire une chaine de requête et l'introduire dans le recordset) mais il se plante au niveau de la ligne créant le recordset

Code :

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

1
2
         stSQL = "Select * from " & oTbl.Name & " where NumCD = " & idctrt
         Set rec = oDb.OpenRecordset(stSQL, dbOpenSnapshot)

le message affiché est : erreur 3061 : Too few parameters, expected 1

Je vois pas ce que je fais qui plante.....

[loufab]

Les tables systemes sont toujours cachées et elles sont créées à la création du fichier.

Vu la simplicité de la requete je te suggère de faire un debug de la ligne.

Mettre un point d'arrêt sur la ligne et interroger la variable contenant l'instruction sql.

Il y a un tuto sur le sujet (Requete dans VBA)

[Dermochelys]

Merci Loufab.

J'ai toujours pas trouvé pourquoi ça ta seconde proposition ne fonctionnait pas mais en utilisant la première ça me va dans un premier temps.

Merci encore!!!

[loufab]

C'est un Or au lieu du And.

[Dermochelys]

Ok ça roule!

Merci!

A bientôt