unloader le fichier ?

[petchy]

bonsoir
j'ai fait un programme avec VB6 ou j'ouvre un fichier Excel et la j'envoi des données dans le fichier.La tous va bien
donc mon fichier Excel est bien ouvert ,mais quand je ferme Excel,j'ai toujours mon fichier qui est affiché dans le processus.Apparament il faut unloader la feuille mais j'ai essayer ça
Private Sub CommandButton4_Click()
Application.DisplayAlerts = False
Unload Me
Application.Quit
End Sub
mais j'ai une erreur avec "Unload Me"
auriez vous une idée pour unloader le fichier ?
merci
petchy

 

[Compte Supprimé 979]

Re : unloader le fichier ?

Salut Petchy,

Apparament il faut unloader la feuille mais j'ai essayer ça

D'ou sort tu ce genre de chose !?
Tu peux Unloader un UserForm, mais pas une feuille Excel !

Dans ton prog VB6, tu déclare certainement :
1) une variable pour l'application Excel (Dim AppExcel)
2) une variable pour la feuille (Dim Sht)

Donc dans tron code, il faut :
1) que tu fermes ta feuille Excel (Sht.Close)
2) que tu quites l'application (AppExcel.Quit)
3) que tu mettes tes variables à blanc (Sht is nothing, ...)

A+

 

[petchy]

Re : unloader le fichier ?

Re

je pensais qu'on pouvais décharger une feuille,désolé 🙂
enfin,voila le code que je met dans VB6
Private Sub excel_Click() 'envoi vers EXCEL

'********Déclaration de l'pplication excel aprés avoir réferencer la dll de excel********
Dim xl As excel.Application
Dim mafeuil As excel.Worksheet
Set xl = CreateObject("excel.application")
'********Ouvrire le classeur excel maintenance **********'
xl.Workbooks.Open App.Path & "\BD\excel.xls"
'********Déclarer vers la feuil sur laquel on va travailler******'
Set mafeuil = xl.Worksheets("fiche")

excel.Enabled = False
Range("E3").Value = Label2(2).Caption 'pere
Range("E4").Value = Label2(4).Caption 'mere
Range("E5").Value = Label2(3).Caption 'emploi
Range("E6").Value = Label2(5).Caption 'adresse
Range("I6").Value = Label2(6).Caption 'commune
Range("E7").Value = Label2(1).Caption 'tel fix
Range("I7").Value = Label2(0).Caption 'tel port
Range("D21").Value = Label3(12).Caption 'caf
Range("D25").Value = Label3(7).Caption 'nom enfant
Range("G25").Value = Label3(8).Caption 'prenom enfant
Range("J25").Value = Label3(9).Caption 'date de naisance
Range("L25").Value = Label3(10).Caption 'age
Range("J26").Value = Label3(11).Caption 'sexe
Range("L33").Value = Label3(20).Caption 'cantine
Range("G37").Value = Text1(49).Text 'observation
Range("D30").Value = Frm_Visu.TX1(0).Text '1 semaine total
Range("D31").Value = Frm_Visu.TX1(1).Text '1 semaine total
Range("D32").Value = Frm_Visu.TX1(2).Text '1 semaine total
Range("D33").Value = Frm_Visu.TX1(3).Text '1 semaine total
Range("G30").Value = Frm_Visu.TX1(4).Text '1 semaine total
Range("G31").Value = Frm_Visu.TX1(5).Text '1 semaine total
Range("G32").Value = Frm_Visu.TX1(6).Text '1 semaine total
Range("G33").Value = Frm_Visu.TX1(7).Text '1 semaine total
Range("E30").Value = Frm_Visu.TX2(0).Text '1 semaine total
Range("E31").Value = Frm_Visu.TX2(1).Text '1 semaine total
Range("E32").Value = Frm_Visu.TX2(2).Text '1 semaine total
Range("E33").Value = Frm_Visu.TX2(3).Text '1 semaine total
Range("J30").Value = Frm_Visu.TX2(4).Text '1 semaine total
Range("J31").Value = Frm_Visu.TX2(5).Text '1 semaine total
Range("J32").Value = Frm_Visu.TX2(6).Text '1 semaine total
Range("J33").Value = Frm_Visu.TX2(7).Text '1 semaine total
Range("F30").Value = Frm_Visu.tx4(0).Text '1 semaine total
Range("F31").Value = Frm_Visu.tx4(1).Text '2 semaine total
Range("F32").Value = Frm_Visu.tx4(2).Text '3 semaine total
Range("F33").Value = Frm_Visu.tx4(3).Text '4 semaine total
Range("K30").Value = Frm_Visu.tx4(4).Text '5 semaine total
Range("K31").Value = Frm_Visu.tx4(5).Text '6 semaine total
Range("K32").Value = Frm_Visu.tx4(6).Text '7 semaine total
Range("K33").Value = Frm_Visu.tx4(7).Text '8 semaine total
Range("D11").Value = Text1(8).Text 'prix réel
Range("E11").Value = Text1(9).Text 'commune part
Range("F11").Value = Text1(10).Text 'autre CE
Range("G11").Value = Text1(11).Text 'PSA
Range("H11").Value = Text1(2).Text 'CAF BV
Range("I11").Value = Text1(3).Text 'CAF CV
Range("J11").Value = Text1(4).Text 'CAF TT
Range("K11").Value = Text1(5).Text 'MSA
Range("L11").Value = Label4(0).Caption 'Prix
Range("M11").Value = Label4(2).Caption 'total PSA 1
Range("N11").Value = Label4(1).Caption 'total PSA 2
Range("D15").Value = Text1(13).Text 'immatriculation
Range("E15").Value = re(26).Text 'revenu brut
Range("G15").Value = re(27).Text 'Nombre de parts
Range("I15").Value = Label4(3).Caption 'tranche
Range("L15").Value = Label1(0).Caption 'SNCF
Range("F36").Value = Label1(1).Caption 'SNCF1
Range("I40").Value = Label5(4).Caption 'total chèques vacances
Range("I11").Value = Text1(3).Text 'prix chèques vacances
Range("J12").Value = Text1(0).Text 'nombres de chèques vacances
xl.Visible = True
Set xl = Nothing
End Sub
mais bon si je met "xl.quit" il ferme le fichier,mais se n'est pas se que je veut
je voudrais que mon fichier reste ouvert pour enregistrer ou l'imprimer tous ça dépendra de l'utilisateur.
merci
petchy

 

[Compte Supprimé 979]

Re : unloader le fichier ?

Re, Petchy

Je répondais simplement au problème énoncé au tout début !

j'ai fait un programme avec VB6 ou j'ouvre un fichier Excel et la j'envoi des données dans le fichier.La tous va bien
donc mon fichier Excel est bien ouvert ,mais quand je ferme Excel,j'ai toujours mon fichier qui est affiché dans le processus.

Si tu crées ton objet feuille et que tu ne le referme pas !
Effectivement il apparaitra systématiquement dans les processus, d'ou risque de bug.

Tu peux peut être mettre à la fin de ton code, un choix donné.

Range("J12").Value = Text1(0).Text 'nombres de chèques vacances
xl.Visible = True
' Donner le choix à l'utilisateur ICI
'...
' Ensuite
mafeuil.Close
xl.Quit
Set mafeuil  = nothing
Set xl = Nothing

A essayer !