[VB6] Problème Excel avec sélection de ligneRésolu

Question

Bonjour tout le monde    
J'ai un souci VB6 avec EXCEL qui est assez irritant.
Voila dans un 1er bouton ,j'ouvre un fichier excel dans lequel je s&#233;lectionne toutes les lignes non vides.
Et dans un 2&#232;me bouton, je reit&#232;re la m&#234;me chose mais avec un fichier diff&#233;rent.

Voila le code :

Option explicit
Dim appExcel As Excel.Application
================================
Private Sub Command1_Click()
'D&#233;claration des variables

Dim wbExcel As Excel.Workbook
Dim wsExcel As Excel.Worksheet 'Feuille Excel

'Ouverture de l'application

Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open(App.Path & "\Listing.xls")
Set wsExcel = appExcel.ActiveWorkbook.Worksheets("Feuil1")

appExcel.UserControl = True
appExcel.Application.DisplayAlerts = False
appExcel.Visible = True

With wsExcel
 
    .Rows("4:4").Select
    .Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    appExcel.Application.Workbooks("Listing.xls").Save
 End With

Set appExcel = Nothing
Set wsExcel = Nothing

End Sub

=======================================
Private Sub Command2_Click()

Dim wbExcel As Excel.Workbook
Dim wsExcel As Excel.Worksheet 'Feuille Excel

'Ouverture de l'application

Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open(App.Path & "\Listing_save.xls")
Set wsExcel = appExcel.ActiveWorkbook.Worksheets("D&#233;tail")

appExcel.UserControl = True
appExcel.Application.DisplayAlerts = False
appExcel.Visible = True

With wsExcel
    
    .Rows("4:4").Select
    .Range(Selection, ActiveCell.SpecialCells(xlCellTypeLastCell)).Select
    appExcel.Application.Workbooks("Listing_save.xls").Save
End With

Set appExcel = Nothing
Set wsExcel = Nothing

End Sub
=======================================
Mon probl&#232;me est que la s&#233;lection pour un 1er fichier fonctionne parfaitement quand je lance command 1, mais lorsque je lance Command 2 j'ai une erreur "une erreur de type variable objet  ou variable bloc with non d&#233;finie" sur la ligne .Range(Selection, ActiveCell.SpecialCells(xlCellTypeLastCell)).Select.
et lorsque je lance command 2 en 1er, c'est sur command 1 que l'erreur se manifeste.

Alors si quelqu'un pouvait m'aider, cela m'aiderait bien
Merci d'avance

valtrase · Accepted Answer

Salut,
Tu devrais tester en utilisant GetObject en lieu et place de CreateObject en faisant ceci tu testes si excel et d&#233;j&#224; ouvert donc cela donnerais un truc dans le genre

On Error Resume Next                'Utilis&#233; pour v&#233;rifier si Excel s'&#233;x&#233;cute


Set appExcel = GetObject(, "Excel.Application") 'V&#233;rifie si Excel est ouvert


If Err.Number <> 0 Then
        blRunning = False           'Excel n'&#233;tait pas en &#233;xecution
        Set appExcel = CreateObject("Excel.Application")
Else
        blRunning = True
End If
Err.Clear
' ****************************************
ICI TON CODE
' ****************************************

    'Si Excel &#233;tait ouvert on ne le ferme pas
If Not (blRunning) Then
    appExcel.Quit
    Set appExcel = Nothing
End If
                                    'On lib&#232;re la m&#233;moire
'Set appExcel = Nothing
Set wbExcelModel = Nothing
Set wbExcelTemp = Nothing

Tu peu toujours aller voir ma source pour plus d'info

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

fiko81 · Answer

J'ai bien l'impression que tu oublis de fermer ton fichier apr&#232;s ouverture : essai un truc du genre : appExcel.close

 Fiko ;-)

cs_pong77186 · Answer

Ca n'apparait pas dans le code, mais j'ai d&#233;j&#224; essay&#233; de ferm&#233; les applications EXCEL, avec wbExcel.close , et appExcel.application.quit, et j'ai toujours le m&#234;me souci

cs_pong77186 · Answer

Je te remercie, Jean Paul, tu me retires une &#233;pine du pied l&#224;.

[VB6] Problème Excel avec sélection de ligne

4 réponses

Discussions similaires