année en fin de fichier Résolu/Fermé

Question

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

f894009 · Answer

Bonjour,

J'ai deja la semaine par quel moyen ?? pour vous donnez la suite

pascalou83400 · Answer

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

f894009 · Answer

Re,

Annee = CInt(Format(Date, "yyyy", 4)).SaveAs CheminFichier & fourn & "/" & NomFichier & "_" & NumSemaine & "_" & Annee & ".xlsm", FileFormat:=52

pascalou83400 · Answer

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

f894009 · Answer

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

pascalou83400 · Answer

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

pascalou83400 · Answer

que je mette 2 ou 4 c'est pareil ?

f894009 · Answer

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

Année en fin de fichier

8 réponses

Discussions similaires