XL 2019 Problème lancement impression

[Pieerre69]

Bonjour à tous.

J'ai créer dans mon fichier une macro qui permet d'imprimer une sélection (printArea).
Malheureusement, quand je clique sur le bouton, il ne se passe rien..
J'ai eu beau cherché, je ne sais pas dire d'où vient l'erreur d'impression

Pouvez-vous m'aider ?

Voici le code la macro :

Sub impression_parent()

Dim val As Integer

val = Range("C4").Value

If val <> 0 Then
    ActiveSheet.PageSetup.PrintArea = "$A$1:$D$32"
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.708661417322835)
        .RightMargin = Application.InchesToPoints(0.708661417322835)
        .TopMargin = Application.InchesToPoints(0.748031496062992)
        .BottomMargin = Application.InchesToPoints(0.748031496062992)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True
    Else
    MsgBox "NUMÉRO D'ANOMALIE NON DETECTÉ, REVENIR AU MENU PRINCIPAL ET RELANCER LA DÉCLARATION MANQUANT", vbOKCancel + vbCritical, "ERREUR"
  
End If

End Sub

 

[dg62]

Bonjour
Je n’ai pas vu de printOut dans le code, vous ne faites que de la mise en page.

 

[Pieerre69]

Bonjour
Je n’ai pas vu de printOut dans le code, vous ne faites que de la mise en page.

Où est-ce que je dois le mettre ? Juste avant le "Else" ?

 

[dg62]

Re,
Ça me semble bon

ActiveSheet.PrintOut

 

[Pieerre69]

Re,
Ça me semble bon

ActiveSheet.PrintOut

Super tout fonctionne !
Pour faire d'une pierre deux coup, j'ai un autre soucis avec un de mes boutons. Il me dit sort une erreur "incompatibilité de type".

Voici le code.

Sub impression_decla()

Dim val As Integer

val = ActiveSheet.Range("C8").Value

If val <> "" Then
    ActiveSheet.PageSetup.PrintArea = "A1:D32"
    ActiveSheet.PrintOut
    Else
    MsgBox "VEUILLEZ INDIQUER UN NUMÉRO D'ANOMALIE", vbOKCancel + vbExclamation, "ERREUR"
    
End If

End Sub

Je précise que dans la case "C8" il y a un chiffre (de 1 à 7)

 

[dg62]

Avez-vous essayé de supprimer le contenu de C8 et de le réécrire ?

 

[Pieerre69]

Bon, ça a fonctionné. Merci beaucoup !