sauvegarde fichier

[DAVID]

Bonjour à tous

Voilà, je voudrais sauvegarder un fichier(appellé "mai") sous un autre autre nom :"juin", et ainsi de suite pour le reste de l'année en passant par vba mais, faire en sorte que cela soit automatique dés clic sur un bouton nommé "mois suivant"
je n'arrive pas à mettre en forme cela en vba :
ex :mois = mois +1 au format mmmm
Ps : je ne veux pas l'année ni le jour, juste le nom du mois en .xls
Là, je sèche un peu
Merci

 

[sousou]

Bonjour David.

Un fichier appelé "mai" ne fait pas référence à une expression au format date donc mai+1 ne fera jamais Juin.

Malgré cela ont peut imaginer si tu ne veux pas changer ton nomage de fichier, une solution consistant à jouer avec des transformation de texte en date.
En admettant que le ckasseur actif se nomme "mai.xls", cette procédure te renverra "juin.xls"


Sub test()
m = Left(activeworkbook.name, Len(activeworkbook.name) - 4)
lemoi = CDate("1/" & m & "/2004")
nouvmois = Format("1/" & Month(lemoi) + 1 & "/2004", "mmmm") &".xls"
MsgBox nouvmois
End Sub
Un peu tiré par les cheveux ...

 

[Fred]

C'est effectivement un peu tiré par les cheveux, mais ça nous plait, non ?
Sinon, on ne ferait pas de la vba
Ecoute, merci, je me jette dessus
a+++