Affectation à une cellule de la propriété titre du classeur Exce l

voir cellule().

-----Message d'origine-----
Comment récupérer dansune cellule d'une feuille les
informations du résumé du

classeur
.

Sub tpaspoli()
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
On Error Resume Next
Cells(rw, 1).Value = p.Name
Cells(rw, 2).Value = ActiveWorkbook.BuiltinDocumentProperties(p.Name)
rw = rw + 1
Next
End Sub

Cordialement
Pascal

"Patrick GNT" <Patrick GNT@discussions.microsoft.com> a écrit dans le
message de news:9DC2ACF0-4CFA-4959-8456-B212E8BE0933@microsoft.com...

Comment récupérer dansune cellule d'une feuille les informations du résumé
du

classeur

J'ai finalement trouvé ce que je cherchais à faire à niveau du workbook:

Private Sub Workbook_Open()
'
Dim Titre As String
Dim Sujet As String

' On permet des modifs sur les feuilles nommées "Récapitulatif" et
"Suivi_Bugs"
Worksheets("Suivi_Bugs").Unprotect
Worksheets("Récapitulatif").Unprotect

' On récupére le Titre et le sujet de la boite propriété du classeur
Titre = ThisWorkbook.BuiltinDocumentProperties("Title")
Sujet = ThisWorkbook.BuiltinDocumentProperties("Subject")

' On range dans la cellule "Titre_Suivi" de la feuille "Suivi_Bugs"
' et dans la cellule "Titre_Reca" de la feuille "Récapitulatif"
Worksheets("Suivi_Bugs").Range("Titre_Suivi") = Titre
Worksheets("Récapitulatif").Range("Titre_Recap") = Titre

' On range dans la cellule "Sujet_Suivi" de la feuille "Suivi_Bugs"
' et dans la cellule "Sujet_Reca" de la feuille "Récapitulatif"
Worksheets("Suivi_Bugs").Range("Sujet_Suivi") = Sujet
Worksheets("Récapitulatif").Range("Sujet_Recap") = Sujet

' On protège la feuille "Récapitulatif"
Worksheets("Récapitulatif").Protect Contents:=True, UserInterfaceOnly:=True

' On permet d'ajouter des anomalies (insertion de lignes et saisie) dans la
feuille "suivi_bugs"
Worksheets("Suivi_Bugs").Protect Contents:=True, AllowInsertingRows:=True,
UserInterfaceOnly:=True

End Sub

Mais merci pour vos conseils, qui m'ont été utiles

Sub tpaspoli()
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
On Error Resume Next
Cells(rw, 1).Value = p.Name
Cells(rw, 2).Value = ActiveWorkbook.BuiltinDocumentProperties(p.Name)
rw = rw + 1
Next
End Sub

Cordialement
Pascal

"Patrick GNT" <Patrick GNT@discussions.microsoft.com> a écrit dans le
message de news:9DC2ACF0-4CFA-4959-8456-B212E8BE0933@microsoft.com...

Comment récupérer dansune cellule d'une feuille les informations du résumé
du

classeur

Bonjour

Mais merci pour vos conseils, qui m'ont été utiles
Tant mieux !

Mais n'oublie pas le petit Bonjour pour commencer, il ne te coûte pas grand
chose et incitera plus de monde à te répondre ;-)
Cordialement
Pascal

"Patrick GNT" <Patrick GNT@discussions.microsoft.com> a écrit dans le
message de news:F50AA431-565F-4319-ACA4-459E4C44FA8C@microsoft.com...

J'ai finalement trouvé ce que je cherchais à faire à niveau du workbook:

Private Sub Workbook_Open()
'
Dim Titre As String
Dim Sujet As String

' On permet des modifs sur les feuilles nommées "Récapitulatif" et
"Suivi_Bugs"
Worksheets("Suivi_Bugs").Unprotect
Worksheets("Récapitulatif").Unprotect

' On récupére le Titre et le sujet de la boite propriété du classeur
Titre = ThisWorkbook.BuiltinDocumentProperties("Title")
Sujet = ThisWorkbook.BuiltinDocumentProperties("Subject")

' On range dans la cellule "Titre_Suivi" de la feuille "Suivi_Bugs"
' et dans la cellule "Titre_Reca" de la feuille
"Récapitulatif"

Worksheets("Suivi_Bugs").Range("Titre_Suivi") = Titre
Worksheets("Récapitulatif").Range("Titre_Recap") = Titre

' On range dans la cellule "Sujet_Suivi" de la feuille "Suivi_Bugs"
' et dans la cellule "Sujet_Reca" de la feuille
"Récapitulatif"

Worksheets("Suivi_Bugs").Range("Sujet_Suivi") = Sujet
Worksheets("Récapitulatif").Range("Sujet_Recap") = Sujet

' On protège la feuille "Récapitulatif"
Worksheets("Récapitulatif").Protect Contents:=True,
UserInterfaceOnly:=True

' On permet d'ajouter des anomalies (insertion de lignes et saisie) dans
la

feuille "suivi_bugs"
Worksheets("Suivi_Bugs").Protect Contents:=True,
AllowInsertingRows:=True,

UserInterfaceOnly:=True

End Sub

Mais merci pour vos conseils, qui m'ont été utiles

Sub tpaspoli()
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
On Error Resume Next
Cells(rw, 1).Value = p.Name
Cells(rw, 2).Value = ActiveWorkbook.BuiltinDocumentProperties(p.Name)
rw = rw + 1
Next
End Sub

Cordialement
Pascal

"Patrick GNT" <Patrick GNT@discussions.microsoft.com> a écrit dans le
message de news:9DC2ACF0-4CFA-4959-8456-B212E8BE0933@microsoft.com...

Comment récupérer dansune cellule d'une feuille les informations du
résumé

du

classeur