Comment autoriser ou non l'impression de feuilles?

[aredo]

bonjour,

Ds un projet contenant une centaine de feuilles, je voudrais seulement avoir la possibilité d'imprimer une seule feuille.
Ds ThisWorkbook, j'ai inséré cet argument:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
MsgBox "Vous n'avez pas le droit d'imprimer ce document"
End Sub

J'aimerais garder cet interdit en autorisant seulement l'impression d'une feuille spécifique.
Voyez-vous une possiblité?
merci au fofo

 

[gwenlorin]

Re : Comment autoriser ou non l'impression de feuilles?

Bonjour,

qu'est ce que tu cherches à faire précisément :
- imprimer juste la feuille active si c'est celle autorisée
- imprimer une seule feuille (celle autorisée) même si on se trouve sur une autre feuille.

Note : Ce contrôle ne sera valable que si les macros sont actives, bien sur.

 

[aredo]

Re : Comment autoriser ou non l'impression de feuilles?

salut gwenlorin,

Sur 100 feuilles, une seule doit être imprimable, (feuille active). On doit interdire l'impression des autres.
Qu'en penses-tu,

 

[Risleure]

Re : Comment autoriser ou non l'impression de feuilles?

Bonsoir aredo, le Forum

Une proposition en PJ. Seul "Feuil5" est imprimable

A+

 

[aredo]

Re : Comment autoriser ou non l'impression de feuilles?

salut Risleure,

C'est tout à fait ce que je veux. Parcontre, lors de l'impression de la feuille 5, je n'ai pas d'interdit, mais elle ne s'imprime pas. En vois-tu la cause?
@+

 

[aredo]

Re : Comment autoriser ou non l'impression de feuilles?

bonjour,

J'attends vos suggestions, je n'ai tjrs pas trouvé la soluce.
merci au fofo

 

[Risleure]

Re : Comment autoriser ou non l'impression de feuilles?

Bonsoir le Forum, aredo, Jean Marcel

Bien vu!!! Merci jean-marcel (que je salue en retour 😀) d'avoir parfaitement complété la deuxième condition du "If", j'avais été trop vite en besogne.
........et hier n'était pas une très bonne journée pour prendre le train donc retour tardif à la casa.

Désolé aredo de t'avoir fourni une réponse incomplète 😱

A+

 

[aredo]

Re : Comment autoriser ou non l'impression de feuilles?

salut Jean-Marcel, Risleure,

http://img24.imageshack.us/i/code4.gif/
Je l'ai inséré ds mon projet et il bloque sur: Feuille = ActiveSheet.Name

Les 100 feuilles ont toutes des N° comme par exemple 6942-5, 3004-1 etc.. La feuille à imprimer s'appelle "stock". Quelles sont les chgts à effectuer.
Merci à tous les deux pour votre dévouement.
A bientôt

 

[aredo]

Re : Comment autoriser ou non l'impression de feuilles?

Re,

Cà fonctionne, super. Merci encore et bonne continuation.

 

[kiki29]

Re : Comment autoriser ou non l'impression de feuilles?

Salut, un probleme peut survenir si un utilisateur renomme l'onglet de la feuille en question, pour éviter cela te renseigner sur CodeName qui évitera ce type de désagrément : Sheet CodeNames: Reference Sheets in Excel Workbooks by Code Name
Ci-dessous un exemple ou la feuille "'5" a été renommée en Feuil12 et Sh5 en utilisant "Code Name"

 

[aredo]

Re : Comment autoriser ou non l'impression de feuilles?

salut kiki29, le fofo

Effectivement le nom peut changer. Ta réflexion a donc toute son importance.
Merci d'y avoir pensé. Parcontre la page renommée ne s'imprime pas. Le code est-il incomplet?
bon wkend à tous

 

[kiki29]

Re : Comment autoriser ou non l'impression de feuilles?

Salut, effectivement, je te laisse le soin d'ajouter la ligne de code permettant l'impression

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

 

[aredo]

Re : Comment autoriser ou non l'impression de feuilles?

Re,

Autant pour moi, j'avais mis des guillemets à Sh5. En tout cas, merci encore pour cette suggestion.
bonne continuation