Problème copier/coller VBA (erreur 1004..)
jfblaquiere
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
Thorak83 Messages postés 1051 Date d'inscription Statut Membre Dernière intervention -
Thorak83 Messages postés 1051 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Impossible de coller les données de votre organisation ici.
- Fuite données maif - Guide
- Supprimer les données de navigation - Guide
- Service de diffusion de données - Forum TNT / Satellite / Réception
- Barre de données excel pourcentage 100 ✓ - Forum Excel
- Historique copier coller - Guide
1 réponse
Bonjour,
Ton code fonctionne chez moi sur Excel 2010. Mais je le simplifierais un peu comme cela:
C'est optimisable encore plus mais bon.
Le classeur "7- Xtime - Macros" ou vous collez est vide ?
Cordialement
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
Non, le classeur "7- Xtime - Macros" n'est pas vide, il y a déjà du contenu.
J'ai essayé tes lignes de codes et voici le message qu'on m'affiche quand j'applique le PasteSpecial :
------
Erreur d'exécution '1004'
Impossible de coller les informations car les zones de Copier et de Collage sont de forme et de taille différentes. Essayer l'une des opérations suivantes :
- Cliquez sur une seule cellule et puis coller ;
- Sélectionnez une forme rectangulaire de taille et de forme identiques aux informations copier et puis coller.
--------
Même si la macro est censée coller seulement sur la cellule A1. Si je change le Range ("A1") pour un range identique (Range("A1:S4060")) .. ça ne fonctionne pas plus.
On me dit :
-----
Erreur d'exécution '1004'
Cette opération requiert que les les cellules fusionnées soient de taille identique.
-----
Merci de ton aide
Donc, quand je le fais manuellement, je dis "oui" à "voulez-vous remplacer le contenu des cellules de destination?"... oui.
J'aimerais l'automatiser avec une macro et que je n'aie pas besoin de cliquer "oui".
Est-ce possible?