Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier coller entre classeur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion croftman
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

croftman

Guest
Bonjour!

Voila, je voudrais copier-coller des cellules d'un classeur à un autre mais uniquement leur valeurs, j'ai testé ce code :

Code: 
MaFeuilleDeDonnees.Range("B10", "H2503").Copy
Sheets("Prix").Range("A1", "G2494").PasteSpecial xlPasteValues, xlPasteSpecialOperationNone

Mais ça me copie aussi les formats de cellules!

Si je fais ça :
Code: 
MaFeuilleDeDonnees.Range("B10", "H2503").Copy
Sheets("Prix").Range("A1", "G2494").PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, False

J'ai une erreur (La méthode PasteSpecial de la classe Range à échoué)

Et idem pour
Code: 
MaFeuilleDeDonnees.Range("B10", "H2503").Copy
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Auriez vous une solution??

Merci d'avance!
 
Trier par date Trier par votes
Re : Copier coller entre classeur

Heu oui j'avais vu cela! Mais ça me copie encore les valeurs ET les formats!
Je ne comprend pas pourquoi ça ne marche pas par le code VBA!
 
Vote positif 0 Vote négatif
Re : Copier coller entre classeur

Bonjour,

tout simplement parce que tes cellules de destination sont déjà au format de tes cellules copiées, je pense
Mets toutes tes cellules de destination au format normal, et re-essaye
 
Vote positif 0 Vote négatif
Re : Copier coller entre classeur

Pas bête mais toujours pas!

Mes cellules de destination sont au format "Standard" mais lors de la copie ben les formats sont copiés, ainsi que les couleurs, le gras, l'italique, le souligné...

C'est assez embêtant!

Merci de votre aide!
 
Vote positif 0 Vote négatif
Re : Copier coller entre classeur

Re-,

le format "standard" ne veut pas dire que les cellules sont en normal(non gras), non soulignées, police standard.....

Supprimes tes anciennes cellules, ou colles les cellules dans un autre onglet, et re-essaye

Le :

Code: 
Paste:=xlPasteValues

n'a aucune raison de reproduire le format des cellules copiées
 
Vote positif 0 Vote négatif
Re : Copier coller entre classeur

Oui c'est bien pour cela que je suis venue poser la question :x
Je vais faire des tests sur d'autres classeurs!

Edit : Avec un classeur tout nouveau, ça me copie aussi les formats!
Je n'y comprend plus rien la...

Voila le code complet du copier coller :

Code: 
Dim xls As New Excel.Application, MonClasseur, MaFeuilleDeDonnees

Set xls = New Excel.Application
Set MonClasseur = xls.Workbooks.Open(ThisWorkbook.Path & "\Module_base-prix_MidiPy_19-05-08.xls")
Set MaFeuilleDeDonnees = MonClasseur.Worksheets("base-prix_PERSO")

MaFeuilleDeDonnees.Range("B10", "H2503").Copy
Feuil1.Range("A1", "G2494").PasteSpecial xlPasteValues ', xlPasteSpecialOperationNone ', False, False
MaFeuilleDeDonnees.Range("N10", "N2503").Copy
Feuil1.Range("H1", "H2494").PasteSpecial xlPasteValues ', xlPasteSpecialOperationNone ', False, False
MaFeuilleDeDonnees.Range("HJ8", "HK29").Copy
Feuil1.Range("I18", "J39").PasteSpecial xlPasteValues ', xlPasteSpecialOperationNone ', False, False

MonClasseur.Close (False)
xls.Quit
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Copier coller entre classeur

Re-

pourquoi ouvrir une nouvelle instance d'excel?

Code: 
Dim MonClasseur, MaFeuilleDeDonnees

Set MonClasseur = Workbooks.Open(ThisWorkbook.Path & "\client1.xls")
Set MaFeuilleDeDonnees = MonClasseur.Worksheets("base-prix_PERSO")

MaFeuilleDeDonnees.Range("B10", "H2503").Copy
Feuil1.Range("A1", "G2494").PasteSpecial xlPasteValues ', xlPasteSpecialOperationNone ', False, False
MaFeuilleDeDonnees.Range("N10", "N2503").Copy
Feuil1.Range("H1", "H2494").PasteSpecial xlPasteValues ', xlPasteSpecialOperationNone ', False, False
MaFeuilleDeDonnees.Range("HJ8", "HK29").Copy
Feuil1.Range("I18", "J39").PasteSpecial xlPasteValues ', xlPasteSpecialOperationNone ', False, False

MonClasseur.Close (False)

PS, ton code m'a un peu foutu une belle pagaille....
 
Vote positif 0 Vote négatif
Re : Copier coller entre classeur

Non non Feuil1 ou sheets("Feuil1") ça fonctionne 🙂

Pourquoi une belle pagaille? Chez moi il fonctionne, hormis qu'il me copie tout au lieu des valeurs seulement 🙂

Edit: Ah ben oui, sans ouvrir une nouvelle instance, ça fonctionne oO

Merci 😀
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Copier coller entre classeur

Re-,

Pourquoi une belle pagaille?
Cliquez pour agrandir...

Ben, parce que j'ai un perso.xls, et que le fait d'ouvrir une nouvelle instance rend celui-ci inopérant....

Bref, je ne sais qui t'a donné ce code, mais je ne comprends pas pourquoi il avait rajouté une instance....

C'est valable, lorsque tu fais des liaisons entre "programme" (Word, Outlook...), mais pour Excel.......
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

J
  • Résolu(e)
Microsoft 365 Collage valeur Erreur d'exécution 1004
Réponses
7
Affichages
220
Magic_Doctor
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
459
juju91
J
C
  • Résolu(e)
XL 2021 MsgBox : Je ne sais pas faire...
Réponses
10
Affichages
186
Constantin
C
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
202
sylvanu
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
421
MATLEA
M
F
Fdaga
Réponses
2
Affichages
136
dysorthographie
  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
343
Phil69970
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
646
AtTheOne
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
761
Nounours4173
N
F
Fdaga
Réponses
0
Affichages
191
Fdaga
F
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
792
ph.vanne
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
647
safranien
S
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
1 K
Phil69970
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
597
sylvanu
V
  • Question Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
745
Valter
V
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
697
micie1509
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
803
robpellan52
R
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
400
MICHIS
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…