Création sous dossier pose problème

Résolu
irongege Messages postés 38993 Date d'inscription   Statut Modérateur Dernière intervention   -  
irongege Messages postés 38993 Date d'inscription   Statut Modérateur Dernière intervention   -
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 ;-)



--
"Je connaissais un sportif qui prétendait avoir plus de ressort que sa montre. Pour le prouver, il a fait la course contre sa montre."

4 réponses

  1. Henri
     
    Salut,

    Je croyait que CCM n'aidait pas a faire les devoirs ?
    0
    1. irongege Messages postés 38993 Date d'inscription   Statut Modérateur Dernière intervention   5 128
       
      Si c'était un devoir , ce n'est pas ici que je poserais la question, de plus je suis modo ici sur CCM donc le fonctionnement, je le connais.

      De plus encore, il y a longtemps que j'ai quitté l'école !
      0
    2. madmyke Messages postés 52304 Date d'inscription   Statut Modérateur Dernière intervention   12 485
       
      Je confirme, il a même du poil au menton LOL
      0
    3. Henri
       
      C'est quoi modo ?
      0
    4. irongege Messages postés 38993 Date d'inscription   Statut Modérateur Dernière intervention   5 128
       
      C'est ce groupe.

      Au passage, Salut madmyke !
      0
    5. madmyke Messages postés 52304 Date d'inscription   Statut Modérateur Dernière intervention   12 485
       
      Salut Irongege :-), toujours content de te lire même si là je ne peux pas t'aider, VB et moi...
      0
  2. irongege Messages postés 38993 Date d'inscription   Statut Modérateur Dernière intervention   5 128
     
    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 & "")
    0
  3. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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 .
    0
  4. irongege Messages postés 38993 Date d'inscription   Statut Modérateur Dernière intervention   5 128
     
    Merci Lermite222

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