Collage spécial avec une "with...end with"
Résolu
TraderAS
Messages postés
110
Date d'inscription
Statut
Membre
Dernière intervention
-
TraderAS Messages postés 110 Date d'inscription Statut Membre Dernière intervention -
TraderAS Messages postés 110 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Collage spécial avec une "with...end with"
- Caractere special - Guide
- Dossier spécial - Guide
- Symbole special - Guide
- Ecriture special instagram - Guide
- Exemple planning 1 week-end sur 3 - Télécharger - Outils professionnels
