Collage spécial avec une "with...end with"

Résolu/Fermé

TraderAS Messages postés 110 Date d'inscription lundi 3 décembre 2012 Statut Membre Dernière intervention 26 avril 2018 - 22 févr. 2013 à 11:33
TraderAS Messages postés 110 Date d'inscription lundi 3 décembre 2012 Statut Membre Dernière intervention 26 avril 2018 - 22 févr. 2013 à 16:22

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

A voir également:

Collage spécial avec une "with...end with"
Caractere special - Guide
Dossier spécial - Guide
Exemple planning 1 week-end sur 3 - Télécharger - Outils professionnels
Pic collage gratuit - Télécharger - Photo & Graphisme
Ecriture special facebook - Guide

2 réponses

Réponse 1 / 2

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
22 févr. 2013 à 14:53

Bonjour,
Rempace par...

Workbooks(FichS).Sheets("Feuil1").Range("B5").PasteSpecial. Paste:=xlPasteValues

A+

Réponse 2 / 2

TraderAS Messages postés 110 Date d'inscription lundi 3 décembre 2012 Statut Membre Dernière intervention 26 avril 2018 1
22 févr. 2013 à 16:22

merci, ca a marché

Discussions similaires

Comment résoudre "The requested URL was rejected"

EndClothing...

Girl i want to be with you..

Planning pour 3 salariés avec 1 week-end sur 3

Erreur d'authentification de minecraft.net