Discussion :

[DanielPlonge]

Bonjour à tous, je vous prie d'excuser mes éventuelles maladresses c'est la première fois que je poste.
J'essaie de me fabriquer un gestionnaire de catalogue photo avec Excel, en utilisant des userforms.
les données photo sont extraites des fichiers avec exiftool.
pour test j'ai écris ceci :
exiftool -FileName -FileNumber D:\D7X_5763.NEF >> D:\toto.csv

ou D7X.....est le nom du fichier a ouvrir et D:\toto.csv le fichier recevant les infos

si je lance avec powershell le fichier se crée et contient bien les informations.
je fais un copié collé de cette chaine de caractères dans un userform avec le bout de programme ci dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Public TamponChemDestin As String
 
Private Sub CommandButton5_Click()
 
    TamponChemDestin = TextBox29.Text
    TextBox30.Text = TamponChemDestin
 
    Dim Lance
    Lance = Shell(TamponChemDestin, vbNormalFocus)
 
 End Sub

un textbox recevant la chaine, un autre textbox la réaffichant pour vérifier qu'elle a bien été lue, ce qui est le cas.
mais, dans ce cas rien ne se passe au niveau création fichier.
et ceci n'est qu'une partie de mes soucis, mais si déjà je pouvais régler ça.
d'avance merci

[Heureux-oli]

Salut,

Je ne connais pas Powershell ni exiftool.

La réponse que je peux apporter n'est probablement pas celle que tu attends.

On peut tout faire en VBA, avec Microsoft Scripting Runtime,, on peut récupérer les données relatives aux fichiers.

Un tuto qui décrit Microsoft Scripting Runtime : http://warin.developpez.com/access/fichiers/

A toi de voir.

[DanielPlonge]

Bonjour, merci pour cette réponse, je vais explorer cette voie. Je pense que le problème vient d'Exiftool qui utilise >> pour déclarer le fichier cible, ce que vba n'apprécie peut être pas.
j'ai utilisé le même processus pour déclencher ViewNX 2 et j'obtiens le résultat attendu, par contre il faut maintenant que je travaille pour remplacer la déclaration explicite du chemin du fichier à ouvrir par ce programme par un string qui récupère un chemin dans un fichier.
J'avais également un problème d'invocation de Shell, mais en le mettant après un bouton tout se passe bien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
          Shell ("C:\Program Files\Nikon\ViewNX 2\ViewNX 2\ViewNX2.exe D:\D7X_5763.NEF")  '  """""prend en compte l'image visée
End Sub
 
Private Sub CommandButton2_Click()
           Shell ("exiftool -xmp -csv -k D:\D7X_5763.NEF >>toto.csv")
          TextBox1.Text = "toto"
End Sub
 
Private Sub CommandButton3_Click()
          TextBox1.Text = " "
End Sub

Pour Exiftool le programme se lance bien mais bloque à partir de >> , il devrait créer toto.csv s'il ne le trouve pas et rien ne se passe.
Encore merci

[Heureux-oli]

Salut,

Voilà un code que j'utlise dans un classeur xl pour récupérer tous les fichiers contenus dans un répertoire et ses sous-répertoires.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Option Explicit
 
Dim xlWS As Worksheet
Dim intI As Integer
 
 
Sub AjoutFeuille()
'Macro pincipale
Dim oDlg As FileDialog
 
Set oDlg = Application.FileDialog(msoFileDialogFolderPicker)
Set xlWS = ActiveWorkbook.Sheets.Add
intI = 1
xlWS.Name = Format(Date, "yyyy-mm-dd")
oDlg.Show
RemplirFeuille (oDlg.SelectedItems(1))
 
 
End Sub
 
 
 
Function RemplirFeuille(stPath As String) As Long
Dim oFSO As FileSystemObject
Dim Element As Variant
 
Set oFSO = New FileSystemObject
 
For Each Element In oFSO.GetFolder(stPath).Files
 
'xlWS.Activate
'Debug.Print Element.Path; "  "; ActiveCell.Rows
xlWS.Cells(intI, 1) = Element.Name
xlWS.Cells(intI, 2) = Element.Path
xlWS.Cells(intI, 3) = Element.DateLastModified
intI = intI + 1
 
Next Element
    'Parcourir chaque sous dossier
    For Each Element In oFSO.GetFolder(stPath).SubFolders
      RemplirFeuille = RemplirFeuille + RemplirFeuille(Element.Path)
    Next Element
 
RemplirFeuille = 10
 
 
 
End Function

[DanielPlonge]

Bonjour, solution magique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub CommandButton4_Click()
          Shell ("explorer.exe " & TamponRep)                                     '  ça marche
End Sub

ceci provoque le lancement d'un logiciel d'affichage d'image, ViewNX 2 en l'occurrence et pointe sur l'image désirée, mais ça peu en être un autre.
Mais, en préalable TamponRep contient le chemin complet de la photo à afficher et le logiciel assurant l'affichage doit avoir été cliqué comme programme par défaut dans "ouvrir avec" de Windows.
Cordialement à tous