f = Dir("*.xls") Do While Len(f) > 0 Workbooks.Open f, False ActiveWorkbook.BuiltinDocumentProperties(1) = "Cadeaux" ActiveWorkbook.BuiltinDocumentProperties(3) = "Steph et pas Gilles"
ActiveWorkbook.Close True f = Dir Loop
End Sub
'***
lSteph
"gib" a écrit dans le message de news: 42c7fb48$0$20077$
Bonjour,
Est-il possible de modifier les propriétés des fichiers excel présent dans un répertoire en inscrivant
par exemple dans Titre , mettre : Cadeaux, dans Auteur , Mettre Gilles, ...
Merci pour votre aide
Bon dimanche
Bonjour,
Oui, avec builtindocumentproperties
et cette macro (merci gaston) te donne le choix du répertoire
'****
Sub reparam()
Dim f
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, Message, 0, "c:")
f = Dir("*.xls")
Do While Len(f) > 0
Workbooks.Open f, False
ActiveWorkbook.BuiltinDocumentProperties(1) = "Cadeaux"
ActiveWorkbook.BuiltinDocumentProperties(3) = "Steph et pas Gilles"
ActiveWorkbook.Close True
f = Dir
Loop
End Sub
'***
lSteph
"gib" <gilles.bolognesi@free.fr> a écrit dans le message de news:
42c7fb48$0$20077$636a15ce@news.free.fr...
Bonjour,
Est-il possible de modifier les propriétés des fichiers excel présent
dans un répertoire en inscrivant
par exemple dans Titre , mettre : Cadeaux, dans Auteur , Mettre Gilles,
...
f = Dir("*.xls") Do While Len(f) > 0 Workbooks.Open f, False ActiveWorkbook.BuiltinDocumentProperties(1) = "Cadeaux" ActiveWorkbook.BuiltinDocumentProperties(3) = "Steph et pas Gilles"
ActiveWorkbook.Close True f = Dir Loop
End Sub
'***
lSteph
"gib" a écrit dans le message de news: 42c7fb48$0$20077$
Bonjour,
Est-il possible de modifier les propriétés des fichiers excel présent dans un répertoire en inscrivant
par exemple dans Titre , mettre : Cadeaux, dans Auteur , Mettre Gilles, ...
