Microsoft 365 impresion

luc50* · 6 Août 2021

Bonjour,
je souhaite interdire l'impression de mon fichier Excel si ce dernier n'a pas était au préalable enregistré.
merci de votre aide

fanch55 · 6 Août 2021

Bonjour,
A mettre dans le module Thisworkbook :

VB:

Private Sub Workbook_BeforePrint(Cancel As Boolean)


    If Not ThisWorkbook.Saved Then
        If MsgBox("Vous devez sauvegarder avant d'imprimer" & vbLf & _
                  "Voulez-vous sauvegarder ?", vbQuestion + vbYesNo) = vbYes Then
                    ThisWorkbook.Save
        End If
    End If
    
    If Not ThisWorkbook.Saved Then Cancel = True
    
End Sub

Microsoft 365 impresion

luc50*

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Discussions similaires

Microsoft 365 impresion

luc50*

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency