Problème copier/coller VBA (erreur 1004..) Fermé

Question

Bonjour,

Je cherche à automatiser un copier/coller. Quand je le fais manuellement, au moment du CTRL+V  excel me dit : "voulez-vous remplacer le contenu des cellules de destination". Je dis "oui" et tout fonctionne.

Quand j'essai de faire la manipulation avec VBA, j'ai toujours une erreur qui survient (et j'aimerais ne pas avoir à cliquer sur "oui" pour permettre de remplacer le contenu des cellules de destnation.



Voici mon code :


Application.DisplayAlerts = False


Workbooks("_Xtime - Toyota").Activate
    Sheets("Consumer_Website_Statistics_Lat").Activate
        Application.CutCopyMode = False
            Range("A1:S4060").Copy
        
Workbooks("7- Xtime - Macros").Activate
    Sheets("_Toyota").Activate
        ActiveSheet.Range("A1:S4060").Select
    Range("A1:S4060").Select
 '   ActiveSheet.Paste
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        



C'est la première question que je pose sur CCM. C'est surement la 1200e réponse que j'obtiendrai de CCM, cette fois-ci je n'ai pas réussi à trouver ma réponse en cherchant dans les posts déjà présent sur le site.

Je tient à remercier la communauté CCM pour les premières 1200 réponses déjà obtenue :)

Merci !!


JFB

Thorak83 · Answer

Bonjour,

Ton code fonctionne chez moi sur Excel 2010. Mais je le simplifierais un peu comme cela:
Workbooks("_Xtime - Toyota").Activate
Sheets("Consumer_Website_Statistics_Lat").Activate
Application.CutCopyMode = False
Range("A1:S4060").Copy

Workbooks("7- Xtime - Macros").Activate
Sheets("_Toyota").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

C'est optimisable encore plus mais bon.

Le classeur "7- Xtime - Macros" ou vous collez est vide ?

Cordialement

Problème copier/coller VBA (erreur 1004..)

1 réponse

Discussions similaires