enregistrer dans dossier /sous dossier Résolu/Fermé

Question

Bonjour
j'ai un fichier excel avec une macro pour enregistrer une copie du fichier en le renommant a la date du jour qui enregistre le fichier dans le meme dossier que son original ça marche tres bien .
Quand vous cliquez sur appel ça crée une feuille renommee en hh mm ss et si je clique créer classeur du jour ça enregistre un fichier nommé 02-06-2021.xlsm.
mais je voudrais en fait l'enregistrer dans un dossier correspondant a l'année et sous dossier correspondant au mois ce qui donnerait enregistrer dans:
dossier path/2021/06/02-6-2021.xlsm pour aujourd'hui 
j'arrive a renommer le fichier mais pas faire les 2 sous dossiers
je vous mets le fichier exemple
https://www.cjoint.com/c/KFbwhMo2sRe
merci de votre aide
 
Slts               A bientôt 
Surplus

fabul · Answer

Salut,

Je peux pas t'aider.

Mais juste faire une remarque.

Pourquoi ton fichier s'appelle pas 2021-06-02-06-14-00.xlsm

AAAA-MM-JJ-HH-MM-SS

Ça serait classé en ordre, pas besoin de dossiers.

surplus · Answer

Pour la raison que j aurais au bout d un an 366 fichiers dans un même dossier 
Merci quand même

cs_Le Pivert · Answer

Bonjour,

comme ceci:

MsgBox Format(Date, "dd/mm/yyyy") 'date
MsgBox Month(Date) ' mois
MsgBox Year(Date) ' année


remplacer MsgBox par des variables

ccm81 · Answer

Bonjour à tous

et pour formater le mois sur 2 chiffres
m = Format(Date, "mm")

Cdlmnt

surplus · Answer

bonjour a tous 
ça pour renommer le fichier y a pas de soucis  c'est fait ce que je cherche a faire c'est de faire 2 dossiers et mettre le fichier dedans les MsgBox je vois pas a quoi ils me serviraient je voudrais un enregistrement auto dans chaque dossier et si il existe pas le faire 
merci

eriiic · Answer

Bonjour,

    If Dir("c:	mp\" & Year(Date), 16) = "" Then MkDir "c:	mp\" & Year(Date)
    If Dir("c:	mp\" & Year(Date) & "\" & Format(Month(Date), "00"), 16) = "" Then MkDir "c:	mp\" & Year(Date) & "\" & Format(Month(Date), "00")
eric
 
PS : j'ai mis un dossier fixe C:	mp, tu voudras sans doute ThisWorkbook.Path & "\" & ...

surplus · Answer

bonjour
cela me serait egal de l'enregistrer dans le path ou ailleur mais la solution que tu me donnes je sais pas quoi en faire ou je dois l'inser .
j'ai mis le classeur en exemple avec ma macro ou on doit intégrer ta solution?

eriiic · Answer

Bonjour,

Ta question était mais pas faire les 2 sous dossiers
Ue fois que tu connais le chemin et le nom de fichier,  ces 2 lignes te créent les répertoires nécessaires s'ils n'existent pas.
Tu peux ensuite y enregistrer ton fichier sans erreur.
erreur

surplus · Answer

Bonjour
les 2 dossiers j'arrivais a les faire mais pas a y enregistrer dedans avec cette macro tu mets ces 2 lignes ou par rapport a la mienne?
Sub creer_classeur()
Dim fich
fich = ActiveWorkbook.Path & "\" & Day(Date) & "-" & Month(Date) & "-" & Year(Date)
ActiveWorkbook.SaveAs fich
 end sub

eriiic · Answer

Re,

Non, tu ne crées pas tes répertoires ici.
De plus tu ne mets pas l'extension du fichier, ni le type de fichier voulu (préférable...).

Essaie avec ça :
Sub creer_classeur()
    Dim fich As String
    ' rep année
    fich = ActiveWorkbook.Path & "\" & Year(Date)
    If Dir(fich, 16) = "" Then MkDir fich
    ' rep mois
    fich = fich & "\" & Format(Month(Date), "00")
    If Dir(fich, 16) = "" Then MkDir fich
    ' fichier
    fich = fich & "\" & Format(Day(Date), "00") & "-" & Format(Month(Date), "00") & "-" & Year(Date)
    ActiveWorkbook.SaveAs fich & ".xlsm", FileFormat:=52
    ' ou
'    ActiveWorkbook.SaveAs fich & ".xlsx", FileFormat:=51
End Sub
eric

PS : pour ma part, je nommerai plutôt le le fichier aaaa-mm-jj.xlsm
Si un jour tu regroupes plusieurs mois, ils resteraient triés chronologiquement
PS2 : tu es bien conscient que ActiveWorkbook est le classeur actif qui peut être n'importe lequel, et non celui avec cette macro qui est ThisWorkbook ?

surplus · Answer

bonjour
Superça fonctionne tres bien  Merci
je vais essayer de faire comme tu dis ici
"PS : pour ma part, je nommerai plutôt le le fichier aaaa-mm-jj.xlsm
Si un jour tu regroupes plusieurs mois, ils resteraient triés chronologiquement" par contre de toutes facons pour
 "PS2 : tu es bien conscient que ActiveWorkbook est le classeur actif qui peut être n'importe lequel, et non celui avec cette macro qui est ThisWorkbook ? "
la macro sera dans le classeur actif elle demarrera pas d'un autre.
ou je me trompe?

surplus · Answer

ok je comprends la différence donc autant la réserver a ce fichier en effet.
pourquoi il y a des chiffres dans ta macro  style " FileFormat = 52" ?ça corresponds a quoi?
j'ai 2 autres questions sur ce fichier je fais un nouveau post?

Enregistrer dans dossier /sous dossier

12 réponses

Discussions similaires