enregistrer feuille

[jean123]

bonjour,

je souhaiterai enregistrer les deux dernières feuilles d'un classeur (au même nom) dans un nouveau classeur nommé a la date du mois en cours

j'ai essayé avec Sheets.Count mais je ne sais pas faire pour les deux dernières feuilles

 

[Staple1600]

Re

La touche F1 est là pour les explications
Dans Excel, faire ALT+F11 puis F1

Ma dernière macro fonctionne ou pas sur ton PC?

 

[jean123]

elle fonctionne parfaitement mais elle enregistre le classeur dans un autre répertoire que celui ou ce situe le classeur d'origine

 

[Staple1600]

Re

Pour changer le chemin, c'est là que cela se passe
strPath = ThisWorkbook.Path & "\"
avec cette ligne on enregistre dans le répertoire où est enregistré le classeur qui contient la macro.

Et là, tout pareil, on appuie sur la touche F1 pour trouver comment définir un Path
et/ou on complète par une petite recherche sur le net pour trouver des exemples de syntaxe VBA ou il est question de Path ou de Chemin

Et on se rends compte en relisant ma macro que j'ai omis d'utiliser strPath

Donc je te laisse corriger ma bévue tout seul

 

[jean123]

nickel merci ça marche parfaitement

j'avais juste fait comme ça avant ta réponse

WBK.SaveAs ThisWorkbook.Path & "\" & MonthName(Month(Date) - 5) & "_" & MonthName(Month(Date) - 1) & "_" & "test"

ça a une incidence particulière ?