XL 2016 Modification dee propriétés d'un fichier externe

[bernardrustrel]

Bonjour.
Depuis quelques temps je cherche un solution afin de pouvoir modifier les propriétés d'un fichier externe (par ex: .mp4).
Je ne rencontre aucun souci quant à lire les propriétés de ce type de fichier, mais c'est une autre histoire quant à les modifier, en fait j'aimerais pouvoir utiliser un "UserForm" et ses "Textbox" afin de réaliser ces modifications qui serait effectives âpres action sur un "CommandButton" pour en valider l'écriture.
c'est pourquoi j'en fais appel a vos compétences et aide sur ce point.
En vous remerciant par avance, cordialement.
BernardRustrel

 

[Oneida]

Bonjour,

Quelles proprietes voulez vous modifier?

 

[bernardrustrel]

Bonjour,

Quelles proprietes voulez vous modifier?

J'aimerais pouvoir modifies les propriétés qui figurent dans l'onglet "détails " de la boite de dialogue "propriétés" d'un fichier.
Merci à vous

 

[Oneida]

Bonjour,
Vous avez un fichier avec votre code pour mise a dispo?

 

[bernardrustrel]

Bonjour,
Vous avez un fichier avec votre code pour mise a dispo?

Désolé je n'ai pas de fichier a disposition, car la est mon souci je ne sais comment faire pour pouvoir ne serait ce qu'afficher la fenêtre des propriétés sans pour autant passe par l'explorateur comme indique ci dessous:

Set file = Application.FileDialog(msoFileDialogOpen)
Shell "explorer /select," & NomDufichier, vbNormalFocus

J'aimerais pouvoir ouvrir la fenêtre des propriétés sans avoir a utiliser le "click" droit un fois le fichier choisi. Et la je pourrais effectuer la modification des propriétés. Je ne sais si cela est possible peut etre suis je trop exigeant.
Dans tous les cas merci à vous, cordialmenet, BernardRustrel

 

[Oneida]

Bonjour,
J'ai trouve ce qu'il vous faut pour la fenetre afficher/modifier seulement la fenetre des proprietes d'un ficher
Comment vous selectionnez un fichier,
Vous avez mis un code qui selectionne un fichier mais comment vous le lancez

 

[Rheeem]

J'aimerais pouvoir ouvrir la fenêtre des propriétés sans avoir a utiliser le "click" droit un fois le fichier choisi.

Essaie ce code

Dim shl As Object, cItem As Object, folder
Set shl = CreateObject("Shell.Application")

Set folder = shl.Namespace("C:\Users\  .. votre dossier")
Set cItem = folder.ParseName("tone.mp4")

cItem.InvokeVerb "properties"

 

[Rheeem]

Pour récupérer les infos du fichier :

Dim shl As Object, cItem As Object, folder
Set shl = CreateObject("Shell.Application")

Set folder = shl.Namespace("C:\Users\  .. votre dossier")
Set cItem = folder.ParseName("tone.mp4")
 
 On Error Resume Next
For i = 0 To 500
  col = folder.GetDetailsOf(Empty, i)
  detail = folder.GetDetailsOf(cItem, i)
  If (detail <> "") And (col <> "") Then
    Debug.Print i, col, detail
  End If
Next

Malheureusement c'est impossible pour éditer les détails du fichier directement

 

[Oneida]

Bonjour

Rheeem​

Ouverture fenetre Proprietes:

Mieux que ce que j'ai degotter avec des API

Par contre, j'aimerai bien que [B]bernardrustrel[/B]
Nous dises comment il veut lancer ce code

 

[bernardrustrel]

Pour récupérer les infos du fichier :

Dim shl As Object, cItem As Object, folder
Set shl = CreateObject("Shell.Application")

Set folder = shl.Namespace("C:\Users\  .. votre dossier")
Set cItem = folder.ParseName("tone.mp4")
 
 On Error Resume Next
For i = 0 To 500
  col = folder.GetDetailsOf(Empty, i)
  detail = folder.GetDetailsOf(cItem, i)
  If (detail <> "") And (col <> "") Then
    Debug.Print i, col, detail
  End If
Next

Malheureusement c'est impossible pour éditer les détails du fichier directement

 

[bernardrustrel]

Bonjour. Un grand merci

Pour récupérer les infos du fichier :

Dim shl As Object, cItem As Object, folder
Set shl = CreateObject("Shell.Application")

Set folder = shl.Namespace("C:\Users\  .. votre dossier")
Set cItem = folder.ParseName("tone.mp4")
 
 On Error Resume Next
For i = 0 To 500
  col = folder.GetDetailsOf(Empty, i)
  detail = folder.GetDetailsOf(cItem, i)
  If (detail <> "") And (col <> "") Then
    Debug.Print i, col, detail
  End If
Next

Malheureusement c'est impossible pour éditer les détails du fichier directement

Essaie ce code

Dim shl As Object, cItem As Object, folder
Set shl = CreateObject("Shell.Application")

Set folder = shl.Namespace("C:\Users\  .. votre dossier")
Set cItem = folder.ParseName("tone.mp4")

cItem.InvokeVerb "properties"

Bonjour. Merci pour votre réponse, cependant ce dernier code fonctionne bien mise à part que j'aimerais pouvoir utiliser des variables en lieu et place de "C:\Users\ .. votre dossier" par VariableFolder et "tone.mp4" par VariableFichier ces variables sont définies dans mon appli en tant que "String".
En vous remerciant grandement, cordialement.