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