Private Sub Transfert_Click()
Dim ligne As Integer
Dim I As Integer
ligne = 2
Cheminfichier = Application.GetOpenFilename("Fichiers Excels (*.xlsx), *.xlsx")
If Cheminfichier = False Then
MsgBox ("Copie annulé")
Exit Sub
End If
Workbooks.Open Cheminfichier
For I = Len(Cheminfichier) To 1 Step -1
If Mid(Cheminfichier, I, 1) = "\" Then Exit For
Next
nomfichier = Mid(Cheminfichier, I + 1, Len(Cheminfichier))
ThisWorkbook.Sheets("Local").Range("A1") = Workbooks(nomfichier).Sheets("Externe").Range("A1").Value
Workbooks(nomfichier).Close
ligne = ligne + 1
MsgBox ("Copie effectué avec succes !!")
End Sub