Utilisation de exiftool dans VBA

Version imprimable

03/05/2023, 21h24
Philbec44

Utilisation de exiftool dans VBA

Bonjour,

J'ai écrit une procédure sous Excel VBA afin de modifier le commentaire d'un fichier mp4. Pour cela, j'utilise l'utilitaire exiftool que j'appelle avec la commande Shell

Sub Aff_Contenu()
Dim exif_write As String
Cells(Ligne, Cont).Value = Contenu.Value
exif_write = "C:\Users\phili\Downloads\exiftool.exe C:\Users\phili\Videos\essai.mp4 -Comment^=" & Contenu.Value
Shell (exif_write)
End Sub

Cette procédure fonctionne. Cependant, lorsque la valeur de Contenu.Value contient des espaces, seul le premier mot est pris en compte dans le commentaire du fichier mp4.
exemple :
Contenu.Value="visite de Paris" => seul, le mot visite apparait dans le commentaire
Merci à toute personne pouvant m'indiquer d'où vient mon erreur
Bonne soirée
Cordialement
Philbec44
03/05/2023, 23h25
Franc

Salut, lorsque la valeur de Contenu.Value contient des espaces, le nom du fichier de commande que vous envoyez à l'utilitaire exiftool.exe est mal interprété. La commande shell considère les espaces comme des séparateurs d'arguments et divise donc la chaîne en plusieurs arguments. Pour éviter cela, vous devez entourer le nom du fichier et la valeur du commentaire entre guillemets.
Modifiez votre ligne de code exif_write comme suit :

Code:

exif_write = """C:\Users\phili\Downloads\exiftool.exe"" ""C:\Users\phili\Videos\essai.mp4"" -Comment^=""" & Contenu.Value & """"
04/05/2023, 09h06
Philbec44

Citation:

Envoyé par Franc

Salut, lorsque la valeur de Contenu.Value contient des espaces, le nom du fichier de commande que vous envoyez à l'utilitaire exiftool.exe est mal interprété. La commande shell considère les espaces comme des séparateurs d'arguments et divise donc la chaîne en plusieurs arguments. Pour éviter cela, vous devez entourer le nom du fichier et la valeur du commentaire entre guillemets.
Modifiez votre ligne de code exif_write comme suit :

Code:

exif_write = """C:\Users\phili\Downloads\exiftool.exe"" ""C:\Users\phili\Videos\essai.mp4"" -Comment^=""" & Contenu.Value & """"

Bonjour Franc,
Merci beaucoup pour votre aide. C'était effectivement la solution.
Bonne journée
Cordialement
Philbec44
04/05/2023, 18h58
Philbec44

Bonsoir,
Je vais encore demander de l'aide sur la gestion des "space" avec la fonction Shell
J'ai déclaré le fichier vidéo mp4 dans un string
Fichier_traité= "C:\Users\phili\Videos\essai.mp4" mais je n'arrive pas à passer ce string dans le string exif_write avec les bons " afin que la fonction Shell ne sorte pas une erreur et traite correctement le string Fichier_traité
Merci d'avance pour votre aide
Bonne soirée
Cordialement
Philbec44

Hello,
j'ai créé une fonction qui ajoute des guillemets à des chaines :

Code:

1
2
3
Function Dq(Chaine) As String
Dq = """" & Chaine & """"
End Function

D'autre part Shell ne renvoie pas ce qui se passe pendant l'exécution de la commande. Avec l'objet COM WScript.Shell on peut récupérer ce qui se passe dans le canal standard et le canal d'erreur pendant l'exécution de la commande. Exemple de fonction qui réalise cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function ShellRun(sCmd) As String
    Dim oShell As Object, oExec As Object, oOutput As Object, oError As Object
    Dim s As String, err As String, sLine As String
    Set oShell = CreateObject("WScript.Shell")
    Set oExec = oShell.Exec(sCmd)
    Set oOutput = oExec.StdOut
    Set oError = oExec.StdErr
    While Not oOutput.AtEndOfStream
        sLine = oOutput.ReadLine
        If sLine <> "" Then s = s & sLine & vbCrLf
    Wend
    While Not oError.AtEndOfStream
        sLine = oError.ReadLine
        If sLine <> "" Then err = err & sLine & vbCrLf
    Wend
    ShellRun = s + vbCrLf + " ---- " + vbCrLf + err
End Function

Il y a aussi un risque avec l'encodage des chaînes avec accents à mettre dans les commentaires (ansi ou utf8). Utiliser uni2utf pour convertir ansi en utf8.
Exemple d'utilisation de toutes les fonctions :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Modif_MetaMp4()
Dim fichier As String, contenu As String
Dim exiftool_exe As String, exiftool_cmd As String
Dim wsh As Object, res As String
Set wsh = VBA.CreateObject("WScript.Shell")
exiftool_exe = "d:\Logiciels\exiftool\exiftool.exe"
fichier = "d:\temp\Vidéos\jurassic park.mp4"
contenu = "Voix ambiguë d’un cœur qui, au zéphyr, préfère les jattes de kiwis."
exif_write = Dq(exiftool_exe) & " " & Dq(fichier) & " -Comment^=" & Dq(Uni2Utf(contenu))
res = ShellRun(exif_write)
Debug.Print res
End Sub

Ami calmant, J.P

Citation:
Envoyé par jurassic pork
Hello,
j'ai créé une fonction qui ajoute des guillemets à des chaines :
Code:

1 2 3 Function Dq(Chaine) As String Dq = """" & Chaine & """" End Function
D'autre part Shell ne renvoie pas ce qui se passe pendant l'exécution de la commande. Avec l'objet COM WScript.Shell on peut récupérer ce qui se passe dans le canal standard et le canal d'erreur pendant l'exécution de la commande. Exemple de fonction qui réalise cela :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Public Function ShellRun(sCmd) As String Dim oShell As Object, oExec As Object, oOutput As Object, oError As Object Dim s As String, err As String, sLine As String Set oShell = CreateObject("WScript.Shell") Set oExec = oShell.Exec(sCmd) Set oOutput = oExec.StdOut Set oError = oExec.StdErr While Not oOutput.AtEndOfStream sLine = oOutput.ReadLine If sLine <> "" Then s = s & sLine & vbCrLf Wend While Not oError.AtEndOfStream sLine = oError.ReadLine If sLine <> "" Then err = err & sLine & vbCrLf Wend ShellRun = s + vbCrLf + " ---- " + vbCrLf + err End Function
Il y a aussi un risque avec l'encodage des chaînes avec accents à mettre dans les commentaires (ansi ou utf8). Utiliser uni2utf pour convertir ansi en utf8.
Exemple d'utilisation de toutes les fonctions :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Modif_MetaMp4() Dim fichier As String, contenu As String Dim exiftool_exe As String, exiftool_cmd As String Dim wsh As Object, res As String Set wsh = VBA.CreateObject("WScript.Shell") exiftool_exe = "d:\Logiciels\exiftool\exiftool.exe" fichier = "d:\temp\Vidéos\jurassic park.mp4" contenu = "Voix ambiguë d’un cœur qui, au zéphyr, préfère les jattes de kiwis." exif_write = Dq(exiftool_exe) & " " & Dq(fichier) & " -Comment^=" & Dq(Uni2Utf(contenu)) res = ShellRun(exif_write) Debug.Print res End Sub
Ami calmant, J.P
Bonjour,
Merci beaucoup pour votre aide et les explications. Je vais implémenter ceci dans la journée et vous tiendrai au courant.
Bonne journée
Cordialement
Philbec44

05/05/2023, 12h42
Philbec44

Merci @jurassic pork , tout fonctionne correctement. Merci aussi à Pierre Fauconnier pour ses fonctions de transcodage Unicode <=> UTF
Bonne journée à tous
Cordialement
Philbec44