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

DisCamion · 3 Avril 2021

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 · 3 Avril 2021

Bonsoir

Et comme ceci?

VB:

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 · 3 Avril 2021

Salut, à voir à titre de curiosité.

DisCamion · 4 Avril 2021

Staple1600 à dit:

Bonsoir

Et comme ceci?

VB:

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

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

DisCamion

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

kiki29

XLDnaute Barbatruc

DisCamion

XLDnaute Nouveau

Discussions similaires