[VBA-E] comment empécher l'impression

Version imprimable

19/01/2007, 11h42
lio62

[VBA-E] comment empécher l'impression

bonjour,
dans un fichier excel j'ai plusieurs feuilles et je ne voudrai autoriser l'impression que dans une feuille bien précise.

merci
19/01/2007, 12h51
ouskel'n'or

Peux-tu les masquer (les feuilles que tu ne veux pas voir imprimer) ?
A+
19/01/2007, 14h18
lio62

non je ne peux pas

a+

Hello,

as-tu essayé un truc du genre ?

Code:

1
2
3
4
5
6
7
8
9
Private Sub Workbook_BeforePrint(Cancel As Boolean)
 
' on verifie que c'est la bonne feuille et qu'il n'y a pas de multisélection.
If ActiveWindow.SelectedSheets.Count = 1 And  ActiveSheet.Name = "Ma seule feuille imprimable" Then
    ' Ne rien faire
Else
    Cancel = True
End If
End Sub

19/01/2007, 18h59
lio62

non je vois ca je vais essayer merci

ta ligne de commande n'est pas bonne je suis désolé
19/01/2007, 19h19
SfJ5Rpw8

Citation:

Envoyé par lio62

ta ligne de commande n'est pas bonne je suis désolé

un if de trop .... (le 2° ) ...et attention minuscule/majuscule pour nom de la feuille...
19/01/2007, 20h25
cafeine

Citation:

Envoyé par bbil

un if de trop .... (le 2° ) ...et attention minuscule/majuscule pour nom de la feuille...

Merci étourderie corrigée ;)

bonjour,

j'ai mis cela comme code dans this workbook, le problème c'est que je ne peux plus rien imprimer!!!!

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_BeforePrint(Cancel As Boolean)
 
' on verifie que c'est la bonne feuille et qu'il n'y a pas de multisélection.
If ActiveWindow.SelectedSheets.Count = 1 And ActiveSheet.Name = "dotation" Then
  Cancel = False  
Else
     Cancel = True
 
End If
End Sub

merci

je me suis planté pour la réponse précédente mais là c'est pareil ou il imprime tout ou comme là il n'imprrime rien du tout je voudrais que seul la feuille dotation soit imprimable j'ai mis ce code dan le thisworbook

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_BeforePrint(Cancel As Boolean)
 
' on verifie que c'est la bonne feuille et qu'il n'y a pas de multisélection.
If ActiveWindow.SelectedSheets.Count = 1 And ActiveSheet.Name = "dotation" Then
  Cancel = True
ElseIf ActiveWindow.SelectedSheets.Count = 1 And ActiveSheet.Name = "bd" Then
  Cancel = false
  ElseIf ActiveWindow.SelectedSheets.Count = 1 And ActiveSheet.Name = "bdfiches" Then
  Cancel = false     
End If
End Sub

Normal tu as inversé le Cancel ...

Code:

1
2
3
4
5
6
7
8
9
Private Sub Workbook_BeforePrint(Cancel As Boolean)
 
' on verifie que c'est la bonne feuille et qu'il n'y a pas de multisélection.
If ActiveWindow.SelectedSheets.Count = 1 And ActiveSheet.Name = "dotation" Then
  Cancel = False
Else
  Cancel = True     
End If
End Sub

22/01/2007, 19h20
lio62

là il ne veut rien m'imprimer du tout
22/01/2007, 20h58
ouskel'n'or

Tu es sûr du nom de ta feuille ?
22/01/2007, 21h02
SfJ5Rpw8

Citation:

Envoyé par bbil

...et attention minuscule/majuscule pour nom de la feuille...
22/01/2007, 21h08
ouskel'n'or

+1
22/01/2007, 21h09
lio62

J'AI MIS DOTATION EN MAJUSCULE pour le nom de la feuille et partout
23/01/2007, 11h16
lio62

ok c bon problème MAJUSCULE/ MINUSCULE:oops: