XL 2021 Macro pour imprimer un document

[Yoan_VBA]

Bonjour,
Je suis nouveau sur ce forum et également dans le codage VBA.
J'ai réalisé une macro pour qu'elle imprime la totalité du classeur sauf la feuille nommé "DONNEES", cela marche mais j'aimerais que comme j'imprime en PDF, l'enregistrement s'effectue seul dans un dossier et enregistre toutes les feuilles dans un seul fichier car ici, je dois enregistrer le classeur pour chaque feuille.
Voici le programme :

Sub Imprimer()

Dim i As Integer
Dim imprimante As String
Dim doc As Object

For n = 0 To 9
imprimante = "Microsoft Print to PDF sur Ne0" & n & ":"
On Error Resume Next
Application.ActivePrinter = imprimante
If ActivePrinter = imprimante Then Exit For
Next

For Each feuille In ThisWorkbook.Sheets
If feuille.Name <> "DONNEES" Then
feuille.PrintOut
End If
Next feuille

MsgBox "Imprimante utilisée : " & imprimante

End Sub

Merci d'avance pour votre aide
Cordialement

 

[kiki29]

Salut, à télécharger puis consulter si curieux : Liste Contributions PDF
Fusion de certaines feuilles d'un classeur, cela dans un ordre choisi

Formate ton code !

 

[Yoan_VBA]

Super merci