date prise de vue avec les secondes

Sheldor

XLDnaute Occasionnel
Supporter XLD
Bonjour tout le monde,
mes excuses par avance si j'ai mal cherché.
j'utilise un code pour extraire les infos sur des images depuis un bon moment, après quelque mois sans en avoir eu besoin j'y reviens et le résultat obtenu diffère: les horaires de prises de vues sont arrondies à la minute, je n'ai plus les secondes alors que je les avais avant et j'en ai malheureusement besoin.

en orange, colonne M en pièce jointe

l'inventaire se fait dans un dossier au même niveau que le fichier excel: ThisWorkbook.Path & "\A_TRIER"

j'ai trouvé d'autres méthodes utilisant des choses comme:
With File
ArrFSO = Array(.ParentFolder & "\", .Name, .datecreated, _
.DateLastModified, .DateLastAccessed, .Size, .Type)
End With

mais le "datecreated" n'est pas la date de prise de vue, mais par contre j'ai les secondes...

merci par avance

nico
 

Pièces jointes

  • pb_seconde.xls
    54 KB · Affichages: 45

MJ13

XLDnaute Barbatruc
Re : date prise de vue avec les secondes

Bonjour Nico

Cela me paraît difficile.

Mais si tu prends la Windows Image Acquisition V2, tu dois pouvoir y arriver.

Pour cela tu cherches le dernier fichier de mon premier like donné par 00 que je salue :).

et tu modifies le code ainsi:

Code:
Set Shp = ActiveSheet.Shapes.AddPicture _
        (Fichier, msoTrue, msoCTrue, cell.Left, cell.Top, larg, haut)
        For iexif = 1 To 255
     'Cells(i, 8) = Img.Properties.Item(i).SubType
     Cells(cell.Row, iexif + 11) = Img.Properties.Item(iexif).Value
      Next
 

Statistiques des forums

Discussions
311 732
Messages
2 081 995
Membres
101 857
dernier inscrit
mt60400