Erreur lors de l'exportation vers excel

Question

Salut tout le monde
 je veux faire une exportation de vb vers excel mais je suis confronter a une erreur lorsque je declare
Dim xls As Excel.Workbook 
quand j'arrive &#224; as excel n'apparait pas 
et losque je declare
Dim xls As New Application
et jarrive &#224; new apllication n'apparait pas 

est ce que quelqu'un peut m'aider 
s'il vous plait

Merci

jpleroisse · Answer

As-tu r&#233;f&#233;renc&#233; Micosotf  "Excel x.0 Object Libray" dans Projet/R&#233;f&#233;rences.
Si non fais-le, Si oui essaye ce code.Tu modifieras ensuite pour ton Prg.

Private Sub Command1_Click()
Dim objXL As New Excel.Application
Dim wbXL As New Excel.Workbook
Dim wsXL As New Excel.Worksheet


If Not IsObject(objXL) Then
    MsgBox "Vous Avez Besoin de Microsoft Excel  pour cette Fonction", vbExclamation, "Excel"
    Exit Sub
End If


' Ouvre Excel
objXL.Visible = True
Set wbXL = objXL.Workbooks.Add
Set wsXL = objXL.ActiveSheet


wsXL.Cells(1, 1).Value = 123456



End Sub

jpleroisse

Erreur lors de l'exportation vers excel

1 réponse

Discussions similaires