Sub Importation_SourceDato()
Dim FichierDato, Template As String
FichierDato = Application.GetOpenFilename("Fichier Excel (*.xlsx), *.xlsx", , _
"Choisissez votre fichier Dato !")
If FichierDato = "Faux" Then
MsgBox "@Data Tech : Vous souhaitez annulé?"
End
End If
Template = ActiveWorkbook.Name 'Notre template de reporting
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Source").Activate
ActiveSheet.Cells.Select
'Selection.Clear '--- pourquoi ???
On Error GoTo 0
Application.ScreenUpdating = False
'Transfert par Copier/coller
Application.DisplayAlerts = True
Workbooks.Open Filename:=FichierDato, ReadOnly:=True
NomFichierOuvert = ActiveWorkbook.Name
'Set entete = ActiveSheet.Cells.Find(what:="Vendor Name") 'A adapter
Set entete = ActiveSheet.Cells.Find(what:="Date") 'modifié
If entete Is Nothing Then
ActiveSheet.Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count).CurrentRegion.Copy
Else
ActiveSheet.Range(Cells(entete.Row + 1, entete.Column), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)).Copy
End If
Workbooks(Template).Activate
ActiveWorkbook.Sheets("Destination").Activate
ActiveSheet.Range("I" & Cells(Rows.Count, "i").End(3)(2).Row).Select '--- modifié
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Application.DisplayAlerts = False
Workbooks(NomFichierOuvert).Close
Application.DisplayAlerts = True
End Sub