créer répertoire et lme nommer à partir d'une cellule

[Michel]

bonjour à tous,

aprés avoir saisi un nom dans la cellule A1 d'un nouveau classeur, je souhaiterais
- créer un nouveau répertoire qui portera le nom de la cellule A1 plus la date du jour de création
- sauvegarder le classeur sous le nom de la cellule A1
- puis enfin placer le classeur dans le réperoire que je viens de créer.

Merci beaucoup à tous ceux qui peuvent m'aider et me proposer un code VBA pour automatiser ces opérations. Je n'y arrive pas ( débutant épuisé... )

Michel

 

[galopin01]

Bonne nuit !
Voici une macro à coller dans le module de feuille de "A1"
Attention à la ligne MonChemin = "C:\Documents..."
il faut remplacer par ton chemin à toi...
...Normalement ça devrait se terminer par quelque chose comme :
...\Mes Documents\WXYZ" ... sans slash à la fin !

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Z = UCase(Target.Value)
MonChemin = "C:\Documents...\Mes Documents"
rep = Z & " " & Year(Date) & Format(Month(Date), "00") & Day(Date)
If MsgBox("Voulez vous créer le répertoire" & Chr(13) & rep, 17, " Etes-vous sùr(e) ?") = 1 Then
MkDir MonChemin & "\" & rep
ChDir MonChemin & "\" & rep
ActiveWorkbook.SaveAs Z
End If
End If
End Sub
A+

 

[galopin01]

PS :
J'ai mis la date au format AAAAMMJJ
Pour l'avoir au format JJMMAAA :

rep = Z & " " & Day(Date) & Format(Month(Date), "00") & Year(Date)
A+