Enregistrer un fichier powerpoint en indexant le nom selon le mois

bernett Messages postés 62 Date d'inscription jeudi 3 juin 2004 Statut Membre Dernière intervention 20 janvier 2006 - 25 juin 2004 à 10:31
dp_favresa Messages postés 132 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 11 mai 2010 - 23 juil. 2004 à 15:17
Bonjour à tous !

enregistrer un fichier powerpoint en indexant le nom selon le mois

Merci !

1 réponse

dp_favresa Messages postés 132 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 11 mai 2010
23 juil. 2004 à 15:17
Bonjour,

J'ai résolu ce problème pour un classeur Excel (chez moi selon l'année) en extrayant la date du jour dans une cellule et en récupérant l'année par la fonction =YEAR(cellule) (pour vous =MONTH..). Ci-dessous le code utilisé :

' ***** Enregistrement selon N° d'offre dans le répertoire de l'année en cours
'
DateJour = Date
Range("A1000").Select
ActiveCell.Value = DateJour
Range("A1001").Select
ActiveCell.Formula = "=YEAR(A1000)"
Année = ActiveCell.Value
ActiveWorkbook.SaveAs Filename:="V:\Offres clients\Offres " & Année & "" & Noffre & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

J'espère que vous pourrez en extraire quelque chose.

Bon(ne) courage, développement, salutation...
(choisissez ce qui vous convient) dp
0