Discussion :

[jffaber]

Bonjour,

Afin de pouvoir faire la mise en forme lors de l'impression d'un userform, j'ai utilisé la technique de l'imprime écran collé sur une une nouvelle feuille du classeur. Afin de ne pas encombrer le classeur, j'efface cette feuille aprés l'impression. Le probléme, un message de conformation de suppression apparaît et je voudrai qu'il n'y aît pas besoin de confirmer.

Voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Dim Ws As Worksheet
    'Copie d'écran de la forme active
    keybd_event vbKeySnapshot, 1, 0&, 0&
    DoEvents
    UserForm7.Hide
    'Ajoute une feuille pour coller l'image de la forme
    Set Ws = Sheets.Add
    Ws.Paste
 
    'impression centrée dans la page
    With Ws.PageSetup
        .LeftHeader = ""
        .CenterHeader = "Nom_entreprise"
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.787401575)
        .RightMargin = Application.InchesToPoints(0.787401575)
        .TopMargin = Application.InchesToPoints(0.984251969)
        .BottomMargin = Application.InchesToPoints(0.984251969)
        .HeaderMargin = Application.InchesToPoints(0.4921259845)
        .FooterMargin = Application.InchesToPoints(0.4921259845)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 1200
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = True
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    Ws.PrintOut
    ActiveWindow.SelectedSheets.Delete

Quelqu'un peut-il m'aider?
Merci!

[Godzestla]

Salut,

essaie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Application.DisplayAlerts = False

[YannLaure]

Application.DisplayAlerts=False à mettre avant la suppression et Application.DisplayAlerts=True après la suppression si on veut voir les alertes suivantes.

[jffaber]

C cool!
Merci à vous deux