Voici peut-être un réponse à ton besoin :
Sub ReCopier(FichierSource As String, LigneXlsDestination As Range)
On Error GoTo ErreurOpen
Workbooks.Open FichierSource, False, True, AddToMru:=False
On Error Resume Next
ActiveSheet.Rows("1:1").Copy
LigneXlsDestination.EntireRow.PasteSpecial
Application.CutCopyMode = False
ActiveWorkbook.Close False
Exit Sub
ErreurOpen:
MsgBox "Erreur lors de l'ouverture du fichier :" & vbNewLine _
& Error(Err), vbCritical, "Erreur n°" & Err
End Sub
Le principe est d'appeler cette fonction en lui passant comme paramètre le nom d'un fichier et une référence de cellule où la ligne doit être copiée
Animation vb 6 form
