Discussion :

[tee_grandbois]

j'ai essayé sur un autre poste, en fin de compte il bloque le fichier en lecteur seule. Impossible de le fermer et le gestionnaire des taches n'indique pas que le fichier est ouvert ?

@ ANANA49: est-ce un fichier sur un réseau ? Si oui, ce serait un problème de droit d'accès.

[ANANA49]

Bonjour,

Un classeur s'ouvre en version 2010 mais sans les données de mon sous-formulaire. Il m'exporte uniquement les entêtes de colonnes.

Voici le code modifié selon les indications d'hyperion, j'ai dû oublié une syntaxe.. A vrai dire, je ne comprends pas.. Help 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
27
28
29
30
 
Private Sub ExportListing_Click()
 
Dim xlApp As Object
Dim xlWkb As Object
Dim mySheet As String
Dim rst As DAO.Recordset
Dim rstCount As Integer
 
 
Set xlApp = CreateObject("Excel.Application")
Set xlWkb = xlApp.Workbooks.Add
Set rst = Forms![ACCUEIL]![frm_Liste_Selection].Form.RecordsetClone
 
With xlWkb
xlApp.ScreenUpdating = False
' Ajout des en-têtes dans le classeur
For rstCount = 0 To rst.Fields.Count - 1
xlApp.Cells(1, rstCount + 1).Value = rst.Fields(rstCount).Name
Next rstCount
 
xlApp.Range("A2").CopyFromRecordset rst
xlApp.ScreenUpdating = True
End With
 
rst.Close
xlApp.Quit
 
Set rst = Nothing
End Sub

[tee_grandbois]

bonjour ANANA49,
est-ce bien le code du dernier post que tu as utilisé ? Car je viens de le tester: le classeur ne s'ouvre pas car l'application reste invisible (il n'y a pas l'instruction xlApp.Visible = True). Par contre il demande si on veut enregistrer les modifications apportées au classeur ce qui normal, puisqu'on ferme l'application à la fin de la procédure xlApp.Quit et il exporte bien l'en-tête et les enregistrements du sous-formulaire.

Au pire, tu peux ajouter rst.Movelast et rst.MoveFirst avant la commande CopyFromRecordset. Mais pour moi, ce code fonctionne alors vérifie qu'on parle bien de la même procédure.

[ANANA49]

Merci beaucoup pour votre aide tee-Grandbois et hypérion!

J'ai testé le code directement sur ma base de données en prod et je n'ai plus de conflit de version Excel..
J'étais sur une base Access de test (Créée chez moi) donc je pense que cela devait venir de là.
Tout ce temps perdu.. mais qui reste productif pour moi !
Merci encore.
Je poste le code modifié et qui fonctionne pour laisser une trace..

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
Private Sub ExportListing_Click()
 
Dim xlApp As Object
Dim xlWkb As Object
Dim mySheet As String
Dim rst As DAO.Recordset
Dim rstCount As Integer
 
 
Set xlApp = CreateObject("Excel.Application")
Set xlWkb = xlApp.Workbooks.Add
Set rst = Forms![ACCUEIL]![frm_Liste_Selection].Form.RecordsetClone
 
With xlWkb
xlApp.ScreenUpdating = False
' Ajout des en-têtes dans le classeur
For rstCount = 0 To rst.Fields.Count - 1
xlApp.Cells(1, rstCount + 1).Value = rst.Fields(rstCount).Name
Next rstCount
 
 rst.MoveLast
 rst.MoveFirst
xlApp.Range("A2").CopyFromRecordset rst
 
xlApp.Visible = True
xlApp.ScreenUpdating = True
End With
 
rst.Close
xlApp.Quit
 
Set rst = Nothing
End Sub