ouverture et fermeture excel

Question

Bonjour a tous,

Voici mon appli qui utilise excel. Si j'imprime une fois avec mon appli je peux utilise excel et mon appli sans probleme. Mais si j'ouvre excel avant alors la mon appli plante.

Merci d'avance pour votre aide

Public Sub Appelexcel()

On Error Resume Next

Set obexcelapp = GetObject(, "excel.application")
  'MsgBox Err.Number
If Err.Number <> 0 Then
  Set obexcelapp = CreateObject("excel.application")
       blnRunning = False
Else
    blnRunning = True
    'MsgBox "Excel est déjà ouvert. Fermer le avant d'imprimer.", 16, "Impression"

End If

    obexcelapp.Workbooks.Add
Set obworksheet = obexcelapp.ActiveSheet

End Sub

Public Sub Imprimeetquitte()

'Imprime les etiquettes
    obworksheet.PrintOut
'obExcelapp.save ("c:\vb98.xls")

    obexcelapp.ActiveWorkbook.Close False

If Not (blnRunning) Then
Set Workbook = Nothing
Set obexcelapp = Nothing
'obexcelapp.Quit
'MsgBox ""
End If

    Etiquettes.TitleBarRollUp1.Caption = "Etiquettes"
    
End Sub

KC62 · Answer

Slt ! 

if faut que tu ferme tes processus EXCEL, pour vérifier si il sont fermé fait un [CTRL]+[ALT]+[SUPPR] et regarde dans les processus si un d'excel est ouvert.

pour fermer tes processus voila le code : 

obxlapp.quit
obworksheet.close
set obxlapp = nothing
set obworksheet = nothing

Sa devrais marché ( en tt K C comme sa ke je fait...)

KC62

On a pas toutes les solutions de tous les probleme mais chaque probleme à ses solutions ...

sobullshit · Answer

ça passe pas en remplacant le set...=getobject() par un dim .... as new excel.application?

Ouverture et fermeture excel

2 réponses

Discussions similaires