comment afficher des données Access sur Excel ?

comment afficher des données Access sur Excel ? - VB/VBA/VBS - Programmation

Marsh Posté le 14-09-2005 à 11:31:37    

Salut à tous !!
 
Je rencontre actuellement un petit problème. J'ai un formulaire dans lequel je rentre des coordonnées de clients. J'ai un bouton qui me permet de générer une facture au format Excel. Je souhaiterais afficher dans les cellules Excel les coordonnées du client. J'arrive à lancer Excel mais pas à afficher les données.  
 
Voici le code de mon bouton :
 
Code:
 
Private Sub C_GénérerFactureExcel_Click()
'On Error GoTo Err_C_GénérerFactureExcel_Click
 
'Sub OpenExcelWorkbook(WorkbookPath As String)
    Set oApp = CreateObject("Excel.Application" )
    oApp.Visible = True
    oApp.Workbooks.Open "C:\Documents and Settings\administrateur\Mes documents\Documents Excel Formations\facture.xls"
    oApp.cells(5, 2) = rst![L_NomClient]
    oApp.cells(5, 4) = rst![T_Adresse]
    oApp.cells(5, 7) = rst![T_Telephone]
    Set oApp = Nothing
End Sub
 
'E'rr_C_GénérerFactureExcel_Click:
 '   MsgBox Err.Description
  '  Resume Exit_C_GénérerFactureExcel_Click

   
 
 
Il m'indique pour la fonction cells(nb1, nb2) "objet requis".

Reply

Marsh Posté le 14-09-2005 à 11:31:37   

Reply

Marsh Posté le 15-09-2005 à 13:37:30    

commence peut-être par spécifier le nom de la worksheet que tu utilises pour placer les données.
oApp.sheets(1).cells(5,2) = rst![L_NomClient]

Reply

Sujets relatifs:

Leave a Replay

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