Aperçu avant impréssion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

momo2394

XLDnaute Occasionnel
Bonjour,
J'ai une macro qui empeche l'aperçu avant impression
comment l'annuler car elle bloque tous mes fichiers excels,merci:

Option Explicit
'myDearFriend! - mon Univers Excel... : myDearFriend! Excel Pages



Private Sub Workbook_Activate()
With Application.CommandBars
.FindControls(ID:=109).Item(1).OnAction = "ThisWorkbook.ApercuPerso"
.FindControls(ID:=109).Item(3).OnAction = "ThisWorkbook.ApercuPerso"
.FindControls(ID:=247).Item(8).Enabled = False
.FindControls(ID:=4).Item(3).Enabled = False
End With
End Sub
Private Sub Workbook_Deactivate()


With Application.CommandBars
.FindControls(ID:=109).Item(1).OnAction = ""
.FindControls(ID:=109).Item(3).OnAction = ""
.FindControls(ID:=247).Item(8).Enabled = True
.FindControls(ID:=4).Item(3).Enabled = True
End With
End Sub

Private Sub ApercuPerso()


ActiveSheet.PrintPreview False
End Sub
 
Re : Aperçu avant impréssion

Salut Pascal

Merci pour tes réponses, mais ça ne fonctionne toujours pas
dès que j'ouvre un autre fichier excel et que je veux un aperçu avant impression, une fenêtre s'ouvre avec le message suivant:Impossible de trouver la macro 'imputbox.xls!this Workbook.apercuPerso!
Que dois-je faire?
 
Re : Aperçu avant impréssion

Bonsoir momo2394, ami Pascal,

momo2394, quand tu utilises un morceau de code que tu trouves sur le Forum, peut être serait-il intéressant de lire TOUT ce qui est écrit (et notamment au bas du post en question !) :
Protéger la mise en page

Par ailleurs, indiquer où tu as trouvé le code aurait certainement facilité la tâche de celui qui te porte secours (comme notre ami Pascal).

Cordialement,
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
669
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
456
Retour