Sub OuvrirFichiers()
Dim Chemin As String, Fichier As String
Chemin = "C:\Users\Alban\Desktop\Nouveau dossier (2)\" '//////// DOSSIER OU CHERCHER
Fichier = Dir(Chemin & "*.xls")
Application.DisplayAlerts = False
On Error Resume Next
While Fichier <> ""
If Fichier <> ThisWorkbook.Name Then
Workbooks.Open Chemin & Fichier
If ActiveWorkbook.Name = Fichier Then 'si le fichier a été ouvert
If ActiveWorkbook.Sheets("Sélection") Is Nothing Then Else Call Sauvegarde
ActiveWorkbook.Close
End If
End If
Fichier = Dir
Wend
End Sub
Sub Sauvegarde()
ActiveWorkbook.Sheets("Durée").Visible = xlSheetVisible ' AFFICHE LA FEUILLE DUREE
ActiveWorkbook.SaveAs "C:\Users\Alban\Desktop\NEW\" & ActiveWorkbook.Name
End Sub