Création sous dossier pose problème Résolu/Fermé

Question

Bonjour, 

Dans mon projet, à l'initialisation , on verifie si un dossier existe en fonction de l'année et si changement d'année, création d'un nouveau dossier.

Cela marche bien.

Labelannee.Caption = Year(Date)
[C33] = Labelannee.Caption
If Dir("C:\Suivi_DLC\" & "Archives_" & Range("C33").Value & "", vbDirectory) <> "" Then
Else
MkDir ("C:\Suivi_DLC\" & "Archives_" & Range("C33").Value & "")
End If

Ensuite dans une autre fenêtre, il y a un bouton d'enregistrement qui va crée un sous dossier dans le dossier de l'année correspondante mais l'execution se bloque.

Voici le code :

ChDir "C:\Suivi_DLC\" & "Archives_" & Range("C33").Value & " \ """
MkDir ("C:\Suivi_DLC\" & "Archives_" & Range("C33").Value & "\Batch")
Name "C:\Suivi_DLC\" & "Archives_" & Range("C33").Value & "\Batch" As "C:\Suivi_DLC\" & "Archives_" & Range("C33").Value & "\" & "Batch_"& Range("C33").Value & _Bl_ N° & Range("B25").Value & ""


Merci à vous ;-)


Configuration: 929 + 996 = 2

Henri · Answer

Salut,

Je croyait que CCM n'aidait pas a faire les devoirs ?

irongege · Answer

Et hop, j'ai modifié mon code et ça marche nickel :

ChDir "C:\Suivi_DLC\" & "Archives_" & Range("C33").Value & ""
MkDir ("C:\Suivi_DLC\" & "Archives_" & Range("C33").Value & "\" & "Batch_BL_N°" & Range("B25").Value & "")

lermite222 · Answer

Bonjour tous,   
Pour le fun :-)   
Le dessus du module    
Option Explicit   
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
Ton 1er exemple   
Dim NouvRep   
    NouvRep = ("C:\Suivi_DLC\" & "Archives_" & Range("C33").Value)   
    MakeSureDirectoryPathExists NouvRep
Le second,   
Name = "C:\Suivi_DLC\" & "Archives_" & Range("C33").Value & "\" & "Batch_" & Range("C33").Value & "Bl_ N°" & Range("B25").Value   
MakeSureDirectoryPathExists Name
Avantage 1 : Pas besoin de tester, si existe ->OK si existe pas -> Le crée   
Avantage 2 : Supposons ton appli dans le répertoire MonAppli   
Tu veux créer un sous-rep Archive   
Et dans ce sous-rep un répertoire par année   
A partir de    
Rep= App.path & "\Archive\" & Year(Now)
Si le répertoire Archive existe déjà MkDir créera Year(Now) si tu fais le test et que tu lui dis   
Supposons maintenant que ton appli vient d'être installée dans le répertoire MonAppli, tu dois t'assuré de créer le répertoire Archive, ce qui veux dire que dans ton code tu auras des instructions qui ne servirons qu'une seule fois.   
C'est là qu'intervient cette API, elle crée non seulement le répertoire manquant mais également tout le chemin ce que MkDir ne fait pas. Donc plus besoin de créer Archive, c'est automatique.   
A+   

EDIT : 
Pourquoi ChDir quand tu détermine le chemin absolu ? 
Pourquoi & "" en fin d'initialisation ? ça sert à rien ? 

EDIT 2:
Et si tu emploi ChDir pour un chemin relatif tu dois d'abord forcer le drive avec ChDrive, ChDir ne change pas de DD.

Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)   
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .

irongege · Answer

Merci Lermite222

J'ai corrigé mon code et cela marche nickel.

Création sous dossier pose problème

4 réponses

Discussions similaires