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
lSteph
Bonjour, Ceci supprime toute ancienne feuille bulletin et ajoute une feuille bulletin avec les propriétés du classeur
'''''*****dans Module Standard***** Sub bulletin() Dim i As Integer, p As DocumentProperty On Error Resume Next Sheets("bulletin").Delete False ThisWorkbook.Sheets.Add ActiveSheet.Name = "bulletin" i = 1 For Each p In ActiveWorkbook.BuiltinDocumentProperties Cells(i, 1).Value = p.Name Cells(i, 2) = p i = i + 1 Next [b11:b12].Select Selection.NumberFormat = "dd/mm/yyyy hh:mm:ss" End Sub '''''******************
'Cdlt. 'lSteph
M41 a formulé la demande :
Bonjour
Les dossiers sur Windows ont dans leurs propriétés un accès à des informations comme "auteur" ou "entreprise"....
Comment récupérer ces informations avec VBA dans une application Excel ?
Cordialement
M41
-- - -
Bonjour,
Ceci supprime toute ancienne feuille bulletin
et ajoute une feuille bulletin avec les propriétés du classeur
'''''*****dans Module Standard*****
Sub bulletin()
Dim i As Integer, p As DocumentProperty
On Error Resume Next
Sheets("bulletin").Delete False
ThisWorkbook.Sheets.Add
ActiveSheet.Name = "bulletin"
i = 1
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(i, 1).Value = p.Name
Cells(i, 2) = p
i = i + 1
Next
[b11:b12].Select
Selection.NumberFormat = "dd/mm/yyyy hh:mm:ss"
End Sub
'''''******************
'Cdlt.
'lSteph
M41 a formulé la demande :
Bonjour
Les dossiers sur Windows ont dans leurs propriétés un accès à des
informations
comme "auteur" ou "entreprise"....
Comment récupérer ces informations avec VBA dans une application Excel ?
Bonjour, Ceci supprime toute ancienne feuille bulletin et ajoute une feuille bulletin avec les propriétés du classeur
'''''*****dans Module Standard***** Sub bulletin() Dim i As Integer, p As DocumentProperty On Error Resume Next Sheets("bulletin").Delete False ThisWorkbook.Sheets.Add ActiveSheet.Name = "bulletin" i = 1 For Each p In ActiveWorkbook.BuiltinDocumentProperties Cells(i, 1).Value = p.Name Cells(i, 2) = p i = i + 1 Next [b11:b12].Select Selection.NumberFormat = "dd/mm/yyyy hh:mm:ss" End Sub '''''******************
'Cdlt. 'lSteph
M41 a formulé la demande :
Bonjour
Les dossiers sur Windows ont dans leurs propriétés un accès à des informations comme "auteur" ou "entreprise"....
Comment récupérer ces informations avec VBA dans une application Excel ?
