modifier code

[fenec]

bonjour a tous
dans un classeur j'utilise un bouton pour imprimer plusieurs feuilles
j'aurais aimer savoir s'il serait possible que lorsque je clique sur le bouton les feuilles s'impriment puis en modifiant le code enregistre et ferme le classeur
voici mon code actuel

Sub Imprime_Feuilles()
Application.ScreenUpdating = False
Dim Feuille As Worksheet
For Each Feuille In Sheets(Array("Feuil1", "Feuil2", "Feuil3"))
Feuille.Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
Sheets("Feuil1").Select
Application.ScreenUpdating = True
End Sub

merci de votre aide

 

[Pierrot93]

Re : modifier code

Bonjour Fenec

Rajoute la ligne en bleu

Sub Imprime_Feuilles()
Application.ScreenUpdating = False
Dim Feuille As Worksheet
For Each Feuille In Sheets(Array("Feuil1", "Feuil2", "Feuil3"))
Feuille.Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
Sheets("Feuil1").Select
Application.ScreenUpdating = True
[COLOR="Blue"][B]ActiveWorkbook.Close True[/B][/COLOR]
End Sub

bonne fin d'après midi
@+

 

[fenec]

Re : modifier code

bonjour Pierrot93
je te remercie pour ta rapidite je suis vraiment nul mais en plus est-il possible qu'excel se ferme egalement

 

[Pierrot93]

Re : modifier code

Re,

tu peux utiliser cette instruction, bien que perso, j'aime pas trop l'utiliser, de plus si c'est une appli qui a vocation à être distribuée...

A noter, sous des versions antérieures, ferme excel sans demander si l'on veut ou pas enregistrer les modifs des classeurs déjà ouverts... Alors prudence...

Application.Quit

bonne soirée
@+

 

[fenec]

Re : modifier code

re,
je ne sais pas si je renseigne a la bonne place car excel ne se ferme pas mais prends ta remarque en consideration je vais donc reflechir avant d'appliquer la methode

ferme excel sans demander si l'on veut ou pas enregistrer les modifs des classeurs déjà ouverts... Alors prudence...

Sub Imprime_Feuilles()
Application.ScreenUpdating = False
Dim Feuille As Worksheet
For Each Feuille In Sheets(Array("Feuil1", "Feuil2", "Feuil3"))
Feuille.Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
Sheets("Feuil1").Select
Application.ScreenUpdating = True
ActiveWorkbook.Close True
Application.Quit
End Sub

 

[Pierrot93]

Re : modifier code

Re,

oui, normal pusque le classeur se ferme avant d'avoir pu exécuter cette ligne, à placer dans le module "thisworkbook" dans l'événement "BeforeClose" :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Quit
End Sub

 

[fenec]

Re : modifier code

re,
merci beaucoup cela fonctionne
reste a savoir si je vais maintenant l'appliquer vu t'as remarque
bonne soirée et encore merci