Problème de copie coller lié a l'utilisation de Columns

Résolu/Fermé
benjamin - Modifié par benjamin le 10/12/2013 à 13:50
 benjamin - 10 déc. 2013 à 14:45
Salut les amis

Avec mon classaur PRO DNB.xlsm; je desire effectuer une copie des colonnes A à AM d'une feuille nommée depenses pour la coller dans une autre feuille qui sera generée par l'application. mais hélas, puisque ça marche pas. le problème est lié a l'usage de columns. A l'absence de ce code tout marche bien. je sollicite votre assistance technique.
Voici le code que j'execute.

Workbooks("PRO DNB.xlsm").worksheets("Dépenses").columns("A:AM") copy_
after:=Workbooks("PRO DNB.xlsm").worksheets(worksheets.count)
A voir également:

2 réponses

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
10 déc. 2013 à 14:09
Bonjour,

Ce qui me gène dans ton code c'est le after...
En général, tu copies (méthode Copy) et tu colles... à partir d'une cellule.
Ce code, par exemple, fonctionne bien :
Workbooks("PRO DNB.xlsm").Worksheets("Dépenses").Columns("A:AM").Copy Workbooks("PRO DNB.xlsm").Worksheets(Worksheets.Count).Range("A1") 


Par contre, si tu as ajouté une feuille au préalable, tu dois en connaitre le nom...
0
Les mots me sont insuffisants pour te dire grand merci mon frère pijaku!
Ca marche bien et me donne le résultat attendu.

Par contre, j'ai pu utiliser le after dans une autre procédure et ma donné le résultat attendu.
Cela signifie qu'il faut copier et coller dans une autre feuille que l'application génèrera. Autrement, le after .... worksheets(worksheets.count) permet d'insérer une feuille après la dernière feuille actuelle.

Merci mon frère!!
0