James007 a écrit :
Max,
Je comprends que tu es maintenant obligé d'effectuer plusieurs choses manuellement ...
Pour t'aider du mieux possible, peux-tu me faire la liste de ces étapes ...
James,
> Création Feuille Croisé et tableau croisé
' uniquement jusqu'à la ligne 60000
> Traitement tableau croisé (selon la macro définie)
>Récupération du numéro de la dernière ligne dans la feuille croisé
Range("F4").Select ' corrigé de N4 à F4 le 17/3
lignemax = 4
While Cells(lignemax, 6) <> ""
lignemax = lignemax + 1
> Ensuite je crée une feuille nommée couverture ou je fais un collage spéciale:
Range(Cells(4, 1), Cells(lignemax, 13)).Select
Selection.Copy
Sheets.Add
Sheets("Feuil3").Name = "couverture"
Sheets("couverture").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Je pense que le mieux, c'est que demain je t'envoie un fichier Stock qui a marché précédemment pour que tu voies la différence et le résultat attendu.
Max