Private Sub Workbook_Open()
Const ChmSrc = "H:\Nvlle base", NomClsSrc = "BDD.xlsm", NomFeuiSrc = "Base"
Const ChmCbl = "H:\Nvlle base", NomClsCbl = ?, NomFeuiCbl = "Base Scoring"
Dim ClsSrc As Workbook, FSrc As Worksheet, ClsSrcÀFermer As Boolean, _
ClsCbl As Workbook, FCbl As Worksheet, ClsCblÀFermer As Boolean
On Error Resume Next
Set ClsSrc = Workbooks(NomClsSrc)
If Err Then
Err.Clear: Workbooks.Open Filename:=ChmSrc & "\" & NomClsSrc
If Err Then MsgBox "Il n'existe pas de classeur source """ & NomClsSrc & """" & _
vbLf & "sur """ & ChmSrc & """.", vbCritical, Me.Name: Exit Sub
Set ClsSrc = ActiveWorkbook: ClsSrcÀFermer = True: End If
Set ClsCbl = Workbooks(NomClsCbl)
If Err Then
Err.Clear: Workbooks.Open Filename:=ChmCbl & "\" & NomClsCbl
If Err Then MsgBox "Il n'existe pas de classeur cible """ & NomClsCbl & """" & _
vbLf & "sur """ & ChmCbl & """.", vbCritical, Me.Name: Exit Sub
Set ClsCbl = ActiveWorkbook: ClsCblÀFermer = True:: End If
Set FSrc = ClsSrc.Worksheets(NomFeuiSrc)
If Err Then MsgBox "Il n'existe pas de feuille source """ & NomFeuiSrc & """" & _
vbLf & "dans le classeur """ & ClsSrc.Name & """.", vbCritical, Me.Name: Exit Sub
Set FCbl = ClsCbl.Worksheets(NomFeuiCbl)
If Err Then MsgBox "Il n'existe pas de feuille cible """ & NomFeuiCbl & """" & _
vbLf & "dans le classeur """ & ClsCbl.Name & """.", vbCritical, Me.Name: Exit Sub
FCbl.[B1:EE10000].Value = FSrc.[B1:EE10000].Value
If Err Then MsgBox "Erreur en tentant de copier les valeurs :" & vbLf & Err.Description, vbCritical, Me.Name: Exit Sub
If ClsCblÀFermer Then ClsCbl.Close Savechange:=True
If ClsSrcÀFermer Then ClsSrc.Close Savechange:=False
Me.Close Savechange:=False
End Sub