[VBA-E]classeur et gestion de feuilles

bonjour

j'ai un nombre X de classeurs excel chaque classeur a une seule feuille
et chaque feuille a une en-tete de 7 lignes

je cherche un code qui me permetré de recupéré toutes les entete et de les metre dans un X+1ieme classeur

( engros pouvoir faire une liste de toute les entete)

j'ai fait un code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Macro2() ' ' 'copy de la page 1 sur la page2   Sheets("Feuil1").Select Range("A1:N7").Select Selection.Copy Sheets("Feuil2").Select Range("A1:N7").Select ActiveSheet.Paste 'copy de la page 3 sur la page 2   Sheets("Feuil3").Select Range("A1:N7").Select Selection.Copy Range("A4:N12").Select ActiveSheet.Paste End Sub

---

qui permet de faire le meme travail ( la diference toute les en-tetes sont dans le meme classeur juste dans des feuilles differente) existe 'til une fonction permetant d'allé cherché une feuile dans un autre classeur ? si oui laquelle ?

merci

Ogenki

Tu parles bien des entêtes de colonnes, non des entêtes de feuilles de calculs ?

Pour des entêtes de colonnes, tu sélectionnes la plage après avoir déterminé quelle était la dernière colonne

Code:

---

DernièreColonne = Selection.CurrentRegion.End(xlToRight).Column

---

Cette méthode ne donne le N° de la dernière colonne que si aucune colonne de la plage n'est vide
Ensuite,

Code:

---

1 2 3 4 5

Range(Cells(1,1),cells(1,DernièreColonne)).select Selection.copy Workbooks.Add Cell(1,1).select ActiveSheet.Paste

---

Sheets("Feuil2").Select
Si tu dois ouvrir un classeur existant, (workbooks.open filename:=...) tu sélectionnes la feuille avant de sélectionner la cellule de collage.

A+

bonjour ( je suis desolé pour le multi post mais un lag du forum ma fait poster plusieur foi si tu pouvai arangé sa...merci)

ensuite mon en-tete est un rectangle qui va de la case A1 a N7 si sa repond a ta question

j'ai trouvé dans la faq se code

Code:

---

1 2 3 4

Dim objWorkbookSource As Workbook, objWorkbookCible As Workbook objWorkbookSource = Application.Workbooks.Open(Application.GetOpenFilename) objWorkbookCible = Application.Workbooks.Add

---

mais je ne sais pas trop comment m'en servir tu a une idée sur la question ?

si jamais sa interesse quelqun

ouvre un classeur et copy l'entete de se classeur dans le claseur de base

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Macro1() ' ' Macro1 Macro '   ' Workbooks.Open Filename:= _ "C:\Documents and Settings\MonClasseurSource.xls" Range("A1:N6").Select Selection.Copy Windows("MonClasseurReception.xls").Activate Range("A1").Select ActiveSheet.Paste End Sub

---

N'oublies pas de dire un grand merci à l'enregistreur de macros !

Cà lui fera plaisir et il continuera à bien faire son travail .

:D