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
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