Imprimer une page sans aller sur cette page...

Le
Yvan
Bonjour,

Dans l'un de mes classeurs, si l'on active un onglet, cela déclenche une
macro.

Pour diverses raisons, je souhaite dans certaines occasions imprimer cet
onglet.

Mais avec une formule du type :

With worksheets("Onglet concerné")
.Printout Copies:=1
End with

la macro est lancée puisque l'onglet est activé !!!

Comment faire pour éviter cet inconvénient ???

--
Merci pour vos réponses.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #4814301
Pour imprimer une feuille dans Excel, cette dernière n'a
pas besoin d'être activé. As-tu des problèmes avec la
syntaxe que tu as utilisée ? Si oui, quel est le message d'erreur ?

With worksheets("Onglet concerné")
.Printout Copies:=1
End with






"Yvan"
Bonjour,

Dans l'un de mes classeurs, si l'on active un onglet, cela déclenche une
macro.

Pour diverses raisons, je souhaite dans certaines occasions imprimer cet
onglet.

Mais avec une formule du type :

With worksheets("Onglet concerné")
.Printout Copies:=1
End with

la macro est lancée puisque l'onglet est activé !!!

Comment faire pour éviter cet inconvénient ???

--
Merci pour vos réponses.
Youky
Le #4814291
Salut Yvan,
Pour désactiver l'événement Activation d'un onglet
Youky

Application.EnableEvents = False
With Worksheets("Feuil2")
.PrintOut Copies:=1
End With
Application.EnableEvents = True
FFO
Le #4814251
Salut Yvan

Si tu veux éxécuter ces lignes de manière occasionnelle et non à
l'activation de l' onglet
Soit tu mets avant ces lignes une condition pour leur éxécution (à déterminer)
If Condition then
With worksheets("Onglet concerné")
.Printout Copies:=1
End with
End If

Soit dans le VBA de l'onglet à la suite de ton code tu les mets dans une
autre procédure évennementielle de type Double click par exemple :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
With worksheets("Onglet concerné")
.Printout Copies:=1
End with
End Sub

Un simple doubleclick dans une cellule déclenchera l'impression

Soit tu intégres ces lignes dans un module classique relié à un bouton que
tu actives à la demande

Espérant avoir répondu à ton attente


Bonjour,

Dans l'un de mes classeurs, si l'on active un onglet, cela déclenche une
macro.

Pour diverses raisons, je souhaite dans certaines occasions imprimer cet
onglet.

Mais avec une formule du type :

With worksheets("Onglet concerné")
.Printout Copies:=1
End with

la macro est lancée puisque l'onglet est activé !!!

Comment faire pour éviter cet inconvénient ???

--
Merci pour vos réponses.


Publicité
Poster une réponse
Anonyme