

Private Sub Workbook_Open()
    
   
   
    
    Sheets("Liste").Select
    Cells(5001, 1).Select
    Cells(5001, 3) = Clear
    
    Cells(2, 1).Select:
    
    
    Workbooks.Open Filename:="C:\ID\fiduciel.xla"
      
    Sheets("Liste").Select:     Cells(2, 1).Select
    ' Dossiers Clients
    

    If Cells(5000, 1) = 1 Then Workbooks.Open Filename:="C:\ID\idIS.xla" ' Saisie IS
     
        
    ThisWorkbook.Save
    
    
        
    Application.DisplayAlerts = False:
    
    Sheets("Liste").Copy
    
    ' pour la 9421 ou autres applications
    ActiveWorkbook.SaveAs Filename:="C:\bDossiers\fd.xls", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    Application.DisplayAlerts = True
    
    ThisWorkbook.Save
    Application.Quit
End Sub



Private Sub Workbook_Open()
    
   
   
    
    Sheets("Liste").Select
    Cells(5001, 1).Select
    Cells(5001, 3) = Clear
    
    Cells(2, 1).Select:
    
    
    Workbooks.Open Filename:="C:\ID\fiduciel.xla"
      
    Sheets("Liste").Select:     Cells(2, 1).Select
    ' Dossiers Clients
    

    If Cells(5000, 1) = 1 Then Workbooks.Open Filename:="C:\ID\idIS.xla" ' Saisie IS
     
        
    ThisWorkbook.Save
    
    
        
    Application.DisplayAlerts = False:
    
    Sheets("Liste").Copy
    
    ' pour la 9421 ou autres applications
    ActiveWorkbook.SaveAs Filename:="C:\bDossiers\fd.xls", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    Application.DisplayAlerts = True
    
    ThisWorkbook.Save
    Application.Quit
End Sub

