découpe fichier avec insertion automatique d'entêtes

[jv44]

Bonjour bonjour,

Nouveau défit pour vous exceliens (un jour j'y arriverais !).

toujours sur le meme sujet de découpe de fichiers, j'aimerais "compliquer" la tache !!

J'aimerais pouvoir inserer sur chaque fichiers générés une premiere ligne entête, en allant le chercher dans le second onglet ou en le reprenant en haut du chichier.

je vous joint un fichier d'exemple avec déjà la maccro de découpe initiale.

(mon excel est en anglais)

 

[STephane]

Re : découpe fichier avec insertion automatique d'entêtes

Peux-tu décaler la copie en A2 et utiliser au préalable une instruction qui copiera l'en-tête en A1 ?

    d.Rows(1).Copy ws.Range("A1")  'où d est la zone "UsedRange" de la feuille courante
    r.Copy ws.Range("A2")