Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Phv0,
Pour le classeur en cours dans lequel la procédure est écrite :
'--------------------------- Sub test()
Dim A As Integer, Nb As Integer On Error Resume Next With ThisWorkbook.BuiltinDocumentProperties Nb = .Count For A = 1 To Nb Range("Feuil1!A" & A) = .Item(A).Name Range("Feuil1!B" & A) = .Item(A).Value Next End With End Sub '---------------------------
Salutations!
"Phv0" a écrit dans le message de news: Comment afficher une information du panneau Propriétés dans une cellule Excel ?
Exemple : Titre, Sujet, Auteur ou mot clé ou encore une information personnalisée.
Merci
Bonjour Phv0,
Pour le classeur en cours dans lequel la procédure est écrite :
'---------------------------
Sub test()
Dim A As Integer, Nb As Integer
On Error Resume Next
With ThisWorkbook.BuiltinDocumentProperties
Nb = .Count
For A = 1 To Nb
Range("Feuil1!A" & A) = .Item(A).Name
Range("Feuil1!B" & A) = .Item(A).Value
Next
End With
End Sub
'---------------------------
Salutations!
"Phv0" <Phv0@discussions.microsoft.com> a écrit dans le message de news: B0CF91A3-87DE-41EB-AE7B-1F83BBBA51C7@microsoft.com...
Comment afficher une information du panneau Propriétés dans une cellule Excel ?
Exemple : Titre, Sujet, Auteur ou mot clé ou encore une information
personnalisée.
Pour le classeur en cours dans lequel la procédure est écrite :
'--------------------------- Sub test()
Dim A As Integer, Nb As Integer On Error Resume Next With ThisWorkbook.BuiltinDocumentProperties Nb = .Count For A = 1 To Nb Range("Feuil1!A" & A) = .Item(A).Name Range("Feuil1!B" & A) = .Item(A).Value Next End With End Sub '---------------------------
Salutations!
"Phv0" a écrit dans le message de news: Comment afficher une information du panneau Propriétés dans une cellule Excel ?
Exemple : Titre, Sujet, Auteur ou mot clé ou encore une information personnalisée.
Merci
Phv0
Finalement, je me suis rendu compte que l'on peux utiliser cette routine dans une macro, ce qui fait mon affaire.
Merci beaucoup
Merci michdenis,
mais je n'utilise pas les procèdures par manque de connaissance.
Il me semblait pourtant qu'il ètait possible d'insérer une propriété sans pour autant recourir à une procédure...
Merci encore de ton aide.
Bonjour Phv0,
Pour le classeur en cours dans lequel la procédure est écrite :
'--------------------------- Sub test()
Dim A As Integer, Nb As Integer On Error Resume Next With ThisWorkbook.BuiltinDocumentProperties Nb = .Count For A = 1 To Nb Range("Feuil1!A" & A) = .Item(A).Name Range("Feuil1!B" & A) = .Item(A).Value Next End With End Sub '---------------------------
Salutations!
"Phv0" a écrit dans le message de news: Comment afficher une information du panneau Propriétés dans une cellule Excel ?
Exemple : Titre, Sujet, Auteur ou mot clé ou encore une information personnalisée.
Merci
Finalement, je me suis rendu compte que l'on peux utiliser cette routine dans
une macro, ce qui fait mon affaire.
Merci beaucoup
Merci michdenis,
mais je n'utilise pas les procèdures par manque de connaissance.
Il me semblait pourtant qu'il ètait possible d'insérer une propriété sans
pour autant recourir à une procédure...
Merci encore de ton aide.
Bonjour Phv0,
Pour le classeur en cours dans lequel la procédure est écrite :
'---------------------------
Sub test()
Dim A As Integer, Nb As Integer
On Error Resume Next
With ThisWorkbook.BuiltinDocumentProperties
Nb = .Count
For A = 1 To Nb
Range("Feuil1!A" & A) = .Item(A).Name
Range("Feuil1!B" & A) = .Item(A).Value
Next
End With
End Sub
'---------------------------
Salutations!
"Phv0" <Phv0@discussions.microsoft.com> a écrit dans le message de news: B0CF91A3-87DE-41EB-AE7B-1F83BBBA51C7@microsoft.com...
Comment afficher une information du panneau Propriétés dans une cellule Excel ?
Exemple : Titre, Sujet, Auteur ou mot clé ou encore une information
personnalisée.
Finalement, je me suis rendu compte que l'on peux utiliser cette routine dans une macro, ce qui fait mon affaire.
Merci beaucoup
Merci michdenis,
mais je n'utilise pas les procèdures par manque de connaissance.
Il me semblait pourtant qu'il ètait possible d'insérer une propriété sans pour autant recourir à une procédure...
Merci encore de ton aide.
Bonjour Phv0,
Pour le classeur en cours dans lequel la procédure est écrite :
'--------------------------- Sub test()
Dim A As Integer, Nb As Integer On Error Resume Next With ThisWorkbook.BuiltinDocumentProperties Nb = .Count For A = 1 To Nb Range("Feuil1!A" & A) = .Item(A).Name Range("Feuil1!B" & A) = .Item(A).Value Next End With End Sub '---------------------------
Salutations!
"Phv0" a écrit dans le message de news: Comment afficher une information du panneau Propriétés dans une cellule Excel ?
Exemple : Titre, Sujet, Auteur ou mot clé ou encore une information personnalisée.
Merci
Phv0
Merci michdenis,
mais je n'utilise pas les procèdures par manque de connaissance.
Il me semblait pourtant qu'il ètait possible d'insérer une propriété sans pour autant recourir à une procédure...
Merci encore de ton aide.
Bonjour Phv0,
Pour le classeur en cours dans lequel la procédure est écrite :
'--------------------------- Sub test()
Dim A As Integer, Nb As Integer On Error Resume Next With ThisWorkbook.BuiltinDocumentProperties Nb = .Count For A = 1 To Nb Range("Feuil1!A" & A) = .Item(A).Name Range("Feuil1!B" & A) = .Item(A).Value Next End With End Sub '---------------------------
Salutations!
"Phv0" a écrit dans le message de news: Comment afficher une information du panneau Propriétés dans une cellule Excel ?
Exemple : Titre, Sujet, Auteur ou mot clé ou encore une information personnalisée.
Merci
Merci michdenis,
mais je n'utilise pas les procèdures par manque de connaissance.
Il me semblait pourtant qu'il ètait possible d'insérer une propriété sans
pour autant recourir à une procédure...
Merci encore de ton aide.
Bonjour Phv0,
Pour le classeur en cours dans lequel la procédure est écrite :
'---------------------------
Sub test()
Dim A As Integer, Nb As Integer
On Error Resume Next
With ThisWorkbook.BuiltinDocumentProperties
Nb = .Count
For A = 1 To Nb
Range("Feuil1!A" & A) = .Item(A).Name
Range("Feuil1!B" & A) = .Item(A).Value
Next
End With
End Sub
'---------------------------
Salutations!
"Phv0" <Phv0@discussions.microsoft.com> a écrit dans le message de news: B0CF91A3-87DE-41EB-AE7B-1F83BBBA51C7@microsoft.com...
Comment afficher une information du panneau Propriétés dans une cellule Excel ?
Exemple : Titre, Sujet, Auteur ou mot clé ou encore une information
personnalisée.
mais je n'utilise pas les procèdures par manque de connaissance.
Il me semblait pourtant qu'il ètait possible d'insérer une propriété sans pour autant recourir à une procédure...
Merci encore de ton aide.
Bonjour Phv0,
Pour le classeur en cours dans lequel la procédure est écrite :
'--------------------------- Sub test()
Dim A As Integer, Nb As Integer On Error Resume Next With ThisWorkbook.BuiltinDocumentProperties Nb = .Count For A = 1 To Nb Range("Feuil1!A" & A) = .Item(A).Name Range("Feuil1!B" & A) = .Item(A).Value Next End With End Sub '---------------------------
Salutations!
"Phv0" a écrit dans le message de news: Comment afficher une information du panneau Propriétés dans une cellule Excel ?
Exemple : Titre, Sujet, Auteur ou mot clé ou encore une information personnalisée.
Merci
Phv0
Bonjour Michdenis
j'ai pratiqué le code que tu m'as donné dans une macro et il marche bien. Cependant il ne m'affiche pas les infos attendues soit les champs du Résumé (Titre, Sujet,...)
En effet, je souhaite mettre un titre que je veux afficher sur toutes les feuilles de mon classeur.
Merci
Finalement, je me suis rendu compte que l'on peux utiliser cette routine dans une macro, ce qui fait mon affaire.
Merci beaucoup
Merci michdenis,
mais je n'utilise pas les procèdures par manque de connaissance.
Il me semblait pourtant qu'il ètait possible d'insérer une propriété sans pour autant recourir à une procédure...
Merci encore de ton aide.
Bonjour Phv0,
Pour le classeur en cours dans lequel la procédure est écrite :
'--------------------------- Sub test()
Dim A As Integer, Nb As Integer On Error Resume Next With ThisWorkbook.BuiltinDocumentProperties Nb = .Count For A = 1 To Nb Range("Feuil1!A" & A) = .Item(A).Name Range("Feuil1!B" & A) = .Item(A).Value Next End With End Sub '---------------------------
Salutations!
"Phv0" a écrit dans le message de news: Comment afficher une information du panneau Propriétés dans une cellule Excel ?
Exemple : Titre, Sujet, Auteur ou mot clé ou encore une information personnalisée.
Merci
Bonjour Michdenis
j'ai pratiqué le code que tu m'as donné dans une macro et il marche bien.
Cependant il ne m'affiche pas les infos attendues soit les champs du Résumé
(Titre, Sujet,...)
En effet, je souhaite mettre un titre que je veux afficher sur toutes les
feuilles de mon classeur.
Merci
Finalement, je me suis rendu compte que l'on peux utiliser cette routine dans
une macro, ce qui fait mon affaire.
Merci beaucoup
Merci michdenis,
mais je n'utilise pas les procèdures par manque de connaissance.
Il me semblait pourtant qu'il ètait possible d'insérer une propriété sans
pour autant recourir à une procédure...
Merci encore de ton aide.
Bonjour Phv0,
Pour le classeur en cours dans lequel la procédure est écrite :
'---------------------------
Sub test()
Dim A As Integer, Nb As Integer
On Error Resume Next
With ThisWorkbook.BuiltinDocumentProperties
Nb = .Count
For A = 1 To Nb
Range("Feuil1!A" & A) = .Item(A).Name
Range("Feuil1!B" & A) = .Item(A).Value
Next
End With
End Sub
'---------------------------
Salutations!
"Phv0" <Phv0@discussions.microsoft.com> a écrit dans le message de news: B0CF91A3-87DE-41EB-AE7B-1F83BBBA51C7@microsoft.com...
Comment afficher une information du panneau Propriétés dans une cellule Excel ?
Exemple : Titre, Sujet, Auteur ou mot clé ou encore une information
personnalisée.
j'ai pratiqué le code que tu m'as donné dans une macro et il marche bien. Cependant il ne m'affiche pas les infos attendues soit les champs du Résumé (Titre, Sujet,...)
En effet, je souhaite mettre un titre que je veux afficher sur toutes les feuilles de mon classeur.
Merci
Finalement, je me suis rendu compte que l'on peux utiliser cette routine dans une macro, ce qui fait mon affaire.
Merci beaucoup
Merci michdenis,
mais je n'utilise pas les procèdures par manque de connaissance.
Il me semblait pourtant qu'il ètait possible d'insérer une propriété sans pour autant recourir à une procédure...
Merci encore de ton aide.
Bonjour Phv0,
Pour le classeur en cours dans lequel la procédure est écrite :
'--------------------------- Sub test()
Dim A As Integer, Nb As Integer On Error Resume Next With ThisWorkbook.BuiltinDocumentProperties Nb = .Count For A = 1 To Nb Range("Feuil1!A" & A) = .Item(A).Name Range("Feuil1!B" & A) = .Item(A).Value Next End With End Sub '---------------------------
Salutations!
"Phv0" a écrit dans le message de news: Comment afficher une information du panneau Propriétés dans une cellule Excel ?
Exemple : Titre, Sujet, Auteur ou mot clé ou encore une information personnalisée.
Merci
michdenis
Bonjour Phv0,
Quand ton classeur est ouvert, Menu fichier / propriétés et tu définis le TITRE et le SUJET de ton classeur.
La procédure devrait te retourner les valeurs inscrites.
Salutations!
"Phv0" a écrit dans le message de news: Bonjour Michdenis
j'ai pratiqué le code que tu m'as donné dans une macro et il marche bien. Cependant il ne m'affiche pas les infos attendues soit les champs du Résumé (Titre, Sujet,...)
En effet, je souhaite mettre un titre que je veux afficher sur toutes les feuilles de mon classeur.
Merci
Finalement, je me suis rendu compte que l'on peux utiliser cette routine dans une macro, ce qui fait mon affaire.
Merci beaucoup
Merci michdenis,
mais je n'utilise pas les procèdures par manque de connaissance.
Il me semblait pourtant qu'il ètait possible d'insérer une propriété sans pour autant recourir à une procédure...
Merci encore de ton aide.
Bonjour Phv0,
Pour le classeur en cours dans lequel la procédure est écrite :
'--------------------------- Sub test()
Dim A As Integer, Nb As Integer On Error Resume Next With ThisWorkbook.BuiltinDocumentProperties Nb = .Count For A = 1 To Nb Range("Feuil1!A" & A) = .Item(A).Name Range("Feuil1!B" & A) = .Item(A).Value Next End With End Sub '---------------------------
Salutations!
"Phv0" a écrit dans le message de news: Comment afficher une information du panneau Propriétés dans une cellule Excel ?
Exemple : Titre, Sujet, Auteur ou mot clé ou encore une information personnalisée.
Merci
Bonjour Phv0,
Quand ton classeur est ouvert, Menu fichier / propriétés
et tu définis le TITRE et le SUJET de ton classeur.
La procédure devrait te retourner les valeurs inscrites.
Salutations!
"Phv0" <Phv0@discussions.microsoft.com> a écrit dans le message de news: 60E547F6-DCEC-4FDD-A2B4-10ED297D8D79@microsoft.com...
Bonjour Michdenis
j'ai pratiqué le code que tu m'as donné dans une macro et il marche bien.
Cependant il ne m'affiche pas les infos attendues soit les champs du Résumé
(Titre, Sujet,...)
En effet, je souhaite mettre un titre que je veux afficher sur toutes les
feuilles de mon classeur.
Merci
Finalement, je me suis rendu compte que l'on peux utiliser cette routine dans
une macro, ce qui fait mon affaire.
Merci beaucoup
Merci michdenis,
mais je n'utilise pas les procèdures par manque de connaissance.
Il me semblait pourtant qu'il ètait possible d'insérer une propriété sans
pour autant recourir à une procédure...
Merci encore de ton aide.
Bonjour Phv0,
Pour le classeur en cours dans lequel la procédure est écrite :
'---------------------------
Sub test()
Dim A As Integer, Nb As Integer
On Error Resume Next
With ThisWorkbook.BuiltinDocumentProperties
Nb = .Count
For A = 1 To Nb
Range("Feuil1!A" & A) = .Item(A).Name
Range("Feuil1!B" & A) = .Item(A).Value
Next
End With
End Sub
'---------------------------
Salutations!
"Phv0" <Phv0@discussions.microsoft.com> a écrit dans le message de news: B0CF91A3-87DE-41EB-AE7B-1F83BBBA51C7@microsoft.com...
Comment afficher une information du panneau Propriétés dans une cellule Excel ?
Exemple : Titre, Sujet, Auteur ou mot clé ou encore une information
personnalisée.
Quand ton classeur est ouvert, Menu fichier / propriétés et tu définis le TITRE et le SUJET de ton classeur.
La procédure devrait te retourner les valeurs inscrites.
Salutations!
"Phv0" a écrit dans le message de news: Bonjour Michdenis
j'ai pratiqué le code que tu m'as donné dans une macro et il marche bien. Cependant il ne m'affiche pas les infos attendues soit les champs du Résumé (Titre, Sujet,...)
En effet, je souhaite mettre un titre que je veux afficher sur toutes les feuilles de mon classeur.
Merci
Finalement, je me suis rendu compte que l'on peux utiliser cette routine dans une macro, ce qui fait mon affaire.
Merci beaucoup
Merci michdenis,
mais je n'utilise pas les procèdures par manque de connaissance.
Il me semblait pourtant qu'il ètait possible d'insérer une propriété sans pour autant recourir à une procédure...
Merci encore de ton aide.
Bonjour Phv0,
Pour le classeur en cours dans lequel la procédure est écrite :
'--------------------------- Sub test()
Dim A As Integer, Nb As Integer On Error Resume Next With ThisWorkbook.BuiltinDocumentProperties Nb = .Count For A = 1 To Nb Range("Feuil1!A" & A) = .Item(A).Name Range("Feuil1!B" & A) = .Item(A).Value Next End With End Sub '---------------------------
Salutations!
"Phv0" a écrit dans le message de news: Comment afficher une information du panneau Propriétés dans une cellule Excel ?
Exemple : Titre, Sujet, Auteur ou mot clé ou encore une information personnalisée.
