Discussion :

[ogenki]

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 :

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

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

[ouskel'n'or]

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 :

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

    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 :

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

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+

[ogenki]

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 :

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

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 ?

[ogenki]

si jamais sa interesse quelqun

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

Code :

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

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

[jmfmarques]

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

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