Année en fin de fichier
Résolu
pascalou83400
Messages postés
281
Statut
Membre
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je cherche comment mettre l'année à la fin d'un fichier excel.
J'ai deja la semaine et je voudrais l'année.
Ex : mon fichier excel_38.xlsm et je voudrais mon fichier excel_38_2014.xlsm
Merci pour vos réponses.
Bonne journée.
Pascal
Je cherche comment mettre l'année à la fin d'un fichier excel.
J'ai deja la semaine et je voudrais l'année.
Ex : mon fichier excel_38.xlsm et je voudrais mon fichier excel_38_2014.xlsm
Merci pour vos réponses.
Bonne journée.
Pascal
A voir également:
- Année en fin de fichier
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
8 réponses
voila le code que j'ai dans ma boucle :
NumSemaine = CInt(Format(Date, "ww", 2))
dossier = Split(NomFichier, " ")
fourn = dossier(Application.CountA(dossier) - 1)
fourn = fourn & "_" & NumSemaine
' Si le dossier est inexistant, on le créer
If Dir(CheminFichier & "/" & fourn & "/") = "" Then
MkDir CheminFichier & "/" & fourn & "/"
End If
ActiveWorkbook.Worksheets(I).Copy
With ActiveWorkbook
.SaveAs CheminFichier & fourn & "/" & NomFichier & "_" & NumSemaine & ".xlsm", FileFormat:=52
.Close SaveChanges:=True
End With
NumSemaine = CInt(Format(Date, "ww", 2))
dossier = Split(NomFichier, " ")
fourn = dossier(Application.CountA(dossier) - 1)
fourn = fourn & "_" & NumSemaine
' Si le dossier est inexistant, on le créer
If Dir(CheminFichier & "/" & fourn & "/") = "" Then
MkDir CheminFichier & "/" & fourn & "/"
End If
ActiveWorkbook.Worksheets(I).Copy
With ActiveWorkbook
.SaveAs CheminFichier & fourn & "/" & NomFichier & "_" & NumSemaine & ".xlsm", FileFormat:=52
.Close SaveChanges:=True
End With
Re,
Annee = CInt(Format(Date, "yyyy", 4))
.SaveAs CheminFichier & fourn & "/" & NomFichier & "_" & NumSemaine & "_" & Annee & ".xlsm", FileFormat:=52
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re,
petite erreur, 4 n'est pas utile, 2 a la limite pour l'annee
regardez ci dessous pour toutes les explications
https://docs.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/format-function-visual-basic-for-applications?redirectedfrom=MSDN
petite erreur, 4 n'est pas utile, 2 a la limite pour l'annee
regardez ci dessous pour toutes les explications
https://docs.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/format-function-visual-basic-for-applications?redirectedfrom=MSDN
