collage spécial dans excel depuis VB6Résolu

Question

bonjour à tous

j'essaie de créer un programme en VB6 afin de faire diverses opérations sur des workbooks.

J'ai besoin de copier le contenu de cellules trouvé par des formules, puis de coller la valeur dans un autre workbook (en gros: j'ai =A1+A2 dans la cellule à copier, et je veux sortir la valeur dans la cellule de destination)

j'ai essayé d'utiliser un .pastespecial, qui fonctionne très bien quand on est dans une macro, mais en exécutant depuis VB6 çà ne marche pas.

voici le code que j'ai tapé dans VB6:

    XLSout.Sheets(1).Range("H" & cellOut & ":H" & b).Copy
    XLSout.Sheets(2).Activate
    XLSout.Sheets(2).Range("A" & cellOut).Select
    XLSout.ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


si quelqu'un à une idée de pourquoi çà ne marche pas, je suis largement preneur!!!

merci d'avance

cordialement 

Lepico27

lepico27 · Accepted Answer

bon en fait j'ai trouvé tout seul, çà a marché en faisant:


    XLSout.Sheets(2).Range("A8").PasteSpecial xlPasteValues


çà pourra ptet aider qqun

lepico27 · Answer

je sais pas pourquoi, mais tous les sauts de ligne ont été supprimés, je réessaye:

bonjour à tous 


j'essaie de créer un programme en VB6 afin de faire diverses opérations sur des workbooks. 


J'ai besoin de copier le contenu de cellules trouvé par des formules, puis de coller la valeur dans un autre workbook (en gros: j'ai =A1+A2 dans la cellule à copier, et je veux sortir la valeur dans la cellule de destination) 


j'ai essayé d'utiliser un .pastespecial, qui fonctionne très bien quand on est dans une macro, mais en exécutant depuis VB6 çà ne marche pas. 

voici le code que j'ai tapé dans VB6: 

XLSout.Sheets(1).Range("H" & cellOut & ":H" & b).Copy 
XLSout.Sheets(2).Activate XLSout.Sheets(2).Range("A" & cellOut).Select 
XLSout.ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 


si quelqu'un à une idée de pourquoi çà ne marche pas, je suis largement preneur!!! 


merci d'avance 


cordialement 


Lepico27

Collage spécial dans excel depuis VB6

2 réponses

Votre réponse

Discussions similaires