RENOMMER SÉRIE D'IMAGE DIRECTEMENT AVEC VBA EXCEL (CLASSEMENT SELON DATE ET HEUR
cs_YvesMarie
Messages postés
6
Date d'inscription
vendredi 18 avril 2003
Statut
Membre
Dernière intervention
1 juin 2009
-
1 juin 2009 à 10:48
CAPMICRO Messages postés 1 Date d'inscription lundi 13 septembre 2010 Statut Membre Dernière intervention 26 novembre 2010 - 26 nov. 2010 à 18:21
CAPMICRO Messages postés 1 Date d'inscription lundi 13 septembre 2010 Statut Membre Dernière intervention 26 novembre 2010 - 26 nov. 2010 à 18:21
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/50077-renommer-serie-d-image-directement-avec-vba-excel-classement-selon-date-et-heure-de-la-prise-de-vue
https://codes-sources.commentcamarche.net/source/50077-renommer-serie-d-image-directement-avec-vba-excel-classement-selon-date-et-heure-de-la-prise-de-vue
26 nov. 2010 à 18:21
d'autre part, la date de dernière modification n'est pas forcément la date de prise de vue : c'est le cas ou vous modifiez la photo à l'aide d'un logiciel de retouche d'image (par exemple celui inclu dans vista).
je cherchai notament d'accéder à la date de prise de vue visible dans explorer.
si vous avez la réponse, je l'accepterai bien volontier.
2 juin 2009 à 07:44
J'ai par contre laissé le trie par ordre alphabétique de base (plus compréhensible pour moi)
1 juin 2009 à 11:11
Public Const CST_DATEH As String = "yyyy\_mm\_dd\_hh\hmm"
1 juin 2009 à 10:48
qq modifs de simplification :
Public Const CST_DATEH As String = "yyyy\_mm\_dd\_hh\hss"
'permet de trier dans l'ordre chrono
'Cells(lig, 2) = datephoto.dateLastModified
Cells(lig, 2) = Format(CDate(datephoto.dateLastModified), CST_DATEH)
'avec la fct Format
'If i < 10 Then Cells(i, 3).Value = Debut_nom & "_00" & i 'If i < 100 And i >10 Then Cells(i, 3).Value Debut_nom & "_0" & i 'If i >100 Then Cells(i, 3).Value Debut_nom & "_" & i
' devient :
Cells(i, 3).Value = Debut_nom & "_" & Format(i, "0000")
' 'Création du nouveau nom et renommage
' un antislash en trop
' RenameFile Ledossier & "" & Cells(i, 1).Value, New_nom
RenameFile Ledossier & "" & Cells(i, 1).Value, New_nom
super.
et tout fonctionne