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

stick25 Messages postés 64 Date d'inscription jeudi 4 mars 2010 Statut Membre Dernière intervention 17 juin 2010 - 2 avril 2010 à 10:45
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 3 avril 2010 à 03:17
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

cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
2 avril 2010 à 11:42
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)
stick25 Messages postés 64 Date d'inscription jeudi 4 mars 2010 Statut Membre Dernière intervention 17 juin 2010
2 avril 2010 à 14:48
Merci pour ces liens, mais en VBA est-ce possible ?
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
3 avril 2010 à 03:17
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
Rejoignez-nous