Sub macrodistante()
Dim wklivre As Workbook
Dim wkcaisse As Workbook
Dim wkaccess As Workbook
Dim strpath As String
Set wklivre = Workbooks("phoneo" & Format(DateSerial(Year(Date), _
Month(Date), 1), "mmyyyy") & ".xls")
Set wkcaisse = Workbooks("CAISSE" & Format(DateSerial(Year(Date), _
Month(Date), 1), " MM YYYY") & " BOUYGUES" & ".xls")
Set wkaccess = Workbooks("accessoires" & Format(DateSerial(Year(Date), _
Month(Date), 1), " MM YYYY") & ".xls")
strpath = ThisWorkbook.Path & "\phoneo\" & Format(DateSerial(Year(Date), _
Month(Date), 1), "MMMM YYYY") & "\"
strname = "phoneo" & Format(DateSerial(Year(Date), Month(Date), 1), "mmyyyy") & ".xls"
On Error Resume Next
Workbooks(strname).Sheets(Day(Date)).Activate
If Err <> 0 Then
Workbooks.Open Filename:=fichier
If Err <> 0 Then
MsgBox "Le fichier " & fichier & "est introuvable"
End If
End If
wklivre.Activate
Application.Run wklivre.Name & "!creationrepertoire"
wkcaisse.Activate
Application.Run wkcaisse.Name & "!cloture_caisse"
wkaccess.Activate
Application.Run wkcaisse.Name & "!cloture_access"