[Déplacé VB6 --> VBA] API GetFilteTime sous VBA

Signaler
Messages postés
64
Date d'inscription
jeudi 4 mars 2010
Statut
Membre
Dernière intervention
17 juin 2010
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
Bonjour,

je travaille sous VBA (depuis AutoCAD) et je dois récupérer la date de création d'une photo, mais avec une précision au delà de la seconde. J'ai alors trouvé la fonction API GetFilteTime.
Mais je suis plutôt débutant et j'ai du mal à maîtriser la chose !! Donc si quelqu'un peut m'aider... J'ai déjà écris ce qui suit mais je ne sais pas trop quoi mettre dans la parenthèse de getfiletime et la déclaration de la fonction me met l'erreur "erreur de compilation : type défini par l'utilisateur non défini"...

Declare Function GetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long

Private Sub CommandButton2_Click()

Dim Chemin As String
Dim nom As String

CommonDialog1.ShowOpen
Chemin = CommonDialog1.FileName

nom = CommonDialog1.FileTitle
If Chemin = "" Then MsgBox "vous n'avez rien sélectionné": Exit Sub

GetFileTime (nom,...?

End Sub

Merci beaucoup d'avance...

3 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
76
Salut
C'est un peu plus compliqué : il faut ajouter les définitions de FILETIME puis convertir la donnée en date réelle (elle est fournie sous forme de deux variables de type Long)
Voir :
- ce <snippet>
- cet utilitaire gratuit sur les APIs http://logiciel.codes-sources.com/logiciels/API-Guide-197.aspx

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
64
Date d'inscription
jeudi 4 mars 2010
Statut
Membre
Dernière intervention
17 juin 2010

Merci pour ces liens, mais en VBA est-ce possible ?
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
76
Et si je te dis non, tu ne vas même pas essayer ?
Si je t'ai donné des réponses, c'est qu'elles sont exploitables, ou alors je commence à yoyoter