Sujet Précédent Sujet Suivant

Vba excel

Fermé
emsec72 Messages postés 3 Date d'inscription mardi 14 octobre 2008 Statut Membre Dernière intervention 21 octobre 2008 - 14 oct. 2008 à 06:31
emsec72 Messages postés 3 Date d'inscription mardi 14 octobre 2008 Statut Membre Dernière intervention 21 octobre 2008 - 21 oct. 2008 à 15:20
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
A voir également:

3 réponses

Réponse 1 / 3
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 306
14 oct. 2008 à 10:53
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)
1
Réponse 2 / 3
emsec72 Messages postés 3 Date d'inscription mardi 14 octobre 2008 Statut Membre Dernière intervention 21 octobre 2008
20 oct. 2008 à 19:20
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
-1
Réponse 3 / 3
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 306
21 oct. 2008 à 10:16
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")


-1
emsec72 Messages postés 3 Date d'inscription mardi 14 octobre 2008 Statut Membre Dernière intervention 21 octobre 2008
21 oct. 2008 à 15:20
bonjour michel
tous code fonctionne bien, le seul souci, c'estque je ne pe l'enregistrer qu'une seule fois et que le numéro ne change pas a chaque enregistrement. quand a ta question mes dossiers je ve les appeler pdf1,pdf2...etc
Merci à toi d'avoir pris de ton temps pour te pencher sur mon Problème;
-1