Salut Titus, le Forum
il fallait remplacer chemin par "c:\dossiers" pour que le test fonctionne. Du coup, j'ai récrit la macro en enlevant l'inutile, en déclarant les variables et en ajoutant un test s'il n'y a plus d'incrémentation possible pour le fichier
désolé, j'essaierai d'être plus clair dorénavant
Cordialement, A+
Sub Enregis()
Dim PN As String, Chemin As String
Dim Compteur As Integer, Test As Boolean
Chemin = "C:\dossiers"
PN = Worksheets("JANVIER").Range("C5").FormulaR1C1
ThisWorkbook.Sheets.Copy
For Compteur = 1 To 999
If Dir$(Chemin & "\" & PN & Right("00" & Compteur, 3) & ".xls", vbNormal) = "" Then
ActiveWorkbook.SaveAs Filename:=Chemin & "\" & PN & Right("00" & Compteur, 3) & ".xls"
ActiveWorkbook.Close
MsgBox "Le classeur Planning de :" & PN & Right("00" & Compteur, 3) & " a été enregistré." & Chr(10) & "Vous pouvez quitter Excel.", vbInformation, "INFORMATION"
Test = True
Exit For
End If
Next Compteur
If Test = False Then MsgBox "Le classeur Planning de :" & PN & " n'a pu être enregistré." & Chr(10) & "Vérifier le dossier " & Chemin & Chr(10) & "Vérifiez qu'il reste une incrémentation possible de 001 à 999", vbInformation, "INFORMATION"
End Sub