Export Access -> Excel

Export Access -> Excel - Logiciels - Windows & Software

Marsh Posté le 07-12-2004 à 16:21:44    

Bonjour tout le monde  :hello: , voila mon probleme :  
 
sous access(2003) j'ai 4 tables à exporter dans un fichier Excel (une feuille par table), et cela doit etre fait juste en appuyant sur un boutton dans un formulaire.  
 
Ne connaisant pas VBA et n ayant pas vraiment le temps de l'apprendre, je voulais faire ca avec une macro en utilisant des copierVer, mais malheureusement le fichier xls est écrasé à chaque fois   :ouch:  
Si vous aviez une idée, merci  :jap:


Message édité par Sylad le 09-12-2004 à 14:13:10
Reply

Marsh Posté le 07-12-2004 à 16:21:44   

Reply

Marsh Posté le 08-12-2004 à 10:26:36    

un petit up

Reply

Marsh Posté le 08-12-2004 à 11:40:48    

moi ce que je fais pour pas que le fichier soit écrasé je rajoute date() et time() dans le nom du fichier

Reply

Marsh Posté le 08-12-2004 à 14:19:12    

Ok merci, malheureusement les personnes qui ont ces besoins ne voudrons pas de cette solution, merci quand même phleup :jap:

Reply

Marsh Posté le 08-12-2004 à 16:05:39    

Bon pour ceux que ça intéresse, voilà le code VBA qui ma permis de faire ce que je voulais (donc malheureusement je n’est pas sut le faire qu’avec une macro Access).Je ne connais pas VBA mais ca semble marché :  
 
Code:  
 
Function MacroBilanContact2()  
 
    Dim appExcel As Excel.Application 'Application Excel  
     
'Transfert des tables access dans une feuille portant le même nom que la table  
     
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "BilanContact20032004Inscription2003", "BilanContact-Inscriptions.xls"  
 
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "BilanContact20032004Inscription2004", "BilanContact-Inscriptions.xls"  
 
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "BilanContact20032004MoisCumulEntretiensTable", "BilanContact-Inscriptions.xls"  
 
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "BilanContact20032004StageEntretiens", "BilanContact-Inscriptions.xls"  
 
    Set appExcel = CreateObject("excel.application" )  
    Set wbExcel = appExcel.Workbooks.Open("BilanContact-Inscriptions.xls" )  
     
    appExcel.Visible = True  
   
End Function  
 

Reply

Sujets relatifs:

Leave a Replay

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