Microsoft 365 Vba Impression PDF

[eric72]

Bonjour à tous,
Voilà plus d'un jour que je cherche une solution à ce problème, sans succès.
J'ai un fichier avec 6 onglets et j'aimerais, avec une macro imprimer ces 6 feuilles en PDF avec un nom de fichier pour chaque onglet
- Nom du Pied de page Exemple Stock Bx 31/03/2022
avec une sélection de l'année correspondant à un dossier de l'année avec par exemple
NomDossier = Application.InputBox("Saisir Année d'Archive:", "Année ?", Year(Date), 1)
et tout cela en une fois avec 6 fichiers pdf dans le dossier qui se nomme par exemple "2022" avec un chemin par exemple
Chemin = "C:\Users\Utilisateur\OneDrive - Fiteco\JCR\INVENTAIRE\" & NomDossier & "\"
Je tourne en rond et ne m'en sors pas, quelqu'un a-t-il la solution à mon problème
Merci beaucoup pour le temps consacré
Eric

 

[eric72]

Re, un conseil, formate ton code.

Bonjour Kiki29,
Le code fonctionne parfaitement sauf que si dans un onglet les données représentent 2 pages et bien il n'y en a qu'une dans le PDF.
Avez-vous une idée du pourquoi?
Merci beaucoup et désolé
Eric

 

[eric72]

Je pense avoir trouvé, ce bout de code devait limiter à 1 page dans la génération du PDF

from:=1, To:=1, Bonne journée et bon week-end à tous Eric