Année en fin de fichier

Bonjour,

J'ai deja la semaine

par quel moyen ?? pour vous donnez la suite

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

Re,

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

.SaveAs CheminFichier & fourn & "/" & NomFichier & "_" & NumSemaine & "_" & Annee & ".xlsm", FileFormat:=52

ok merci , mais ca veut dire quoi le 4 apres "yyyy"

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

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

que je mette 2 ou 4 c'est pareil ?

Re,

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