fermer et enregistrer une feuille excel

bonjours dans mon prog sous vb6 j'ai ce code :

Dim appxl As Excel.Application
________________________

Public Sub extract()

Set appxl = New Excel.Application
'ouverture du fichier excel
appxl.Visible = True
'nouveau classeur
appxl.Workbooks.Add

[mon code d'export de données]

appxl.Quit

End Sub

Mais quand je ferme excel il me demande si je veut enregistrer et où.

Je voudrai donc savoir quel code il faut que je mette pour que sa ferme et enregistre dans un lieu spécifique.

merci d'avance.

Salut, inspire toi de ce code,


For Each w In Workbooks
    If w.Name <> ThisWorkbook.Name Then
        w.Close savechanges:=True
    End If
Next w

Salut

Public Sub extract()

Set appxl = New Excel.Application
'ouverture du fichier excel
appxl.Visible = True
'nouveau classeur
appxl.Workbooks.Add

[mon code d'export de données]

thisworkbook.SaveAs("C:\classeur.xls")
thisworkbook.close savechanges:= true
appxl.Quit

End Sub

 Drikce 06 (ForumOfficeEtVBA)
Si la réponse vous convient: Réponse acceptée.

Bien sur, c'est le commentaire qui m'a perturbé,
'ouverture du fichier excel

 Alors qu'en fait, j'aurais du me fier à ca,
Set appxl = New Excel.Application

Ca n'ouvre pas un fichier .xls mais Excel tout court.

Bien joué Drikce

Je crois qu'il serait également judicieux de faire aussi ceci :
Set thisworkbook = Nothing
Set appxl = Nothing

pour libérer les ressources.

 pseudoOM

Je crois qu'il serait également judicieux de faire aussi ceci :
Set thisworkbook = Nothing
Set appxl = Nothing

pour libérer les ressources.

 pseudoOM

En fait c'est surtout à cause du appxl.Workbooks.Add

 Drikce 06 (ForumOfficeEtVBA)
Si la réponse vous convient: Réponse acceptée.

En effet, bonne suggestions pseudoOM.

Alors merci a tous,
 Drikce06 j'ai mis en place ton morceau de code

thisworkbook.SaveAs("C:\Test.xls")
thisworkbook.close savechanges:= true

mais j'ai une erreur des la ligne "SaveAs", ( la methode 'thisworkbook' de l'objet'_global' a échoué)!!!!!

heu sa veut dire quoi sa?

 merci pour t'as suggestions pseudoOM

PS: je n'est pas de fichier de départ Excel peut être que l'erreur vient de la mais j'ai essayé de mêtre un fichier excel sous c: qui s'appelé test.xls mais sa na rien changé!!!

Remplace par activeworkbook alors et cela devrai être bon.

 Drikce 06 (ForumOfficeEtVBA)
Si la réponse vous convient: Réponse acceptée.