Erreur d'éxécution "1004" - Désolé, nous n'avons aucun document à imprimer

Question

Bonjour,

Mon département de comptabilité a un fichier excel avec plusieurs onglets avec des données. Il y a une macro dans ce fichier. La macro éxécute un print to PDF pour chaque onglet. Cependant, depuis un moment, j'ai cette erreur (voir plus bas) et je suis pas capable de trouver l'erreur pour la corriger.

Sub PDFCommissions()

Dim ws

Dim newWk As Workbook

For Each ws In Worksheets 

    Set newWk = Workbooks.Add(xlWBATWorksheet) 

    ws.Copy newWk.Sheets(1) 

    newWk.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Commissions\" & ws.Name & "\_" & Format(Date, "YYYYMMDD") & ".pdf" 

    newWk.Close SaveChanges:=False 

    Set newWk = Nothing 

Next ws 

End Sub

Pouvez-vous m'aider?

Merci

Answer 1

Bonjour,

Essaie :

newWk.Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Commissions" & ws.Name & "_" & Format(Date, "YYYYMMDD") & ".pdf"

Daniel