comment afficher des données Access sur Excel ? - VB/VBA/VBS - Programmation
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]
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".