Discussion :

[merlubreizh]

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. Quelqu'un peut-il m'aider ??

[merlubreizh]

Voici le code de mon bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
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".

[com-ace]

Je te propose de sélectionner la feuille de travail. Tu sélectionne le classeur mais pas la feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlBook = .Workbooks.Open("nomfichier")
Set xlSheet = xlBook.Sheets("nomfeuille") ou Set xlSheet = xlBook.Sheets(1)
xlSheet.Cells(2, 1)...

J'espère que cela fonctionnera

[merlubreizh]

Si je te suis bien, ton "nomfeuille" correspond à mon nom de formulaire ??

[merlubreizh]

Déjà, il connait pas le Excel.Application .

[com-ace]

as tu mis en place les Références de bibliothèques en clicquent sur MICROSOFT OBJECT LIBRARY.
Fenêtre Code - OUTILS REFERENCES Microsoft Object LIBRARY

[cafeine]

Il faut déclarer la référence aux objets Excel, et plus généralement pour plus d'info sur les exports Excel, je te conseille de consulter mon tuto (lien dans ma signature).

[merlubreizh]

as tu mis en place les Références de bibliothèques en clicquent sur MICROSOFT OBJECT LIBRARY.
Fenêtre Code - OUTILS REFERENCES Microsoft Object LIBRARY

Je peux pas parce que je travaille pas sous VB mais sous Access. Je code en faisant clic droit puis "Ajouter code événement".

[com-ace]

Pour passer en VB, Sur la fenêtre Base de données, Affichage Code

[merlubreizh]

C'est bon ça marche, j'avais pas vu le menu "Références" . Merci les gars !!