VBA sur access
 

J'aimerai exporter 4 pivottable vers 1 seul fichier (précis d'excel)
est-ce possible?
merci d'avance a ceux qui peuvent m'aider.
vtchikin@yahoo.fr

l'assistant à créer du code. Seulement j'aimerai l'adapter pour exporter ces pivot dans mon fichier.

Salut

Avec ce code tu peux exporter une table ACCESS en ficher EXCEL, c'est assez "bateau" mais ça marche bien (reste à vérifier, j'ai fait quelques modif à la volée):


Private Sub test_Click()
Dim db As Database
Dim qdf As QueryDef
Dim chSQL As String
Dim Name As String
Dim paramDate As Date

Name = "TEST"
Set db = CurrentDb
db.QueryDefs.Refresh


For Each qdf In db.QueryDefs
If qdf.Name = [Name] Then
db.QueryDefs.Delete qdf.[Name]
End If
Next qdf


chSQL = "SELECT [Requête].Champ1, [Requête].champ2, .... FROM [Requête] WHERE ..... ;"

Set qdf = db.CreateQueryDef([Name], chSQL)

If DCount("*", [Name]) > 0 Then

'On execute la Requête
DoCmd.OpenQuery [Name], acNormal, acEdit
'On exporte vers le fichier
DoCmd.OutputTo acOutputQuery, [Name], acFormatXLS, Path & NomFich & ".xls", False

Else
MsgBox "Il n'y a pas de donnée pour cette requête", vbInformation + vbOKOnly, "Information"
End If

End Sub

suite vba
 

:rolleyes: est ce possible d'executer ce code pour exporter un formulaire?mon pivot table est contruit grâce à l'assistant comme un object du formulaire?

Je ne sais exporter que des tables ou des requêtes, ACCESS 97 oblige!!!
Exporter des !!???fromulaires??!! :confused:

Il te faut recuperer la requête sous forme de chaine SQL pour lancer
DoCmd.OutputTo acOutputQuery qui exporte une requête

Ou bien utiliser DoCmd.OutputTo acOutputTable pour exporter une table

il y a bien un DoCmd.OutputTo acOutputForm mais je ne sais pas l'utiliser

merci d'avoir essayé c kool