XL 2016 [Résolu] Macro enregistrement d'un onglet en PDF: mauvais onglet enregistré

[DisCamion]

Bonjour,
J'utilise cette Macro pour sauvegarder mes onglets en PDF. J'ai 3 onglets, 'Format', 'Véto' et 'Primeur'
Problème, une fois que j'ouvre mon PDF qui s'appelle "202104_Véto", c'est les données de l'onglet "Primeur" qui s'affichent.
La Macro fait donc un décalage entre le nom de l'onglet et son contenu, et ce pour tous les fichiers PDF.
Inutile de vous dire que je suis une bille en macro, peut etre que la réponse est évidente, mais je n'ai rien trouvé ni sur ce forum ni ailleurs.
Merci beaucoup pour votre aide

Sub save_pdf()
For i = 1 To Sheets.Count
nomfeuille = ActiveSheet.Name
Sheets(i).Select
ChDir "C:\Users\jppun\OneDrive\Documents\Bureau\factures"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\jppun\OneDrive\Documents\Bureau\factures\" & Format(Date, "YYYYMM") & "_" & nomfeuille & ".pdf"
Next i
End Sub

 

[Staple1600]

Bonsoir

Et comme ceci?

Sub save_pdf()
Dim i%
For i = 1 To Sheets.Count
ChDir "C:\Users\jppun\OneDrive\Documents\Bureau\factures"
Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\jppun\OneDrive\Documents\Bureau\factures\" & Format(Date, "YYYYMM") & "_" & Sheets(i).Name & ".pdf"
Next i
End Sub

 

[kiki29]

Salut, à voir à titre de curiosité.

 

[DisCamion]

Bonsoir

Et comme ceci?

Sub save_pdf()
Dim i%
For i = 1 To Sheets.Count
ChDir "C:\Users\jppun\OneDrive\Documents\Bureau\factures"
Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\jppun\OneDrive\Documents\Bureau\factures\" & Format(Date, "YYYYMM") & "_" & Sheets(i).Name & ".pdf"
Next i
End Sub

Bonjour
Merci beaucoup. Ca marche