definir parametre XL suite export access

definir parametre XL suite export access - VB/VBA/VBS - Programmation

Marsh Posté le 30-06-2010 à 11:12:42    

bonjour
 
lorsque j'exporte mes requetes access sous XL j'aimerai pouvoir effectuer la mise en forme de XL
 
mais je sais pas comment faire car a chaque export c'est un nouveau fichier XL qui se crée
 
merci de votre aide
 
thierry :??:

Reply

Marsh Posté le 30-06-2010 à 11:12:42   

Reply

Marsh Posté le 30-06-2010 à 11:58:06    

Hello
 
Comme on se retrouve... :hello:  
 
Déja, comment fais tu ton export ?
Sais tu faire de la mise en forme sous Excel en VBA ?


Message édité par SuppotDeSaTante le 30-06-2010 à 11:58:20

---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 30-06-2010 à 12:41:50    

bonjour
 
pas de prob pour la mise en forme sous VBA pour le reste je vais comme ca
 
dim bdd database, req as querf, en as recordset set bdd = workspaces (0).open database( application.path & "\sauvegardeccp.mdb" )
ste req = bdd.dcreatequerydef ("releve" )
req.sql ""selection * [revele] = "oui"
set enr = bdd.openrecorset (releve" )
numberofrows = sheets (feuil1.cells (1, 1). copyfromrecordsets(enr)
sheets ("feuil1" ).activate
 
et voila apres je voudrai pourvoir faire une mise en page personnalisé
 
a +
 
thierry

Reply

Marsh Posté le 30-06-2010 à 12:54:52    

Tu n'exportes donc pas tes requetes, mais tu les importes depuis Excel ?
Je comprends pas la...


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 30-06-2010 à 13:04:23    

re non je bosse avec acces mais pour l'export j'utilise Xl car cela fais de plus joli tableau et plus facile a mettre en page que les etats car mes requete on des variable que n'aime pas les etats

Reply

Marsh Posté le 30-06-2010 à 13:24:51    

iblis75 a écrit :

re non je bosse avec acces mais pour l'export j'utilise Xl car cela fais de plus joli tableau et plus facile a mettre en page que les etats car mes requete on des variable que n'aime pas les etats


???
 
Pis, c'est plus facile quand meme de tout faire a partir d'access... Tu exportes dans un fichier Excel ta requete, et a partir d'Access tu pilotes Excel pour faire la mise en forme...


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 30-06-2010 à 13:27:56    

ok merci mais comment je fais ca peux tu me donner un petit exemple
 
merci

Reply

Marsh Posté le 30-06-2010 à 14:12:47    

Pour exporter

Code :
  1. DoCmd.TransferSpreadsheet acExport, 8, "NomDeTaTable/Requete", "C:\Classeur1.xls", True, ""


 
Pour gerer excel :

Code :
  1. Set AppExc= CreateObject("Excel.application" )
  2. AppExc.Workbooks.Open Filename:="C:\Classeur1.xls"


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 30-06-2010 à 14:20:32    

ok merci encore une petite question j'insere ou le code vba pour la mise en page

Reply

Marsh Posté le 30-06-2010 à 14:22:46    

ok j'ai compris j'avais lu un peu vite lol
 
encore merci de ton aide  
 
thierry

Reply

Marsh Posté le 30-06-2010 à 14:22:46   

Reply

Marsh Posté le 30-06-2010 à 14:24:21    

Dans un module d'access
 

Code :
  1. DoCmd.TransferSpreadsheet acExport, 8, "NomDeTaTable/Requete", "C:\Classeur1.xls", True, ""
  2. Set AppExc= CreateObject("Excel.application" )
  3. AppExc.Workbooks.Open Filename:="C:\Classeur1.xls"
  4. AppExc.Cells(1, 1).Select
  5. AppExc.Selection.Font.Bold = True
  6. AppExc.Selection.Font.ColorIndex = 5


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 30-06-2010 à 14:32:43    

encore mille merci cela faisiait un bout que je cherché qlq chose
 
je vais faire un essai
 
a +
 
thierry
 

Reply

Marsh Posté le 30-06-2010 à 14:38:44    

re j'ai un petit sous avec AppEXC il ne dit variable non definie lo
 
as tu idée ?

Reply

Marsh Posté le 30-06-2010 à 16:52:05    

Tu dois avoir "Option Explicit" en haut de ton module. Ce qui t'oblige a déclarer toutes tes variables.
Dim AppEXC  
Devrait resoudre le souci, ou tu vires "Option Explicit" mais bon...


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 01-07-2010 à 09:41:18    

merci pour tout je reprendrai mes recherches apres les vacances
 
et encore merci pour ton aide

Reply

Marsh Posté le 01-07-2010 à 09:47:06    

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed