Communauté Informatique NDFR.net : VBA sur access - Programmation (C/C++, Delphi, VB, etc.)
Répondre
VBA sur access
Outils du sujet Modes d'affichage
  #1  
Ancien 15 November 2004, 17h09
vtchikin vtchikin est hors ligne
Membre junior
 
Date d'inscription: 15/11/2004
Messages: 3
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.
Réponse avec citation
  #2  
Ancien 15 November 2004, 17h24
Avatar de sim140680
sim140680 sim140680 est hors ligne
Droopy style
 
Date d'inscription: 16/11/2002
Âge: 38
Messages: 278
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
Réponse avec citation
  #3  
Ancien 15 November 2004, 17h36
vtchikin vtchikin est hors ligne
Membre junior
 
Date d'inscription: 15/11/2004
Messages: 3
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?
Réponse avec citation
  #4  
Ancien 15 November 2004, 17h50
Avatar de sim140680
sim140680 sim140680 est hors ligne
Droopy style
 
Date d'inscription: 16/11/2002
Âge: 38
Messages: 278
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

Dernière édition par sim140680 ; 15 November 2004 à 18h31.
Réponse avec citation
  #5  
Ancien 15 November 2004, 18h18
vtchikin vtchikin est hors ligne
Membre junior
 
Date d'inscription: 15/11/2004
Messages: 3
merci d'avoir essayé c kool
Réponse avec citation
Répondre

Signets


Utilisateurs actuellement actifs visualisant ce sujet : 1 (0 membres et 1 invités)
 
Outils du sujet
Modes d'affichage

Règles des messages
Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas poster de réponses
Vous ne pouvez pas envoyer de pièces jointes
Vous ne pouvez pas éditer vos messages

Le code BB est oui
Les Smilies sont activés : oui
Le code [IMG] est activé : oui
Le code HTML est activé : non

Aller au forum

Sujets similaires
Sujet Auteur Forum Réponses Dernier message
VBA pour ACCESS un simple SELECT en SQL Ichtus Programmation (C/C++, Delphi, VB, etc.) 4 30 July 2004 20h25
Mise à jour critique pour Microsoft Data Access Components Cougar Actualité 1 2 July 2004 23h23
celineee se met au VBA (pour access) celineee Programmation (C/C++, Delphi, VB, etc.) 4 29 April 2004 22h47
migration mysql -> access ok1234 Programmation Web (HTML, PHP, ASP, Java, XML, etc.) 6 1 April 2004 21h54
Microsoft Data Access Components (MDAC) 2.71 Service Pack 1 Werner Actualité 1 2 July 2003 12h48

Toutes les heures sont au format GMT +2. Il est actuellement 20h26.

Activé par vBulletin® Version 3.8.4
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.