Copier/coller sur Excel depuis vb6 [Résolu]

Messages postés
63
Date d'inscription
lundi 19 octobre 2009
Statut
Membre
Dernière intervention
5 janvier 2011
- - Dernière réponse : rebelette
Messages postés
63
Date d'inscription
lundi 19 octobre 2009
Statut
Membre
Dernière intervention
5 janvier 2011
- 17 mars 2010 à 15:35
Bonjour à tous,
j'ai un souci pour copier/coller un tableau Excel vers un autre tableau Excel. Je m'explique:
j'ai un tableau Excel. Je l'ai déclaré en tant qu'objet depuis mon application vb6 (+ rapide que des boucles). Je veux le copier/coller vers un autre tableau déclaré lui aussi en tant qu'objet, puis l'effacer (avec clearcontents). Le Tableau d'origine s'efface sans problèmes, mais entretemps, le copier/coller n'a pas fonctionné. J'ai été cherché sur Excel une ptte macro pour découvrir le code qui pouvait convenir:
Range("F13:F18").Select
Selection.Copy
Range("G13:G18").Select
ActiveSheet.Paste
mais le débogueur refuse ActiveSheet et Paste.
Quelqu'un a-t-il une piste? dois je créer un contrôle conteneur OLE? Merci de votre réponse
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57
3
Merci
cette manie qu'on les gens de mettre des .Select partout m'etonnera toujours...


Const xlValues = &HFFFFEFBD
Const xlNone = &HFFFFEFD2

Objet1.Copy 
Objet2.PasteSpecial Paste:=xlValues, Operation:=xlNone, _ 
SkipBlanks:=False, Transpose:=False 



Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 202 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Renfield
Messages postés
63
Date d'inscription
lundi 19 octobre 2009
Statut
Membre
Dernière intervention
5 janvier 2011
0
Merci
Rebonjour, après qq recherches, j'ai trouvé ceci, que j'ai essayé d'adapter aux 2 objets:
Objet1.Select
Objet1.Copy
Objet2.Select
Objet2.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Malheureusement, j'ai un refus de xlValues et xlNone. Quelqu'un peut-il m'aider?
Commenter la réponse de rebelette
Messages postés
63
Date d'inscription
lundi 19 octobre 2009
Statut
Membre
Dernière intervention
5 janvier 2011
0
Merci
ça marche du tonnerre, merci...
Commenter la réponse de rebelette