Onglets

Le
Crucey
Bonjour,
Est-il possible de récupérer les noms d'onglets d'un classeur afin de les
coller sur une feuille d'un autre classeur.
Merci
Pascal
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Papyjac
Le #17466951
Bonjour Crucey,

Si c'est par formule, il suffit de mettre une formule pointant sur chaque
onglet de ton classeur source. Ensuite tu combines ADRESSE, CHERCHE, STXT

Si c'est par VBA, tu boubles, FOR EACH IN Workbook.sheets, puis tu utilises
la propriété NAME de l'objet

--
Papyjac


"Crucey" a écrit :

Bonjour,
Est-il possible de récupérer les noms d'onglets d'un classeur afin de les
coller sur une feuille d'un autre classeur.
Merci
Pascal





Crucey
Le #17467051
Oui Heu mais encore...

"Papyjac" news:
Bonjour Crucey,

Si c'est par formule, il suffit de mettre une formule pointant sur chaque
onglet de ton classeur source. Ensuite tu combines ADRESSE, CHERCHE, STXT

Si c'est par VBA, tu boubles, FOR EACH IN Workbook.sheets, puis tu
utilises
la propriété NAME de l'objet

--
Papyjac


"Crucey" a écrit :

Bonjour,
Est-il possible de récupérer les noms d'onglets d'un classeur afin de les
coller sur une feuille d'un autre classeur.
Merci
Pascal







FFO
Le #17467141
Salut à toi

Je te propose ce code

For i = 1 To Workbooks("Classeur1.xls").Sheets.Coun
Workbooks("Classeur2.xls").Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1, 0) = Workbooks("Classeur1.xls").Sheets(i).Name
Next

Classeur1.xls le fichier source ayant le nom des onglets à recopier
Classeur2.xls le fichier de destination où l'on recopie les noms des Onglets
Feuil1 l'Onglet de destination dans lequel on rapporte les noms des Onglets
colonne A

Espérant que celà te convienne

Dis moi !!!
FFO
Le #17467491
Rebonjour à toi

Mon code c'est visiblement mal recopié
Utilise celui-ci :

For i = 1 To Workbooks("Classeur3").Sheets.Count
Workbooks("Classeur2").Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1,
0) = Workbooks("Classeur3").Sheets(i).Name
Next


Ces 2 lignes :

Workbooks("Classeur2").Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1,
0) = Workbooks("Classeur3").Sheets(i).Name

Doivent être mises bout à bout en une seule

Donnes moi des nouvelles !!!
Crucey
Le #17491731
Merci beaucoup c'est ce qu'il me fallait

"FFO"
Salut à toi

Je te propose ce code

For i = 1 To Workbooks("Classeur1.xls").Sheets.Count
Workbooks("Classeur2.xls").Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1,
0) = Workbooks("Classeur1.xls").Sheets(i).Name
Next

Classeur1.xls le fichier source ayant le nom des onglets à recopier
Classeur2.xls le fichier de destination où l'on recopie les noms des
Onglets
Feuil1 l'Onglet de destination dans lequel on rapporte les noms des
Onglets
colonne A

Espérant que celà te convienne

Dis moi !!!




Publicité
Poster une réponse
Anonyme