Que signifie : IgnorePrintAreas:=False

Bonjour à tous,

Dans une de mes macros j'ai une ligne de code qui me convertie un fichier en PDF et dans ce code il y'a celui la que je ne comprend pas : IgnorePrintAreas:=False

quelqu'un peut-il me l'expliquer svp

Jawst

Bonjour

L'instruction veut dire que l'on tient compte de la zone d'impression définie par l'utilisateur lors de l'impression du document

SI True à la place de False, on imprime l'objet en entier en ignorant les zones d'impression définies

Si ok, merci de clôturer le fil en cliquant sur le V vert à coté du bouton EDITER lors de votre réponse.

Crdlt

merci de ta réponse

j'ai un bug qui arrive de temps en temps lorsque je lance la macro et je crois que c'est à cause de ca.

Peux-tu me dire si j'ai raison ?

Re

Pas évident à conseiller. Faudrait voir le code en question

Crdlt

Salut, merci de m'avoir répondu

voila le code

Sub mail_pdf()
    For Each sh In Worksheets
        Select Case sh.Name
        Case "macro", "DATA", "extrait", "adresses", "msg mail"
        Case Else
            sh.Activate
            ActiveSheet.Copy
            Range("E:H").EntireColumn.Hidden = True
            ActiveSheet.SaveAs Filename:="C:\Users\cccuia\Documents\poubelle\" & Range("B2").Value
            ' Nécessite la référence : Microsoft Outlook 1x Object Library
            Dim olApp As Outlook.Application
            Dim olMail As MailItem
            Dim CurFile As String
            Set olApp = New Outlook.Application
            Set olMail = olApp.CreateItem(olMailItem)
            CurFile = "C:\Users\cccuia\Documents\poubelle\" & Range("B2").Value & ".pdf"
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _
                                            Quality:=xlQualityStandard, IncludeDocProperties:=False, _
                                            OpenAfterPublish:=False
                                            'IgnorePrintAreas:=False,
            With olMail
                .To = Range("E2")
                '.CC = ""   ' personne en copie
                .Subject = "Relance PVI"
                .Body = Workbooks("Test macro").Sheets("msg mail").Range("A1")
                .Attachments.Add CurFile
                .Attachments.Add ("C:\Users\cccuia\Desktop\vrac\test.pptx")
                .Display
                .Send
            End With

            ' Effacer les variables objets
            Set olMail = Nothing
            Set olApp = Nothing

            ActiveWorkbook.Close
            Kill "C:\Users\cccuia\Documents\poubelle\*.pdf"
            Kill "C:\Users\cccuia\Documents\poubelle\*.xls"
            Sheets("macro").Select
        End Select
    Next
End Sub

Re

Ben là tu n'imprimes rien. Tu exportes ton fichier

Pour recopier les feuilles du fichier vers un nouveau, utilise ce code

Workbooks.Add
For i = 1 To ThisWorkbook.Sheets.Count
    ThisWorkbook.Sheets(i).Copy before:=ActiveWorkbook.Sheets(1)
    With Sheets(i)
        .Cells.Copy
        .Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
    End With
Next

Ce code va te créer un nouveau fichier et recopier les feuilles du fichier source sans les formules.

Il faudra réadapter ton code en y incluant celui ci-dessus pour sauvegarder le nouveau fichier dans le répertoire utilisateur

A te relire sur les essais

Crdlt