date prise de vue avec les secondes

[Sheldor]

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

 

[MJ13]

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:

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

 

[Sheldor]

Re : date prise de vue avec les secondes

bonjour,
merci beaucoup pour votre réponse je vais essayer
curieux que les secondes aient disparu, d'un coup

amicalement

 

[MJ13]

Re : date prise de vue avec les secondes

Re

Tu peux tester cette version.

 

[Sheldor]

Re : date prise de vue avec les secondes

re-bonjour,
SUPER
grand merci pour ton aide, j'avais essayé de m'en sortir hier, en arrêtant la macro pour chercher dans la fenêtre "variable locale" et je trouvais bien les heures mais sans les secondes, bravo

excellent week end à tous