Nom de fichier dans propriété (exifs)

Bonjour,

Dans un repertoire il y a plusieurs fichiers, je voudrai avant de renommer ces fichiers copier le nom d'origine dans la propriété ''Titre'' de chaque fichier.

Merci beaucoup pour votre aide

Bonjour,

Sans indiscrétion ... est-ce-que tu as déjà une macro pour lire ton répertoire et les attributs de tes fichiers ... ou démarres-tu d'une feuille blanche ...?

J'aurai du le préciser oui j'ai un bout de macro pour extraire le nom de fichier

Y a peut être plus simple...

Option Explicit
Sub GetFileNames()
Dim xRow As Long
Dim xDirect$, xFname$, InitialFoldr$
InitialFoldr$ = "C:\"
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a folder to list Files from"
.InitialFileName = InitialFoldr$
.Show
If .SelectedItems.Count <> 0 Then
xDirect$ = .SelectedItems(1) & "\"
xFname$ = Dir(xDirect$, 7)
Do While xFname$ <> ""
ActiveCell.Offset(xRow) = xFname$
xRow = xRow + 1
xFname$ = Dir
Loop
End If
End With
End Sub

Reste maintenant à récupérer ces noms et les envoyer dans les proprietes (Titre) de chaque fichier

Autre précision le code ''Titre'' est 21 =>Array(21) ?

Merci

Bonjour

Peut être précision importante il s'agit de fichiers jpg

Merci

Bonjour,

Je ne pense pas que tu puisses utiliser la propriété 'BuiltInDocumentProperties' pour des fichiers image jpg ...

Il va falloir que tu cherches un autre logiciel dédié ....