copier/coller sur Excel depuis vb6Résolu

Question

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

Renfield · Accepted Answer

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

rebelette · Answer

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?

rebelette · Answer

ça marche du tonnerre, merci...

Copier/coller sur Excel depuis vb6

3 réponses

Votre réponse

Discussions similaires