Collage spécial avec une "with...end with"
Résolu
TraderAS
Messages postés
119
Statut
Membre
-
TraderAS Messages postés 119 Statut Membre -
TraderAS Messages postés 119 Statut Membre -
Bonjour,
je souhaite réaliser un collage spécial mais le code ne marche pas, j'ai besoin d'aide
Sub CopierColler()
Application.ScreenUpdating = False
Rep = "C:\Users\toshiba\Desktop\TRADING\Historical\"
FichD = ActiveWorkbook.Name
FichS = "Adwya.xlsm"
Workbooks.Open Rep & FichS
Rows("5:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
[A5] = [A6] + 1
With Workbooks(FichD)
.Sheets("Fundamentals").Range("B6:G6").Copy
Workbooks(FichS).Sheets("Feuil1").Range("B5:G5").PasteSpecial. Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks(FichS).Save
Workbooks(FichS).Close
End With
End Sub
merci
je souhaite réaliser un collage spécial mais le code ne marche pas, j'ai besoin d'aide
Sub CopierColler()
Application.ScreenUpdating = False
Rep = "C:\Users\toshiba\Desktop\TRADING\Historical\"
FichD = ActiveWorkbook.Name
FichS = "Adwya.xlsm"
Workbooks.Open Rep & FichS
Rows("5:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
[A5] = [A6] + 1
With Workbooks(FichD)
.Sheets("Fundamentals").Range("B6:G6").Copy
Workbooks(FichS).Sheets("Feuil1").Range("B5:G5").PasteSpecial. Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks(FichS).Save
Workbooks(FichS).Close
End With
End Sub
merci
