Sub connec()
Application.ScreenUpdating = False
répertoire = ThisWorkbook.Path & "\"
Fichier = "GPT OUEST.xls"
Dim lFound As Boolean
lFound = False
For Each lWorkbook In Workbooks
If lWorkbook.Name = Fichier Then
lFound = True
Application.DisplayAlerts = False
Windows("GPT OUEST.xls").Activate
Windows("DUER.xls").Activate
Workbooks("DUER.xls").Worksheets("GPT OUEST").Select
Workbooks("DUER.xls").Sheets("GPT OUEST").Delete
Application.DisplayAlerts = True
Workbooks("GPT OUEST.xls").Worksheets("GPT OUEST").Copy After:=Workbooks("DUER.xls").Sheets("Synoptique")
Exit For
End If
Next
If lFound Then
Else
Workbooks.Open filename:=ThisWorkbook.Path & "\GPT OUEST.xls"
Application.DisplayAlerts = False
Workbooks("DUER.xls").Worksheets("GPT OUEST").Select
Workbooks("DUER.xls").Worksheets("GPT OUEST").Delete
Workbooks("GPT OUEST.xls").Worksheets("GPT OUEST").Copy After:=Workbooks("DUER.xls").Sheets("Synoptique")
' Workbooks(fichier).Close
Workbooks("DUER.xls").Worksheets("synoptique").Select
End If
Application.ScreenUpdating = True
End Sub