Sujet Précédent Sujet Suivant

Année en fin de fichier

Résolu/Fermé
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022 - 20 sept. 2014 à 11:20
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 20 sept. 2014 à 13:38
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
20 sept. 2014 à 11:35
Bonjour, 

J'ai deja la semaine
par quel moyen ?? pour vous donnez la suite
0
Réponse 2 / 8
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
20 sept. 2014 à 11:44
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
20 sept. 2014 à 11:54
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 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
20 sept. 2014 à 12:09
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
20 sept. 2014 à 12:18
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 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
20 sept. 2014 à 12:18
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 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
20 sept. 2014 à 12:28
que je mette 2 ou 4 c'est pareil ?
0
Réponse 8 / 8
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
20 sept. 2014 à 13:38
Re,

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

Discussions similaires

comment donner les droits sur fichier partage
ch'ti du 57 -
fil1958 -

2 réponses
Chemin Logo du site de la Cité de l'espace
Keiios -
blux -

11 réponses
comment ouvrir un fichier CBR
mandrake000 -
Hazardwort -

62 réponses
fin du film chambre 1408
el-emixam -
Chref -

72 réponses