Option Explicit
'-----------------------------------------------------------------------
Private Const SHEET_TRAVAIL_PROCEDURE As String = "Feuil1"
Private Const WORKBOOK_PROCEDURE As String = "Procédure guide des fonds.xls"
Private Const SHEET_TRAVAIL_GUIDE As String = "detailFonds"
Private Const WORKBOOK_GUIDE As String = "guide des fonds.xls"
Private Const CHEMIN_DATA As String = "G:\Suivi des fonds\Outils\DATA\guide des fonds.xls"
'-------------------------------------------------------------------------
Sub Importation_Date()
Workbooks(WORKBOOK_DATA).Sheets(SHEET_TRAVAIL_PROCEDURE).Range("A2:A43").Value = _
Workbooks(WORKBOOK_PROCEDURE).Sheets(SHEET_TRAVAIL_PROCEDURE).Cells(6, 4).Value
End Sub