agadiroufla
XLDnaute Junior
Bonjour,
Je suis entrain de faire un petit EXE qui ouvre excel et le ferme plusieurs fois.
Le premier lancement se déroule bien mais excel rest en tache de fonds (Gestionnaire de taches), mais que je relance le traitement le programme rencontre une erreur "la méthode Range ne fait pas parti de la selection ....".
Pour remédier à ce probleme j'ai essayé de réecrire le programme en décochant le référencement d'excel, du coup la synthaxe est plus difficile et je bloque dans le code qui supprime les ligne vides dans la page excel :
Merci de jeter un oeil au code ci-dessous :
'supprime les lignes vides
Dim Jk As Long
Dim Plage2 As Object
Set Plage2 = wbExcel.ActiveSheet.Range("D5", wbExcel.ActiveSheet.Range("D65536").End(xlUp)) <----- l'erreur du code
For Jk = wbExcel.ActiveSheet.Plage2.Cells.Count To 1 Step -1
If Plage2.Cells(Jk).Value = "" Then
Plage2.Cells(Jk).EntireRow.Delete
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
Je suis entrain de faire un petit EXE qui ouvre excel et le ferme plusieurs fois.
Le premier lancement se déroule bien mais excel rest en tache de fonds (Gestionnaire de taches), mais que je relance le traitement le programme rencontre une erreur "la méthode Range ne fait pas parti de la selection ....".
Pour remédier à ce probleme j'ai essayé de réecrire le programme en décochant le référencement d'excel, du coup la synthaxe est plus difficile et je bloque dans le code qui supprime les ligne vides dans la page excel :
Merci de jeter un oeil au code ci-dessous :
'supprime les lignes vides
Dim Jk As Long
Dim Plage2 As Object
Set Plage2 = wbExcel.ActiveSheet.Range("D5", wbExcel.ActiveSheet.Range("D65536").End(xlUp)) <----- l'erreur du code
For Jk = wbExcel.ActiveSheet.Plage2.Cells.Count To 1 Step -1
If Plage2.Cells(Jk).Value = "" Then
Plage2.Cells(Jk).EntireRow.Delete
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