Option Explicit
Sub importer()
Dim fin&, début&, wbksource As Workbook, wbkcible As Workbook, Fichier$, fd As Object, Nom$
Set wbkcible = ThisWorkbook
Fichier = ThisWorkbook.Path
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
.Title = "Choisissez le Fichier pour Importer les Données"
.InitialFileName = Fichier & "\1_Donnees_brutes\"
.Filters.Clear
.Filters.Add "Fichier Excel", "*.*"
.AllowMultiSelect = True
If .Show <> 0 Then
Nom = .SelectedItems(1)
Else
MsgBox "Vous n'avez aucun fichier" & vbCrLf & _
"ou Vous n'avez choisi aucun Fichier ", , "Manque de Fichier": GoTo 1
End If
End With
Set wbksource = Workbooks.Open(Nom)
'If ActiveSheet.Range("E1") = "Transféré" Then MsgBox "Ce fichier a déjà été Transféré", , "Fichier déjà transféré": GoTo 2
ActiveSheet.Range("A2:F" & ActiveSheet.Range("A65536").End(xlUp).Row).Copy wbkcible.Sheets("Base globale").Range("B65536").End(xlUp).Offset(1, 0)
wbksource.ActiveSheet.Range("E1") = "Transféré"
wbksource.Close savechanges:=True
1
début = ActiveSheet.Range("A65536").End(xlUp).Row
fin = ActiveSheet.Range("A65536").End(xlUp).Row
GoTo 3
2 wbksource.Close savechanges:=False
3
End Sub