jeanmi
XLDnaute Occasionnel
Bonjour à tous,
J’ai essayé de créer des dossiers et sous dossiers avec le code si dessous :
Mes problèmes :
a) Ça marche bien pour les niveaux 1 et 2
b) Ça bloc au niveau 3
c) Si je relance in y a aussi une erreur car les deux premiers niveaux existe déjà
je n'ai pas mis la première ligne, gestion erreurs, autrement il y a erreur dés le début.
Avez-vous une orientation ou solution à me donner. Merci d’avance
Cordialement
J’ai essayé de créer des dossiers et sous dossiers avec le code si dessous :
VB:
Sub Creat_doss_sous_doss()
'On Error GoTo gestionErreurs
date_jour = "2021-09-01" ' sera recuperée dans une cellule
MkDir "C:\Users\HP\Gestion de planning" ' niveau 1
MkDir "C:\Users\HP\Gestion de planning\Poses_du_" & date_jour 'niveau 2
MkDir "C:\Users\HP\Gestion de planning\Poses_du_" & date_jour & "\niveau 1\doc word" ' niveau 3
MkDir "C:\Users\HP\Gestion de planning\Poses_du_" & date_jour & "\niveau 1\doc Excel" ' niveau 3
End Sub
Mes problèmes :
a) Ça marche bien pour les niveaux 1 et 2
b) Ça bloc au niveau 3
c) Si je relance in y a aussi une erreur car les deux premiers niveaux existe déjà
je n'ai pas mis la première ligne, gestion erreurs, autrement il y a erreur dés le début.
Avez-vous une orientation ou solution à me donner. Merci d’avance
Cordialement