Bonjour,
inspire toi des lignes ci-dessous largement issues de l'aide
Sub macro4()
'répertoire global de stockage
mypath = "E:\FACTURE\
'sous répertoire particulier de stockage en fonction de C1
mydir = Format(Cells(1, 3).Value, "mmmmyy") & "\"
'Définit le chemin d'accès.
' Extrait la première entrée.
myname = Dir(mypath, vbDirectory)
Do While myname <> "" ' Commence la boucle.
' Ignore le répertoire courant et le répertoire
' contenant le répertoire courant.
If myname <> "." And myname <> ".." Then
' Utilise une comparaison au niveau du bit pour
' vérifier que MyName est un répertoire.
If (GetAttr(mypath & myname) _
And vbDirectory) = vbDirectory Then
' Affiche l'entrée uniquement si elle
'Debug.Print MyName
If myname = mydir Then
MsgBox "lancer enregistrement"
Exit Sub
End If
End If ' représente un répertoire.
End If
myname = Dir ' Extrait l'entrée suivante.
Loop
MsgBox "nontrouvé, création"
MkDir mypath & mydir
End Sub
l'adaptation ne doit pas poser de pb, à la limite là où il y a "lancer enregistrement tu fais appel à la macro déjà développée
(call <<macro>>)
même chose après la création Mkdir
Bon travail, si tu as un pb....
A+
