Sub Save_DPV()
Dim GestionFichier As New Scripting.FileSystemObject
' On commence par définir une variable de type Folder :
Dim Dossier As Folder, res As String, IDclient As Integer, LGidclient As Integer, chemin As String
Dim Creation As String
ActiveSheet.Unprotect
IDclient = Sheets(1).Range("h4")
nomclient = Sheets(1).Range("D8").Value
LGidclient = Len(Sheets(1).Range("h4"))
nomfichier = "DPV " & nomclient & "_" & IDclient & " - " & Format(Date, "dd-mm-yy") & ".xlsm"
chemin = "M:\DOCUMENTS QUALITE\SOMMAIRE ET DOC ISO V3 2012\NOUVEAUX DOCS\DTIR\DTIR 2015 version 8.9" & "\" & "Configuration clients\"
' Cette boucle parcourt tous les dossiers
For Each Dossier In GestionFichier.GetFolder(chemin).SubFolders
res = Left(Dossier.Name, LGidclient)
If res = IDclient Then
'sauvegarde du fichier Excel
ActiveWorkbook.SaveAs Filename:=chemin & Dossier.Name & "\" & nomfichier
Set GestionFichier = Nothing
Exit Sub
End If
Next
' si le dossier n'existe pas création
Creation = chemin & IDclient & " - " & nomclient & "\"
MkDir (Creation)
ActiveSheet.Protect
ActiveWorkbook.SaveAs Filename:=Creation & nomfichier
Set GestionFichier = Nothing
End Sub