Copier et collage spécial
' Copier - coller comptage mois et année :
Bonjour,
je suis bloqué dans mon code ci-dessous. Je n'arrive pas a faire copier (à partir du fichier Donnees qui a 2 feuilles : feuille1, feuille2) et faire un copy-coller valeur (collage spécial avec valeur) dans mon classeur de travail :
je veux copier la feuille1 de Donnees dans la feuille11 de mon classeur de travail et la feuille2 dans la feuille22 aussi
[....
Set Wb = ThisWorkbook
Chemin = ThisWorkbook.Path & "\"
Fichier = "Donnees.xlsx"
With Workbooks.Open(Filename:=Chemin & Fichier )
' Copier - coller feuille1 et feuille2 du classeur Donnees dans feuille11 et feulle22 de mon classeur de travail :
With .Sheets("feuilles1")
.Range("C2:N12").Copy Wb.Sheets("feulle11").Range("C7")
.PasteSpecial Paste:=xlPasteValues
.Application.CutCopyMode = False
End With
With .Sheets("feuille2")
.Range("C2:D12").Copy Wb.Sheets("feuille22").Range("C23")
.PasteSpecial Paste:=xlPasteValues
.Application.CutCopyMode = False
End With
.Close savechanges:=False
End With]
je vous remercie d'avance
et bon début de weekend
Bonjour,
il n'y aurait pas une erreur ici déjà ?
.Range("C2:N12").Copy Wb.Sheets("feulle11").Range("C7")
Non l'erreur est plutot à partir de :
.PasteSpecial Paste:=xlPasteValues
re,
essaye ceci: (et renommes tes feuilles correctement ...)
Dim Ws1, Ws2 As Worksheet
Set Ws1 = Sheets("F1"): Set Ws2 = Sheets("F2") ' F1 = source F2 = cible
Ws1.Range("C2:N12").Select
Selection.Copy
Ws2.Range("C7").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False