Discussion :

[rond24]

Bjr,
j'exécute la même macro sur tous les classeurs présents dans un même répertoire, sauf celui qui contient la macro. J'utilise une boucle For each classeur in..... Next.
Pour le premier classeur tout se passe sans soucis. pour le deuxième classeur, la macro s'éxécute sans problème, c'est à dire qu'elle crée bien ma plage de données mais c'est lors de l'export que ça pose pb.
Elle bug à cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Classeur.Sheets("Source").Range("B1401:E65536").Cut _
(ThisWorkbook.Sheets("Restitution").Range("B" & Numrow3))

et j'obtiens comme message d'erreur que la méthode cut de l'objet range a échoué. je ne comprends pas dans la mesure où pour le premier classeur elle fonctionne. Et mes deux classeurs sont identiques.
Help please. merci

[ouskel'n'or]

Feuille protégée ?

[rond24]

Non, j'ai un classeur.unprotect avant.

[SfJ5Rpw8]

essai de faire la copie "à la main" histoire de ...

[rond24]

Le .cut ne fonctionne que si je spécifie dans mon range une plage de cellules non vides.(cad, mettre range ("B1401:E13512") au lieu de range ("B1401:E65536") . Or pour mon premier classeur où le . cut fonctionne je n'ai que 1725 lignes, vs 12111 pour le 2ème. dans un cas le fait prendre la plage la plus large possible ne semble pas poser pb, mais ensuite bug.
Je vais donc essayer de délimiter mon range de manière dynamique.

[SfJ5Rpw8]

en fait cela doit dépendre d'ou tu colle et de ton
Numrow3 ... si numrow3 trop grand du déborde des 65535 lignes de ta feuille