vba excel Fermé

Question

Bonjour,
je cherche à creer un bouton d'enregistrement de fichier excel avec nom du fichier et date,cette partie est  réussie, mais à celà je voudrais aussi pouvoir y intégrer un numéro de dossier qui changerais a chaque enregitrement et la je bloc grave. si kelkun a la reponse merci cela me ferais avancer. je livre la première partie 

Public Sub CommandButton1_Click() 'copie sauvegarde classeur
Dim nom As String
    nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & Hour(Time) & "-" & ActiveWorkbook.Name
    ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
    rep = MsgBox("permis de feu sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
End Sub

michel_m · Answer

Bonjour,

Tu as l'instruction Mkdir chemin pour créer un nouveau dossier

par ex:
nouvdoss= nom du nouveau dossier
chemin="f:\documents\sec72\" & nouvdoss
mkdir chemin

pour enregistrer dans nouvdoss:
chdir chemin
(change le dossier actif)

emsec72 · Answer

merci Michel
Mais tu sais je suis un gros debutant dans ce domaine pourrais tu me dire ou je le place dans mon code STP
PS: désolé de ne pas avoir répondu plutôt
D.f

michel_m · Answer

Bonjour,

Comment voudrais tu nommer tes dossiers? dossier1, dossier2.... ou date_heure? ou...

ci dessous proposition avec nom de nouveau dossier= nom du nouveau classeur

(je suppose que le classeur est issu d'un modèle "xxxx.xlt" ?)


Dim nom As String, chemin As String

nom = Format(Now, "dd-mm-yy_hh") & "-" & ThisWorkbook.Name
chemin = ThisWorkbook.Path & "\" & nom
MkDir chemin
ChDir chemin

ActiveWorkbook.SaveCopyAs nom
rep = MsgBox("permis de feu sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")

Vba excel

3 réponses