bonjour,
j'ai deux fichier excel ouvert. Actuellement j'utilise ce code pour importer des colonnes de mon deuxième fichier. Il importe les colonnes choisis à partir de la ligne 5.
Sub Transfert()
Dim WbK As String
Dim WB As String
Dim i As Integer
WbK = ActiveWorkbook.Name
Columns("A:A").Select
Selection.UnMerge
Range("A5").Select
If Workbooks.Count = 2 Then
For i = 1 To 2
If Not Workbooks(i).Name = ThisWorkbook.Name Then WB = Workbooks(i).Name
Next i
End If
Workbooks(WB).Activate
Columns("A:A").Select
Selection.UnMerge
Range("a5:h" & Range("h65536").End(xlUp).Row + 1).Copy
Workbooks(WbK).Activate
Range("a5:h" & Range("h65536").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A4").Select
End Sub
Maintenant ce que je souhaiterais faire c'est exporter des colonnes dans un autre fichier sur le même principe que le code ci-dessus.
En gros faire l'inverse.
quelqu'un peut m'aider à modifier le code?
bonne soirée