[VB 6]copier coller ligne excel Fermé

Question

Bonjour,

 je cherche les commandes en vb qui me permettent:
1- d'ouvrir un fichier excel 
2- de copier la premiere ligne de ce fichier
3- de la coller dans un autre fichier excel

merci

BzhRico · Answer

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

[VB 6]copier coller ligne excel

1 réponse

Discussions similaires