[VB 6]copier coller ligne excel
mirounet
Messages postés
15
Date d'inscription
Statut
Membre
-
BzhRico -
BzhRico -
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
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
Configuration: Windows XP Firefox 2.0.0.4
1 réponse
-
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
