Discussion :

[Tinien]

Bonjour,
Est il possible d'afficher le titre du classeur ou de la page automatiquement dans une cellule ?

[zandru]

Bonjour,

Ce ne serait pas quelque chose comme cela que tu cherche :

Code :

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

1
2
    Feuil1.Cells(1, 1) = ActiveWorkbook.Name
    Feuil1.Cells(1, 2) = ActiveSheet.Name

[Tinien]

Si cela permet de prendre le titre et de le mettre dans une cellule oui
Merci

[Tinien]

Euh non je n'y arrive pas ,
j'ai programmer les lignes de commande sur
Sub document_open
mais pas de résultat.
j'ai aussi changer feuil1 par sheet1 sachant que je travaille sur une version anglaise

[zandru]

Attention, sheet1 est bien le codename, (name) dans les propriétés, de ta feuille et non pas son nom, Name dans les propriétés ?

et pourquoi pas :

Code :

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

Sub Workbook_Open()

[Tinien]

Aucune différence.
Je ne suis pas un pro mais quels sont les variables a déclaré ?

[SilkyRoad]

bonjour


As tu essayé simplement par formule (à condition que le classeur soit sauvegardé)


Affiche le nom du classeur :

Code :

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

=STXT(CELLULE("nomfichier"); TROUVE("["; CELLULE("nomfichier"))+1;TROUVE("]"; CELLULE("nomfichier"))- TROUVE("["; CELLULE("nomfichier"))-1)

Le nom de la feuille :

Code :

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

=DROITE(CELLULE("nomfichier";A1);NBCAR(CELLULE("nomfichier";A1))-TROUVE("]";CELLULE("nomfichier";A1)))

bonne journée
michel

[Tinien]

Cette formule est pour excel en francais ?

[zandru]

Aucune différence.
Je ne suis pas un pro mais quels sont les variables a déclaré ?

Il n'y a aucune variable à déclarer. Par contre il faut regarder les propriété de ta feuille sous VBA.
Si tu ne veux pas utilisé VBA, la solution de SilkyRoad te conviendra mieux.

[Tinien]

je l'utilise mais en tant que grand débutant !!
J'apprend tout doucement

[zandru]

je l'utilise mais en tant que grand débutant !!
J'apprend tout doucement

On apprend tous un peu ici...

Alors, sous VBA, si tu utilise les noms de tes feuilles tu peu écrire :

Code :

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

1
2
3
4
Sub Workbook_Open()
    worksheet("sheet1").Cells(1, 1) = ActiveWorkbook.Name
    worksheet("sheet1").Cells(1, 2) = ActiveSheet.Name
end sub

et ce sub devrait se lancer à l'ouverture de ton fichier xls.

Pour les tests je te conseil de mettre le code dans un module et de le lancé à partir de VBA (touche F5) pour voir si le code fonctionne bien.