Bonjour,
Il faut regarder du côté de la condition qui teste le nom des classeurs.
If Left(Nom_classeur, 15) = "horaire nursing" Then
Exit Sub
End If
Pour qu'elle puisse prendre en compte chacun des classeurs concernés, il faudrait surement les rajouter dans le test ( avec un Select Case plutot qu'un IF )
Exemple:
ClasseurName = Left(Nom_classeur, 15)
Select Case ClasseurName
Case "horaire nursing", "fiche perso nur", "horaire cuisine", "fiche perso cui"
'Le nom commence par les noms ci-dessus...
Exit Sub
Else
'Ne correspond à aucun des noms de classeurs...
End Select
Sinon, mets nous ton code pour qu'on voit ce qui peut éventuellement bloquer.
Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI