Salut,
Qqn pourrait-il me dire pq il me dit "erreur definie par l'application ou par l'objet"
Public exp As Excel.Application
Sub exportExcel()
Dim ligne_account As Integer
Dim colonne_account As Integer
Dim facteur As Integer
ligne_account = 3
colonne_account = 2
facteur = 0
Set exp = CreateObject("excel.application" )
exp.DisplayAlerts = True
exp.Visible = True
exp.Workbooks.Add
exp.Range("A2" ) = "DBROK SUD"
exp.Range("B1" ) = "Nom Account"
exp.Range("D1" ) = "Evol 0"
exp.Range("E1" ) = "Evol 1"
exp.Range("F1" ) = "Evol 2"
exp.Range("G1" ) = "Evol 3"
exp.Range("H1" ) = "Evol 4"
exp.Range("I1" ) = "Evol 5"
exp.Range("J1" ) = "Evol 9"
exp.ActiveSheet.Cells(ligne_account, colonne_account).Value = "2-2"
exp.ActiveSheet.Cells(ligne_account + 9, colonne_account).Value = "1-1"
textes_primes (facteur)
facteur = facteur + 1
textes_primes (facteur)
' exp.ActiveWorkbook.SaveAs "D:\Pipe_" & Day(Date) & "_" & Month(Date) & "_" & Year(Date) & ".xls"
exp.Application.Quit
End Sub
Private Sub textes_primes(valeur As Integer)
exp.ActiveSheet.Cells(4 + valeur * 9, colonne_account).Value = "PP"
End Sub
