[XL-2003] Création de dossier [Résolu]

[Vincent32]

Bonjour à tous,

Est-il possible de créer des dossiers à partir d'une macro excel.

Je m'explique je lance actuellement une macro excel qui lit puis écrit des fichiers textes contenus de la manière suivante :

DOSSIER A :
- fichier excel avec macro
- dossier 1 : données brutes contenant les fichiers txt lus par la macro
- dossier 2 :
+ dossier alpha : données écrites par la macro suite au calcul n°1 de la macro
+ dossier beta : données écrites par la macro suite au calcul n°2 de la macro

et ainsi de suite ...

Je voudrais savoir si il est possible de créer les dossiers 2, alpha, beta, ... directement à partir de la macro.

Merci pour votre aide, bonne journée,

Cordialement,

Vincent

[MarcelG]

Bonjour Vincent,

A voir dans la

Crééer un Dossier

[kiki29]

Salut,

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
                                             (ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long
 
Option Explicit
 
Private Function CreationDossier(sDossier) As Long
Dim Rep As Long
' Pour valeur retournée par Rep
'   Voir http://msdn.microsoft.com/en-us/library/bb762131(VS.85).aspx
'   et   http://msdn.microsoft.com/en-us/library/ms681381(VS.85).aspx
    Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Function
 
Sub Tst()
    CreationDossier "C:\A\B\C\D\E"
End Sub

[Vincent32]

Bonjour,

Merci pour vos réponses, cependant malgré les différents articles, je n'y comprends rien serait il possible de commenter le code s'il vous plaît.

Bonne journée

Cordialement

Vincent

[ZebreLoup]

Le lien donné par Marcel est pourtant très clair, avec des commentaires. Si tu ne connais pas une des fonctions utilisées (par exemple Dir), tu as tout simplement l'aide d'Excel ou une toute petite recherche Google qui te donnera des tonnes d'exemples.

[Vincent32]

Pourquoi mon code ne fonctionne pas (chemin du répertoire indiqué dans la cellule E9 de la feuille intitulée macro)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Test()
    Dim ws0 As Worksheet 'Déclaration des variables
    Set ws0 = Worksheets("Macro") 'Attribution de la valeur
    CreationRepertoire ws0.[E9], "Retraitementb" 'Exemple : CreationRepertoire "C:\Documents and Settings\dossier", "Archives" crée un dossier "Archives" dans "C:\Documents and Settings\dossier"
End Sub
 
Sub CreationRepertoire(DossierParent As String, NomRep As String)
    Dim Chemin As String
 
    'Vérifie si le répertoire existe.
    If Dir(DossierParent, vbDirectory + vbHidden) <> "" Then
        'Vérifie que le dossier à créer n'existe pas déjà dans le répertoire
        If Dir(DossierParent & "\" & NomRep, vbDirectory + vbHidden) = "" Then _
            MkDir DossierParent & "\" & NomRep
    End If
End Sub

Merci de votre aide
cordialement

Vincent

[ZebreLoup]

Tu l'as exécuté en pas à pas pour voir ce qui se passait ?

[Vincent32]

Ok j'ai trouvé, le code fonctionne très bien, en fait la fonction n'était pas appelé dans ma macro donc cette partie de code ne s'exécutait pas.

Désolé

Cordialement

Vincent