création auto de dossier en vba

  • Initiateur de la discussion Initiateur de la discussion titooooo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

titooooo

XLDnaute Occasionnel
bonjour

je veux créer chaque jour un dossier

qui aura comme nom JOURNEE DU (jour.Mois.année)
exemple
27/05/2014 JOURNEE DU 27.05.2014

je veux que

1- je clique sur bouton créer

il m'ouvre une fenetre qui comporte un champs de choix de date ( date de la colonne A)


et un champs parcourir ou enregistrer

il me propose ou créer le dossier qui porte le nom" JOURNEE DU (jour.Mois.année)" sous l'emplacement choisi

on va travailler avec dossier test

C:\dossiers

une fois le dossier sauvegardé

j'aimerais que excel copie le fichier vierge.xls dans le dossier que excel a créer

et enfin il renomme le fichier vierge.xls en Gestion de flux(date).xls

d'avance merci
 

Pièces jointes

Re : création auto de dossier en vba

Bonjour à tous,

Pour la création des répertoires :

VB:
Option Explicit

Sub Création()
    Dim i As Date, Mini&, Maxi&, Chemin As String
    Mini = Cells(2, 1)
    Maxi = Application.WorksheetFunction.Max(Columns(1))
    Chemin = "C:\Dossiers\"
    For i = Mini To Maxi
        On Error Resume Next
        MkDir Chemin & Year(i)
        MkDir Chemin & Year(i) & "\" & MonthName(Month(i))
        MkDir Chemin & Year(i) & "\" & MonthName(Month(i)) & "\Journée du " & Format(CDate(i), "dd.mm.yyyy")
    Next
End Sub

A+ à tous
 
Re : création auto de dossier en vba

merci JCGL mais c'est pas exactement ce que je cherche

déjà y'as des journées ( les week end et les jours férie que je que je désire pas y créer de dossier

je préfère choisir manuellement la journée a créer .

encore merci
 
Re : création auto de dossier en vba

Bonsoir à tous

titooooo
Voici une piste (pour inspiration) qui exclut les samedis et dimanches.
Essaie de t'en inspirer pour modifier le code de JCGL (que je salue au passage 😉)
(ce qui est important c'est la ligne avec Weekday)
Code:
Sub Lesjoursdefilent()
Dim a, b, i&
a = DateSerial(Year(Date), 1, 1)
b = DateValue("31/12/" & Year(Date))
For i = 0 To b - a
If Not Weekday(CDate(a + i), 2) > 5 Then
MsgBox Format(CDate(a + i), "dddd dd/mm/yyyy")
End If
Next
End Sub
 
Re : création auto de dossier en vba

bonjour

ca marche le oint de creation mais je bloque sur ce qui suit

je veux pour chaque dossier crée que le fichier vierge.xls qui se trouve sur la racine du dossier C:\dossiers se copie dans le dosssier crée et se renomme en Gestion de flux(date).xls


merci
 
Re : création auto de dossier en vba

Bonjour le forum

j’espère que je dérange pas mais je compte sur votre savoir faire afin de m'aider dans ma quête

lors de l’exécution du la macro Copier_Fichiers un message d'erreur vba s'ouvre

d'avance merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
700
Réponses
1
Affichages
1 K
Retour