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

Signaler
Messages postés
63
Date d'inscription
lundi 19 octobre 2009
Statut
Membre
Dernière intervention
5 janvier 2011
-
Messages postés
63
Date d'inscription
lundi 19 octobre 2009
Statut
Membre
Dernière intervention
5 janvier 2011
-
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

3 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
62
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
Messages postés
63
Date d'inscription
lundi 19 octobre 2009
Statut
Membre
Dernière intervention
5 janvier 2011

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?
Messages postés
63
Date d'inscription
lundi 19 octobre 2009
Statut
Membre
Dernière intervention
5 janvier 2011

ça marche du tonnerre, merci...