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
Jacques93
Archives a écrit :
Bonsoir,
Sous VBA 2002, je cherche comment accéder aux propriétés d'un fichier (titre, catégorie, mots clés, entreprise...).
Quelle bibliothèque et quel objet dois-je utiliser ?
Merci pour votre aide.
Sous Word :
Sub ListWordProperties() Dim s As String Dim proDoc As DocumentProperty
On Error Resume Next For Each proDoc In ActiveDocument.BuiltInDocumentProperties s = s & proDoc.Name & "= " & proDoc.Value & vbCrLf Next MsgBox s End Sub
(Voir également les constantes WdBuiltInProperty)
Sous Excel :
Sub ListExcelProperties() Dim s As String Dim proDoc As DocumentProperty
On Error Resume Next For Each proDoc In ActiveWorkbook.BuiltinDocumentProperties s = s & proDoc.Name & "= " & proDoc.Value & vbCrLf Next MsgBox s End Sub
-- Cordialement,
Jacques.
Archives a écrit :
Bonsoir,
Sous VBA 2002, je cherche comment accéder aux propriétés d'un fichier
(titre, catégorie, mots clés, entreprise...).
Quelle bibliothèque et quel objet dois-je utiliser ?
Merci pour votre aide.
Sous Word :
Sub ListWordProperties()
Dim s As String
Dim proDoc As DocumentProperty
On Error Resume Next
For Each proDoc In ActiveDocument.BuiltInDocumentProperties
s = s & proDoc.Name & "= " & proDoc.Value & vbCrLf
Next
MsgBox s
End Sub
(Voir également les constantes WdBuiltInProperty)
Sous Excel :
Sub ListExcelProperties()
Dim s As String
Dim proDoc As DocumentProperty
On Error Resume Next
For Each proDoc In ActiveWorkbook.BuiltinDocumentProperties
s = s & proDoc.Name & "= " & proDoc.Value & vbCrLf
Next
MsgBox s
End Sub
Sous VBA 2002, je cherche comment accéder aux propriétés d'un fichier (titre, catégorie, mots clés, entreprise...).
Quelle bibliothèque et quel objet dois-je utiliser ?
Merci pour votre aide.
Sous Word :
Sub ListWordProperties() Dim s As String Dim proDoc As DocumentProperty
On Error Resume Next For Each proDoc In ActiveDocument.BuiltInDocumentProperties s = s & proDoc.Name & "= " & proDoc.Value & vbCrLf Next MsgBox s End Sub
(Voir également les constantes WdBuiltInProperty)
Sous Excel :
Sub ListExcelProperties() Dim s As String Dim proDoc As DocumentProperty
On Error Resume Next For Each proDoc In ActiveWorkbook.BuiltinDocumentProperties s = s & proDoc.Name & "= " & proDoc.Value & vbCrLf Next MsgBox s End Sub
