fermer et enregistrer une feuille excelRésolu

Question

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.

pseudoOM · Accepted Answer

moi je fait comme ça :

Set xl_App = CreateObject("Excel.Application")
Set xl_Book = xl_App.Workbooks.Open("c:" + str_SFichier)

[le code pour remplir la feuille]

xl_Book.Save
xl_Book.Close savechanges:=False
Set xl_Book = Nothing
Set xl_App = Nothing

Pour cet exemple ma feuille Excel existe déjà et je l'ouvre pour la remplir. Ensuite pour mes besoins je la déplace dans un autre répertoire quand elle est complétée.

FileCopy "c:" + str_SFichier, "c:" + str_DFichier

Sinon dans un autre programme je fais comme ça (et là la feuille n'existe pas avant de la créer)

Set excel_ElevesCours = CreateObject("excel.Application")
excel_ElevesCours.Visible = True --> facultatif c'est juste pour que la feuille Excel s'affiche à l'écran
excel_ElevesCours.Workbooks.Add
Set Feuille_Crs = excel_ElevesCours.Worksheets.Add

[Code pour remplir la feuille]

excel_ElevesCours.ActiveWorkbook.SaveAs (str_NomFicXls) 'Variable qui contient le chemin d'enregistrement (ex : c:\Doc Excel\Fichier.xls
excel_ElevesCours.Quit

Set Feuille_Crs = Nothing
Set excel_ElevesCours = Nothing

 pseudoOM

cs_Nicko11 · Answer

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

drikce06 · Answer

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.

cs_Nicko11 · Answer

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

pseudoOM · Answer

Je crois qu'il serait également judicieux de faire aussi ceci :
Set thisworkbook = Nothing
Set appxl = Nothing

pour libérer les ressources.

 pseudoOM

pseudoOM · Answer

Je crois qu'il serait également judicieux de faire aussi ceci :
Set thisworkbook = Nothing
Set appxl = Nothing

pour libérer les ressources.

 pseudoOM

drikce06 · Answer

En fait c'est surtout à cause du appxl.Workbooks.Add

 Drikce 06 (ForumOfficeEtVBA)
Si la réponse vous convient: Réponse acceptée.

cs_Nicko11 · Answer

En effet, bonne suggestions pseudoOM.

sephiroth27 · Answer

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é!!!

drikce06 · Answer

Remplace par activeworkbook alors et cela devrai être bon.

 Drikce 06 (ForumOfficeEtVBA)
Si la réponse vous convient: Réponse acceptée.

sephiroth27 · Answer

bon mon code ressemble a sa maintenant:

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]






ActiveWorkBook.SaveAs("C:\classeur.xls")
ActiveWorkBook.close savechanges= true
appxl.Quit



set appxl = Nothing
End Sub




si je fait appel une deuxieme fois à cette fonction le message suivant s'affiche

" Variable objet ou variable bloc With non définie " a la ligne saveAs 

Qu'est ce qui m'veut lui aussi, il veut rentrer en confli avec moi?

drikce06 · Answer

Qu'est ce que tu as comme code là-dedans
[mon code d'export de données]




Sinon essaye:
Public Sub extract()
Set appxl = New Excel.Application
'ouverture du fichier excel
appxl.Visible = True
'nouveau classeur
appxl.Workbooks.Add

ActiveWorkBook.SaveAs("C:\classeur.xls")

[mon code d'export de données]

WorkBooks("classeur.xls").close savechanges= true
appxl.Quit

set appxl = Nothing
End Sub

 Drikce 06 (ForumOfficeEtVBA)
Si la réponse vous convient: Réponse acceptée.

sephiroth27 · Answer

Merci bien la deuxiéme solution est celle qu'il me fallait, comme je n'avait pas de fichier excel de créer le code fonctionne a merveille

Encore merci

sephiroth27 · Answer

Merci bien PseudoOM, la deuxiéme solution est celle qu'il me fallait, comme je n'avait pas de fichier excel de créer le code fonctionne a merveille

Encore merci

pseudoOM · Answer

Je suis content d'avoir pu t'aider et que cela fonctionne. Ce n'est qu'un juste retour des choses car moi aussi de temps en temps j'ai besoin d'aide et je suis bien heureux de pouvoir la trouver ici.
Bonne continuation !

pseudoOM

Fermer et enregistrer une feuille excel

15 réponses

Votre réponse

Discussions similaires