Générer un fichier PDF de puis Excel (tous les onglets)
f
Bonjour à tous,
J'ai un fichier excel contenant 10 onglets et je voudrais générer un PDF unique avec les 10 onglets (ou feuilles), donc un PDF de 10 feuilles.
J'ai la macro suivante qui fonctionne mais uniquement pour la feuille active :
Sub PDF_SAVE()
Dim LHeure As String, LaDate As String
LHeure = Format(Time, "HMS")
LaDate = Format(Date, "dd" & "." & "mm" & "." & "yyyy")
' Création fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"P:\11-MAIRIES\MAPC-CDE\Commun\Pôle achat marché\MARCHES\23M02 - Lessiviel - Entretien - Hygiène - EPI\BDC\Bon de commande MR NET du " & LaDate & " " & LHeure & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=True
' Message de confirmation
MsgBox ("Bon de commande MR NET créé" & vbCrLf & vbCrLf & "Merci ")
End SubEdit modo : code à mettre entre balises avec le bouton </> merci d'y faire attention la prochaine fois
Avez-vous une idée ?
Merci d'avance.
Invité
Bonjour fred777
Vous devriez trouver votre bonheur dans un des codes ici
https://www.excel-pratique.com/fr/telechargements/utilitaires/pdf-email-vba-excel-no508
Nota : merci de penser à mettre votre code entre balise SVP, grâce au bouton </>
A+