Discussion :

[Jeanvaljean44]

Salut le forum

Je souhaite créer un sous répertoire via VBA après un test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub repertoire()
 
Dim VerifRepertoire As String, NomRepertoire As String
 
NomRepertoire = "OF" & Format(Date, "yymm")
 
VerifRepertoire = Dir("R:\Production\OrdreFabrication\" & NomRepertoire & "")
 
If VerifRepertoire = "" Then
 
End If
 
End Sub

Quelqu'un connaîtrait-il le code????

Merci pour votre aide!

Jeanvaljean44

[House MD]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
 
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists("R:\Production\OrdreFabrication\" & "OF" & Format(Date, "yymm")") = False Then
    MkDir "R:\Production\OrdreFabrication\" & "OF" & Format(Date, "yymm")"
Else
    '...
End If
End Sub

[wilfried_42]

bonjour

une autre maniere

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub repertoire()
      Dim NomRepertoire As String
      NomRepertoire = "OF" & Format(Date, "yymm")
      on error resume next
      MkDir "R:\Production\OrdreFabrication\" & NomRepertoire
      on error goto 0
End Sub

[Jeanvaljean44]

Merci à tous les 2

ça marche à la perfection

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Repertoire()
 
Dim Repertoire As String, SousRepertoire As String
Dim FSO As Object
 
Repertoire = "OF" & Format(Date, "yy")                                      'Décomposition du N° d'OF ex : OF08
SousRepertoire = "OF" & Format(Date, "yymm")                                'Décomposition du N° d'OF ex : OF0802
 
Set FSO = CreateObject("Scripting.FileSystemObject")
 
If FSO.FolderExists("R:\Production\OrdreFabrication\" & Repertoire & "") = False Then
    MkDir "R:\Production\OrdreFabrication\" & Repertoire & ""
End If
If FSO.FolderExists("R:\Production\OrdreFabrication\" & Repertoire & "\" & SousRepertoire & "") = False Then
    MkDir "R:\Production\OrdreFabrication\" & Repertoire & "\" & SousRepertoire & ""
End If
 
End Sub

@+ JeanVAljean44