modifier code

Pierrot93

XLDnaute Barbatruc

• 13 Août 2010

• #2

Re : modifier code

Bonjour Fenec

Rajoute la ligne en bleu

Code:

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
@+

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 13 Août 2010

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Août 2010

• #4

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...

Code:

Application.Quit

bonne soirée
@+

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 13 Août 2010

• #5

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Août 2010

• #6

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" :

Code:

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

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 13 Août 2010

• #7

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

 

Vote positif 0 Vote négatif