Bonjour
Je cherche le code à introduire dans une macro afin que lorsque que j'arrive
sur la fenêtre aperçu avant impression :
- si j'appuie sur le bouton "imprimer", la macro continue.
- si j'appuie sur le bouton "fermer", ferme la fenêtre aperçu avant
impression et arrête la macro.

Merci pour votre aide.
PJL

Bonjour.
Pas de problème avec XL2007 chez moi. Peux-tu poster ton code et préciser ta
version d'Excel ?
Cordialement.
Daniel
"PJL" <pjl***siesa.ch> a écrit dans le message de news:
uKzZDlJ7IHA.3260***TK2MSFTNGP03.phx.gbl...
> Bonjour
> Je cherche le code à introduire dans une macro afin que lorsque que
> j'arrive
> sur la fenêtre aperçu avant impression :
> - si j'appuie sur le bouton "imprimer", la macro continue.
> - si j'appuie sur le bouton "fermer", ferme la fenêtre aperçu avant
> impression et arrête la macro.
>
> Merci pour votre aide.
> PJL
>
>

Merci Daniel pour ton intérêt à me rendre service.
Excuse moi j'ai excel 2003 .
Encore une chose je ne peux pas utiliser Workbook car jai plusieur bouton
impression
voici mon code:

Sub Impression1()

Dim Nbrecopie As String

Nbrecopie = Range("AG14").Value

Application.Run "Natation54.xls!Course_01"
Application.Run "Natation54.xls!Liste_des_résultats"

ActiveWindow.SelectedSheets.PrintPreview


'**** Je voudrai à ce moment là soit continuer la macro avec le bouton
imprimer de la fenêtre apercu soit arrêter la macro si je click sur le
bouton fermer*****



ActiveWindow.SelectedSheets.PrintOut Copies:=Nbrecopie, Collate:=True

Application.Run "Natation54.xls!Inscription"
Application.Run "Natation54.xls!MenuCourse01"


End Sub

Salutations PJL



"Daniel.C" <dZZZcolardelle***free.fr> a écrit dans le message de
news:u1$jEhK7IHA.4204***TK2MSFTNGP03.phx.gbl...
> Bonjour.
> Pas de problème avec XL2007 chez moi. Peux-tu poster ton code et préciser
ta
> version d'Excel ?
> Cordialement.
> Daniel
> "PJL" <pjl***siesa.ch> a écrit dans le message de news:
> uKzZDlJ7IHA.3260***TK2MSFTNGP03.phx.gbl...
> > Bonjour
> > Je cherche le code à introduire dans une macro afin que lorsque que
> > j'arrive
> > sur la fenêtre aperçu avant impression :
> > - si j'appuie sur le bouton "imprimer", la macro continue.
> > - si j'appuie sur le bouton "fermer", ferme la fenêtre aperçu avant
> > impression et arrête la macro.
> >
> > Merci pour votre aide.
> > PJL
> >
> >
>
>

Dans un module :

Public var As Integer
Sub Impression1()

Dim Nbrecopie As String

Nbrecopie = 1
var = 0

ActiveWindow.SelectedSheets.PrintPreview


'**** Je voudrai à ce moment là soit continuer la macro avec le bouton
'imprimer de la fenêtre apercu soit arrêter la macro si je click sur le
'bouton fermer*****




If var = 1 Then Exit Sub
var = 0
ActiveWindow.SelectedSheets.PrintOut Copies:=Nbrecopie, Collate:=True
Application.Run "Natation54.xls!Inscription"
Application.Run "Natation54.xls!MenuCourse01"


End Sub

Dans "ThisWorkbook" :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
var = var + 1
If var = 2 Then Cancel = True
End Sub

Daniel
"PJL" <pjl***siesa.ch> a écrit dans le message de news:
OWbgc8M7IHA.2212***TK2MSFTNGP06.phx.gbl...
> Merci Daniel pour ton intérêt à me rendre service.
> Excuse moi j'ai excel 2003 .
> Encore une chose je ne peux pas utiliser Workbook car jai plusieur bouton
> impression
> voici mon code:
>
> Sub Impression1()
>
> Dim Nbrecopie As String
>
> Nbrecopie = Range("AG14").Value
>
> Application.Run "Natation54.xls!Course_01"
> Application.Run "Natation54.xls!Liste_des_résultats"
>
> ActiveWindow.SelectedSheets.PrintPreview
>
>
> '**** Je voudrai à ce moment là soit continuer la macro avec le bouton
> imprimer de la fenêtre apercu soit arrêter la macro si je click sur le
> bouton fermer*****
>
>
>
> ActiveWindow.SelectedSheets.PrintOut Copies:=Nbrecopie, Collate:=True
>
> Application.Run "Natation54.xls!Inscription"
> Application.Run "Natation54.xls!MenuCourse01"
>
>
> End Sub
>
> Salutations PJL
>
>
>
> "Daniel.C" <dZZZcolardelle***free.fr> a écrit dans le message de
> news:u1$jEhK7IHA.4204***TK2MSFTNGP03.phx.gbl...
>> Bonjour.
>> Pas de problème avec XL2007 chez moi. Peux-tu poster ton code et préciser
> ta
>> version d'Excel ?
>> Cordialement.
>> Daniel
>> "PJL" <pjl***siesa.ch> a écrit dans le message de news:
>> uKzZDlJ7IHA.3260***TK2MSFTNGP03.phx.gbl...
>> > Bonjour
>> > Je cherche le code à introduire dans une macro afin que lorsque que
>> > j'arrive
>> > sur la fenêtre aperçu avant impression :
>> > - si j'appuie sur le bouton "imprimer", la macro continue.
>> > - si j'appuie sur le bouton "fermer", ferme la fenêtre aperçu avant
>> > impression et arrête la macro.
>> >
>> > Merci pour votre aide.
>> > PJL
>> >
>> >
>>
>>
>
>

Merci Daniel pour ton code

Salutations
PJL