création auto de dossier en vba

[titooooo]

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

 

[JCGL]

Re : création auto de dossier en vba

Bonjour à tous,

Pour la création des répertoires :

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

 

[titooooo]

Re : création auto de dossier en vba

Merci bien je vais tester
Et pour la copie et ma renomme du fichier vierge existe t il une solution

Merci par avance

 

[titooooo]

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

 

[titooooo]

Re : création auto de dossier en vba

Bonjour le forum

je m'excuse mais es ce que il y'as une piste afin d'essayer

m'avance 1000 merci

 

[Staple1600]

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)

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

 

[titooooo]

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

 

[titooooo]

Re : création auto de dossier en vba

bonjour

je suis enfin parvenu a elaborer un fichier qui réponds a la demande

juste une erreur vba persiste

lors de l’exécution du la macro Copier_Fichiers

une piste svp

 

[titooooo]

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