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

rebelette 63 Messages postés lundi 19 octobre 2009Date d'inscription 5 janvier 2011 Dernière intervention - 17 mars 2010 à 11:53 - Dernière réponse : rebelette 63 Messages postés lundi 19 octobre 2009Date d'inscription 5 janvier 2011 Dernière intervention
- 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 

Votre réponse

3 réponses

Meilleure réponse
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 17 mars 2010 à 15:12
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

Merci Renfield 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 69 internautes ce mois-ci

Commenter la réponse de Renfield
rebelette 63 Messages postés lundi 19 octobre 2009Date d'inscription 5 janvier 2011 Dernière intervention - 17 mars 2010 à 13:47
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
rebelette 63 Messages postés lundi 19 octobre 2009Date d'inscription 5 janvier 2011 Dernière intervention - 17 mars 2010 à 15:35
0
Merci
ça marche du tonnerre, merci...
Commenter la réponse de rebelette

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.