erreur 1004 sous plusieurs formes

decricri

XLDnaute Nouveau
Bonjour à tous, mon responsable m'a demandé d'automatiser un de ses fichiers excel, jusque là pas de soucis mais lorsque je fais des copier coller, le message d'erreur apparaît avec les cellules fusionnées ne peuvent être copiées ou fonction pastespecial impossible. Si quelqu'un a une idée cela fait 3 jours que je cherche j'ai fait le tour du site mais ne suis pas tombé sur ce dont j'avais besoin. Voici une partie de ce code:

Sub tableau()
'
' tableau Macro
'

'
'Janvier'
Sheets("Janvier2011").Select
Range("A17:K200").Select
Selection.Copy
Sheets("Période à coller ici ").Select
Range("A17").Select
ActiveSheet.Paste
ActiveSheet.ListObjects("Tableau594956").Range.AutoFilter Field:=6, _
Criteria1:="FE"
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Période à coller ici ").ListObjects("Tableau594956") _
.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Période à coller ici ").ListObjects("Tableau594956") _
.Sort.SortFields.Add Key:=Range("Tableau594956[[#All],[Tps d''arrêt ]]"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Période à coller ici ").ListObjects( _
"Tableau594956").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Bilan Janvier").Select
Range("A77:K97").Select
Application.CutCopyMode = False
Selection.ClearContents
Sheets("Période à coller ici ").Select
Range("A16:K200").Select
Selection.Copy
Sheets("Bilan Janvier").Select
Range("A77").Select
Selection.PasteSpecial Paste:=xlPasteValues erreur ici
Columns("J:J").EntireColumn.AutoFit
Columns("K:K").EntireColumn.AutoFit
Columns("I:I").EntireColumn.AutoFit
 

herve62

XLDnaute Barbatruc
Supporter XLD
Re : erreur 1004 sous plusieurs formes

Peut -être qu'en joignant le fichier on verra plus clair ? là on peut rien reproduireEn VBA , on évite aussi le COPY/PASTE qui est source de nombreux problèmes, mieux vaut ajouter qq lignespour prendre les valeurs et les mettre ou l'on veut ( conseils d'anciens d'il y a qq années)
 

Discussions similaires

Réponses
3
Affichages
574

Statistiques des forums

Discussions
312 182
Messages
2 086 001
Membres
103 084
dernier inscrit
Hervé30120