Bonjour,
Je n'arrive pas à résoudre un problème. J'ai comparé mon code à plusieurs autres codes présents sur le forum qui me paraît être le même mais ne fonctionne pas.
Je voudrais copier/coller des valeurs d'un classeur à un autre en les transposant. Au départ ce sont des lignes et je les voudrais en colonnes. J'utilise pour cela la fonction PasteSpecial
Voila mon code :
Code :
- xlAux.Workbooks(cheminFichier).Sheets(1).Range(xlAux.Workbooks(cheminFichier).Sheets(1).Cells(13 + nbLigCom, 13), xlAux.Workbooks(cheminFichier).Sheets(1).Cells(13 + nbLigCom, 256)).Copy
- wbResult.Sheets(numeroPage).Activate ' Activation de la page traitée
- wbResult.Sheets(numeroPage).Cells(mesLigDonnees, colAffich).Select
- Selection.PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, True
|
xlaux est une autre application Excel que j'ai crée qui est caché à l'utilisateur, je récupére les valeurs du classeur que j'ai ouvert à l'intérieur
wbResult est un classeur de la meme application sur laquelle il y a la macro
Quant je le fais avec l'enregistrement de macro, ça fonctionne, mais par le programme ça ne marche plus. J'ai vérifié les données copiées qui sont les bonnes et la cellule que je sélectionne est bonne aussi.
J'ai un message d'erreur : La méthode PasteSpécial de la classe Range a échoué
Si quelqu'un a une idée, je suis preneur
Merci d'avance
Message édité par sixroses le 28-10-2010 à 10:39:31