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
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
A voir également:
- Enregistrer un fichier powerpoint en indexant le nom selon le mois
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Impossible de charger le fichier ou l'assembly ✓ - Forum VB.NET
- Keno statistiques mois - Forum C# / .NET
- Vba récupérer nom fichier sans extension ✓ - Forum VBA Office (Excel, Word ...)
- Generateur de nom de jeu ✓ - Forum C# / .NET
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
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
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