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