Année en fin de fichier

Résolu
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 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
A voir également:

8 réponses

Réponse 1 / 8
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour, 

J'ai deja la semaine
par quel moyen ?? pour vous donnez la suite
0
Réponse 2 / 8
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Réponse 3 / 8
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re, 

Annee = CInt(Format(Date, "yyyy", 4))


.SaveAs CheminFichier & fourn & "/" & NomFichier & "_" & NumSemaine & "_" & Annee & ".xlsm", FileFormat:=52
0
Réponse 4 / 8
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention  
 
ok merci , mais ca veut dire quoi le 4 apres "yyyy"
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 8
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
Réponse 6 / 8
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention  
 
Merci ca fonctionne parfaitement, je crois avoir compris que le 2 et le 4 , correspond à 2 chiffres pour semaine et 4 pour année.

Bonne journée et bon WE.

Pascal
0
Réponse 7 / 8
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention  
 
que je mette 2 ou 4 c'est pareil ?
0
Réponse 8 / 8
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

pour l'annee oui, c'est pour la semaine que ca change
0