Re : Problème référencement Excel VB6
Bonsoir youky, tototiti2008 et le Forum,
Malheuresement je bloque toujours.
J ai bien mis :
wbExcel.Save
wbExcel.Close True
appExcel.Quit
Set wsExcel = Nothing
Set wbExcel = Nothing
Set appExcel = Nothing
Mais je n'arrive pas a quitter excel !!!
Voila le morceau de code qui me bloque
'supprime les lignes vides
Dim Jk As Long
Dim Plage2 As Object
Set Plage2 = wbExcel.ActiveSheet.range("D5
" & wbExcel.ActiveSheet.range("D65536").End(xlUp).Row) 'modifié
For Jk = wbExcel.ActiveSheet.Plage2.Cells.Count To 1 Step -1
If Plage2.Cells(Jk, 4).Value = "" Then 'modifié
Plage2.Cells(Jk, 4).EntireRow.Delete 'modifié
End If
Next
'mettre sous totaux
Selection.Subtotal GroupBy:=5, Function:=xlSum, TotalList:=Array(3, 5), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Cells.Select
Cells.EntireColumn.AutoFit
'''''''''''''''''''''''''''''''''''
Dim Y As Long
Dim myrange2 As String
'boucler sur listbox
With Form1.Label10
Y = 2
myrange2 = wbExcel.ActiveSheet.range("D" & Y).Value
While myrange2 <> ""
myrange2 = wbExcel.ActiveSheet.range("D" & Y).Value
If Right(wbExcel.ActiveSheet.range("D" & Y).Value, 3) = Label10.Caption Then
Form1.Text1 = wbExcel.ActiveSheet.range("D" & Y).Offset(0, -1).Value
End If
Y = Y + 1
Wend
End With
End With
wbExcel.Save
wbExcel.Close True
appExcel.Quit
DoEvents
Set wsExcel = Nothing
Set wbExcel = Nothing
Set appExcel = Nothing
Application.DisplayAlerts = True
Merci infiniment de votre aide