Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" a écrit dans le message de news:
489567a3$0$294$
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" <c__olivier@club-internet.fr> a écrit dans le message de news:
489567a3$0$294$7a628cd7@news.club-internet.fr...
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" a écrit dans le message de news:
489567a3$0$294$
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" a écrit dans le message de news:
489567a3$0$294$
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" <c__olivier@club-internet.fr> a écrit dans le message de news:
489567a3$0$294$7a628cd7@news.club-internet.fr...
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" a écrit dans le message de news:
489567a3$0$294$
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15 jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15 jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15 jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Je ne suis pas d'accord avec toi et l'utilisation
que tu fais de DateCreated dans l'expression
Dat = fso.GetFile(Source & Fich).DateCreated
Prends un fichier JPG et copie le dans un nouveau
répertoire et utilise cette procédure.... ça devrait
suffire comme démonstration ....
'------------------------------------------
Sub Test_Pour_Daniel()
Dim MonFichier As String, S As String
Dim Dcreation As String, Fs As Object, F As Object
'à déterminer
MonFichier = "C:Exceltoday 3-08-2008test.jpg"
Dcreation = FileDateTime(MonFichier)
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(MonFichier)
S = "Date de création utilisant ""FileDateTime"" : " & Dcreation
S = S & vbCrLf + vbCrLf
S = S & "Created: " & F.DateCreated & vbCrLf
S = S & "Last Accessed: " & F.DateLastAccessed & vbCrLf
S = S & "Last Modified: " & F.DateLastModified
MsgBox S, 0, "File Access Info"
End Sub
'------------------------------------------
Correction : ma procédure devrait être ceci :
J'avais omis d'utiliser les variables dans cette
ligne de code :
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'---------------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'---------------------------------------------
"Daniel.C" a écrit dans le message de news:
Bonjour et bon dimanche.
J'ai d'abord suivi cette piste, mais "FileDateTime" renvoie la date à
laquelle les photos ont été copiées sur l'ordinateur.
Cordialement.
Daniel
"michdenis" a écrit dans le message de news:
eZ8$Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" a écrit dans le message de news:
489567a3$0$294$
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Je ne suis pas d'accord avec toi et l'utilisation
que tu fais de DateCreated dans l'expression
Dat = fso.GetFile(Source & Fich).DateCreated
Prends un fichier JPG et copie le dans un nouveau
répertoire et utilise cette procédure.... ça devrait
suffire comme démonstration ....
'------------------------------------------
Sub Test_Pour_Daniel()
Dim MonFichier As String, S As String
Dim Dcreation As String, Fs As Object, F As Object
'à déterminer
MonFichier = "C:Exceltoday 3-08-2008test.jpg"
Dcreation = FileDateTime(MonFichier)
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(MonFichier)
S = "Date de création utilisant ""FileDateTime"" : " & Dcreation
S = S & vbCrLf + vbCrLf
S = S & "Created: " & F.DateCreated & vbCrLf
S = S & "Last Accessed: " & F.DateLastAccessed & vbCrLf
S = S & "Last Modified: " & F.DateLastModified
MsgBox S, 0, "File Access Info"
End Sub
'------------------------------------------
Correction : ma procédure devrait être ceci :
J'avais omis d'utiliser les variables dans cette
ligne de code :
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'---------------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'---------------------------------------------
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eSV3AaW9IHA.4536@TK2MSFTNGP05.phx.gbl...
Bonjour et bon dimanche.
J'ai d'abord suivi cette piste, mais "FileDateTime" renvoie la date à
laquelle les photos ont été copiées sur l'ordinateur.
Cordialement.
Daniel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eZ8$wNW9IHA.3612@TK2MSFTNGP06.phx.gbl...
Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" <c__olivier@club-internet.fr> a écrit dans le message de news:
489567a3$0$294$7a628cd7@news.club-internet.fr...
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Je ne suis pas d'accord avec toi et l'utilisation
que tu fais de DateCreated dans l'expression
Dat = fso.GetFile(Source & Fich).DateCreated
Prends un fichier JPG et copie le dans un nouveau
répertoire et utilise cette procédure.... ça devrait
suffire comme démonstration ....
'------------------------------------------
Sub Test_Pour_Daniel()
Dim MonFichier As String, S As String
Dim Dcreation As String, Fs As Object, F As Object
'à déterminer
MonFichier = "C:Exceltoday 3-08-2008test.jpg"
Dcreation = FileDateTime(MonFichier)
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(MonFichier)
S = "Date de création utilisant ""FileDateTime"" : " & Dcreation
S = S & vbCrLf + vbCrLf
S = S & "Created: " & F.DateCreated & vbCrLf
S = S & "Last Accessed: " & F.DateLastAccessed & vbCrLf
S = S & "Last Modified: " & F.DateLastModified
MsgBox S, 0, "File Access Info"
End Sub
'------------------------------------------
Correction : ma procédure devrait être ceci :
J'avais omis d'utiliser les variables dans cette
ligne de code :
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'---------------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'---------------------------------------------
"Daniel.C" a écrit dans le message de news:
Bonjour et bon dimanche.
J'ai d'abord suivi cette piste, mais "FileDateTime" renvoie la date à
laquelle les photos ont été copiées sur l'ordinateur.
Cordialement.
Daniel
"michdenis" a écrit dans le message de news:
eZ8$Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" a écrit dans le message de news:
489567a3$0$294$
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Je ne suis pas d'accord avec toi et l'utilisation
que tu fais de DateCreated dans l'expression
Dat = fso.GetFile(Source & Fich).DateCreated
Prends un fichier JPG et copie le dans un nouveau
répertoire et utilise cette procédure.... ça devrait
suffire comme démonstration ....
'------------------------------------------
Sub Test_Pour_Daniel()
Dim MonFichier As String, S As String
Dim Dcreation As String, Fs As Object, F As Object
'à déterminer
MonFichier = "C:Exceltoday 3-08-2008test.jpg"
Dcreation = FileDateTime(MonFichier)
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(MonFichier)
S = "Date de création utilisant ""FileDateTime"" : " & Dcreation
S = S & vbCrLf + vbCrLf
S = S & "Created: " & F.DateCreated & vbCrLf
S = S & "Last Accessed: " & F.DateLastAccessed & vbCrLf
S = S & "Last Modified: " & F.DateLastModified
MsgBox S, 0, "File Access Info"
End Sub
'------------------------------------------
Correction : ma procédure devrait être ceci :
J'avais omis d'utiliser les variables dans cette
ligne de code :
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'---------------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'---------------------------------------------
"Daniel.C" a écrit dans le message de news:
Bonjour et bon dimanche.
J'ai d'abord suivi cette piste, mais "FileDateTime" renvoie la date à
laquelle les photos ont été copiées sur l'ordinateur.
Cordialement.
Daniel
"michdenis" a écrit dans le message de news:
eZ8$Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" a écrit dans le message de news:
489567a3$0$294$
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Je ne suis pas d'accord avec toi et l'utilisation
que tu fais de DateCreated dans l'expression
Dat = fso.GetFile(Source & Fich).DateCreated
Prends un fichier JPG et copie le dans un nouveau
répertoire et utilise cette procédure.... ça devrait
suffire comme démonstration ....
'------------------------------------------
Sub Test_Pour_Daniel()
Dim MonFichier As String, S As String
Dim Dcreation As String, Fs As Object, F As Object
'à déterminer
MonFichier = "C:Exceltoday 3-08-2008test.jpg"
Dcreation = FileDateTime(MonFichier)
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(MonFichier)
S = "Date de création utilisant ""FileDateTime"" : " & Dcreation
S = S & vbCrLf + vbCrLf
S = S & "Created: " & F.DateCreated & vbCrLf
S = S & "Last Accessed: " & F.DateLastAccessed & vbCrLf
S = S & "Last Modified: " & F.DateLastModified
MsgBox S, 0, "File Access Info"
End Sub
'------------------------------------------
Correction : ma procédure devrait être ceci :
J'avais omis d'utiliser les variables dans cette
ligne de code :
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'---------------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'---------------------------------------------
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eSV3AaW9IHA.4536@TK2MSFTNGP05.phx.gbl...
Bonjour et bon dimanche.
J'ai d'abord suivi cette piste, mais "FileDateTime" renvoie la date à
laquelle les photos ont été copiées sur l'ordinateur.
Cordialement.
Daniel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eZ8$wNW9IHA.3612@TK2MSFTNGP06.phx.gbl...
Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" <c__olivier@club-internet.fr> a écrit dans le message de news:
489567a3$0$294$7a628cd7@news.club-internet.fr...
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Je ne suis pas d'accord avec toi et l'utilisation
que tu fais de DateCreated dans l'expression
Dat = fso.GetFile(Source & Fich).DateCreated
Prends un fichier JPG et copie le dans un nouveau
répertoire et utilise cette procédure.... ça devrait
suffire comme démonstration ....
'------------------------------------------
Sub Test_Pour_Daniel()
Dim MonFichier As String, S As String
Dim Dcreation As String, Fs As Object, F As Object
'à déterminer
MonFichier = "C:Exceltoday 3-08-2008test.jpg"
Dcreation = FileDateTime(MonFichier)
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(MonFichier)
S = "Date de création utilisant ""FileDateTime"" : " & Dcreation
S = S & vbCrLf + vbCrLf
S = S & "Created: " & F.DateCreated & vbCrLf
S = S & "Last Accessed: " & F.DateLastAccessed & vbCrLf
S = S & "Last Modified: " & F.DateLastModified
MsgBox S, 0, "File Access Info"
End Sub
'------------------------------------------
Correction : ma procédure devrait être ceci :
J'avais omis d'utiliser les variables dans cette
ligne de code :
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'---------------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'---------------------------------------------
"Daniel.C" a écrit dans le message de news:
Bonjour et bon dimanche.
J'ai d'abord suivi cette piste, mais "FileDateTime" renvoie la date à
laquelle les photos ont été copiées sur l'ordinateur.
Cordialement.
Daniel
"michdenis" a écrit dans le message de news:
eZ8$Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" a écrit dans le message de news:
489567a3$0$294$
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Dans mon petit test, j'ai utilisé l'application Paint.exe et
j'ai créé un dessin quelconque enregistré avec l'extension JPG
Par la suite, j'ai copié ce fichier vers un autre répertoire
J'ai obtenu (en se basant sur la date et l'heure du fichier créé)
DateCreated = Moment où j'ai effectué la copie dans le nouveau
répertoire
DateLastModified = Moment où j'ai enregistrer le fichier pour la première
fois
FileDateTime = donne aussi le moment où j'ai enregistrer le fichier pour
la
première fois.
Tu as une explication ? Je n'ai pas vraiment de temps à y consacrer !
Le demandeur est pour le moins averti ! ;-)
"Daniel.C" a écrit dans le message de news:
J'obtiens bien :
Date de création utilisant "FileDateTime" : 19/07/2008... (date de copie
de
l'appareil photo à l'ordi)
Created: 29/06/2008...
Last accessed 03/08/2008...
Daniel
"michdenis" a écrit dans le message de news:
ueDZk$Je ne suis pas d'accord avec toi et l'utilisation
que tu fais de DateCreated dans l'expression
Dat = fso.GetFile(Source & Fich).DateCreated
Prends un fichier JPG et copie le dans un nouveau
répertoire et utilise cette procédure.... ça devrait
suffire comme démonstration ....
'------------------------------------------
Sub Test_Pour_Daniel()
Dim MonFichier As String, S As String
Dim Dcreation As String, Fs As Object, F As Object
'à déterminer
MonFichier = "C:Exceltoday 3-08-2008test.jpg"
Dcreation = FileDateTime(MonFichier)
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(MonFichier)
S = "Date de création utilisant ""FileDateTime"" : " & Dcreation
S = S & vbCrLf + vbCrLf
S = S & "Created: " & F.DateCreated & vbCrLf
S = S & "Last Accessed: " & F.DateLastAccessed & vbCrLf
S = S & "Last Modified: " & F.DateLastModified
MsgBox S, 0, "File Access Info"
End Sub
'------------------------------------------
Correction : ma procédure devrait être ceci :
J'avais omis d'utiliser les variables dans cette
ligne de code :
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'---------------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'---------------------------------------------
"Daniel.C" a écrit dans le message de news:
Bonjour et bon dimanche.
J'ai d'abord suivi cette piste, mais "FileDateTime" renvoie la date à
laquelle les photos ont été copiées sur l'ordinateur.
Cordialement.
Daniel
"michdenis" a écrit dans le message de news:
eZ8$Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" a écrit dans le message de news:
489567a3$0$294$
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Dans mon petit test, j'ai utilisé l'application Paint.exe et
j'ai créé un dessin quelconque enregistré avec l'extension JPG
Par la suite, j'ai copié ce fichier vers un autre répertoire
J'ai obtenu (en se basant sur la date et l'heure du fichier créé)
DateCreated = Moment où j'ai effectué la copie dans le nouveau
répertoire
DateLastModified = Moment où j'ai enregistrer le fichier pour la première
fois
FileDateTime = donne aussi le moment où j'ai enregistrer le fichier pour
la
première fois.
Tu as une explication ? Je n'ai pas vraiment de temps à y consacrer !
Le demandeur est pour le moins averti ! ;-)
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eBNZ1JX9IHA.1812@TK2MSFTNGP03.phx.gbl...
J'obtiens bien :
Date de création utilisant "FileDateTime" : 19/07/2008... (date de copie
de
l'appareil photo à l'ordi)
Created: 29/06/2008...
Last accessed 03/08/2008...
Daniel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
ueDZk$W9IHA.4820@TK2MSFTNGP06.phx.gbl...
Je ne suis pas d'accord avec toi et l'utilisation
que tu fais de DateCreated dans l'expression
Dat = fso.GetFile(Source & Fich).DateCreated
Prends un fichier JPG et copie le dans un nouveau
répertoire et utilise cette procédure.... ça devrait
suffire comme démonstration ....
'------------------------------------------
Sub Test_Pour_Daniel()
Dim MonFichier As String, S As String
Dim Dcreation As String, Fs As Object, F As Object
'à déterminer
MonFichier = "C:Exceltoday 3-08-2008test.jpg"
Dcreation = FileDateTime(MonFichier)
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(MonFichier)
S = "Date de création utilisant ""FileDateTime"" : " & Dcreation
S = S & vbCrLf + vbCrLf
S = S & "Created: " & F.DateCreated & vbCrLf
S = S & "Last Accessed: " & F.DateLastAccessed & vbCrLf
S = S & "Last Modified: " & F.DateLastModified
MsgBox S, 0, "File Access Info"
End Sub
'------------------------------------------
Correction : ma procédure devrait être ceci :
J'avais omis d'utiliser les variables dans cette
ligne de code :
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'---------------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'---------------------------------------------
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eSV3AaW9IHA.4536@TK2MSFTNGP05.phx.gbl...
Bonjour et bon dimanche.
J'ai d'abord suivi cette piste, mais "FileDateTime" renvoie la date à
laquelle les photos ont été copiées sur l'ordinateur.
Cordialement.
Daniel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eZ8$wNW9IHA.3612@TK2MSFTNGP06.phx.gbl...
Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" <c__olivier@club-internet.fr> a écrit dans le message de news:
489567a3$0$294$7a628cd7@news.club-internet.fr...
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Dans mon petit test, j'ai utilisé l'application Paint.exe et
j'ai créé un dessin quelconque enregistré avec l'extension JPG
Par la suite, j'ai copié ce fichier vers un autre répertoire
J'ai obtenu (en se basant sur la date et l'heure du fichier créé)
DateCreated = Moment où j'ai effectué la copie dans le nouveau
répertoire
DateLastModified = Moment où j'ai enregistrer le fichier pour la première
fois
FileDateTime = donne aussi le moment où j'ai enregistrer le fichier pour
la
première fois.
Tu as une explication ? Je n'ai pas vraiment de temps à y consacrer !
Le demandeur est pour le moins averti ! ;-)
"Daniel.C" a écrit dans le message de news:
J'obtiens bien :
Date de création utilisant "FileDateTime" : 19/07/2008... (date de copie
de
l'appareil photo à l'ordi)
Created: 29/06/2008...
Last accessed 03/08/2008...
Daniel
"michdenis" a écrit dans le message de news:
ueDZk$Je ne suis pas d'accord avec toi et l'utilisation
que tu fais de DateCreated dans l'expression
Dat = fso.GetFile(Source & Fich).DateCreated
Prends un fichier JPG et copie le dans un nouveau
répertoire et utilise cette procédure.... ça devrait
suffire comme démonstration ....
'------------------------------------------
Sub Test_Pour_Daniel()
Dim MonFichier As String, S As String
Dim Dcreation As String, Fs As Object, F As Object
'à déterminer
MonFichier = "C:Exceltoday 3-08-2008test.jpg"
Dcreation = FileDateTime(MonFichier)
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(MonFichier)
S = "Date de création utilisant ""FileDateTime"" : " & Dcreation
S = S & vbCrLf + vbCrLf
S = S & "Created: " & F.DateCreated & vbCrLf
S = S & "Last Accessed: " & F.DateLastAccessed & vbCrLf
S = S & "Last Modified: " & F.DateLastModified
MsgBox S, 0, "File Access Info"
End Sub
'------------------------------------------
Correction : ma procédure devrait être ceci :
J'avais omis d'utiliser les variables dans cette
ligne de code :
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'---------------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'---------------------------------------------
"Daniel.C" a écrit dans le message de news:
Bonjour et bon dimanche.
J'ai d'abord suivi cette piste, mais "FileDateTime" renvoie la date à
laquelle les photos ont été copiées sur l'ordinateur.
Cordialement.
Daniel
"michdenis" a écrit dans le message de news:
eZ8$Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" a écrit dans le message de news:
489567a3$0$294$
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Dans mon petit test, j'ai utilisé l'application Paint.exe et
j'ai créé un dessin quelconque enregistré avec l'extension JPG
Par la suite, j'ai copié ce fichier vers un autre répertoire
J'ai obtenu (en se basant sur la date et l'heure du fichier créé)
DateCreated = Moment où j'ai effectué la copie dans le nouveau
répertoire
DateLastModified = Moment où j'ai enregistrer le fichier pour la première
fois
FileDateTime = donne aussi le moment où j'ai enregistrer le fichier pour
la
première fois.
Tu as une explication ? Je n'ai pas vraiment de temps à y consacrer !
Le demandeur est pour le moins averti ! ;-)
"Daniel.C" a écrit dans le message de news:
J'obtiens bien :
Date de création utilisant "FileDateTime" : 19/07/2008... (date de copie
de
l'appareil photo à l'ordi)
Created: 29/06/2008...
Last accessed 03/08/2008...
Daniel
"michdenis" a écrit dans le message de news:
ueDZk$Je ne suis pas d'accord avec toi et l'utilisation
que tu fais de DateCreated dans l'expression
Dat = fso.GetFile(Source & Fich).DateCreated
Prends un fichier JPG et copie le dans un nouveau
répertoire et utilise cette procédure.... ça devrait
suffire comme démonstration ....
'------------------------------------------
Sub Test_Pour_Daniel()
Dim MonFichier As String, S As String
Dim Dcreation As String, Fs As Object, F As Object
'à déterminer
MonFichier = "C:Exceltoday 3-08-2008test.jpg"
Dcreation = FileDateTime(MonFichier)
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(MonFichier)
S = "Date de création utilisant ""FileDateTime"" : " & Dcreation
S = S & vbCrLf + vbCrLf
S = S & "Created: " & F.DateCreated & vbCrLf
S = S & "Last Accessed: " & F.DateLastAccessed & vbCrLf
S = S & "Last Modified: " & F.DateLastModified
MsgBox S, 0, "File Access Info"
End Sub
'------------------------------------------
Correction : ma procédure devrait être ceci :
J'avais omis d'utiliser les variables dans cette
ligne de code :
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'---------------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'---------------------------------------------
"Daniel.C" a écrit dans le message de news:
Bonjour et bon dimanche.
J'ai d'abord suivi cette piste, mais "FileDateTime" renvoie la date à
laquelle les photos ont été copiées sur l'ordinateur.
Cordialement.
Daniel
"michdenis" a écrit dans le message de news:
eZ8$Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" a écrit dans le message de news:
489567a3$0$294$
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Dans mon petit test, j'ai utilisé l'application Paint.exe et
j'ai créé un dessin quelconque enregistré avec l'extension JPG
Par la suite, j'ai copié ce fichier vers un autre répertoire
J'ai obtenu (en se basant sur la date et l'heure du fichier créé)
DateCreated = Moment où j'ai effectué la copie dans le nouveau
répertoire
DateLastModified = Moment où j'ai enregistrer le fichier pour la première
fois
FileDateTime = donne aussi le moment où j'ai enregistrer le fichier pour
la
première fois.
Tu as une explication ? Je n'ai pas vraiment de temps à y consacrer !
Le demandeur est pour le moins averti ! ;-)
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eBNZ1JX9IHA.1812@TK2MSFTNGP03.phx.gbl...
J'obtiens bien :
Date de création utilisant "FileDateTime" : 19/07/2008... (date de copie
de
l'appareil photo à l'ordi)
Created: 29/06/2008...
Last accessed 03/08/2008...
Daniel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
ueDZk$W9IHA.4820@TK2MSFTNGP06.phx.gbl...
Je ne suis pas d'accord avec toi et l'utilisation
que tu fais de DateCreated dans l'expression
Dat = fso.GetFile(Source & Fich).DateCreated
Prends un fichier JPG et copie le dans un nouveau
répertoire et utilise cette procédure.... ça devrait
suffire comme démonstration ....
'------------------------------------------
Sub Test_Pour_Daniel()
Dim MonFichier As String, S As String
Dim Dcreation As String, Fs As Object, F As Object
'à déterminer
MonFichier = "C:Exceltoday 3-08-2008test.jpg"
Dcreation = FileDateTime(MonFichier)
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(MonFichier)
S = "Date de création utilisant ""FileDateTime"" : " & Dcreation
S = S & vbCrLf + vbCrLf
S = S & "Created: " & F.DateCreated & vbCrLf
S = S & "Last Accessed: " & F.DateLastAccessed & vbCrLf
S = S & "Last Modified: " & F.DateLastModified
MsgBox S, 0, "File Access Info"
End Sub
'------------------------------------------
Correction : ma procédure devrait être ceci :
J'avais omis d'utiliser les variables dans cette
ligne de code :
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'---------------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'---------------------------------------------
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eSV3AaW9IHA.4536@TK2MSFTNGP05.phx.gbl...
Bonjour et bon dimanche.
J'ai d'abord suivi cette piste, mais "FileDateTime" renvoie la date à
laquelle les photos ont été copiées sur l'ordinateur.
Cordialement.
Daniel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eZ8$wNW9IHA.3612@TK2MSFTNGP06.phx.gbl...
Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" <c__olivier@club-internet.fr> a écrit dans le message de news:
489567a3$0$294$7a628cd7@news.club-internet.fr...
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Dans mon petit test, j'ai utilisé l'application Paint.exe et
j'ai créé un dessin quelconque enregistré avec l'extension JPG
Par la suite, j'ai copié ce fichier vers un autre répertoire
J'ai obtenu (en se basant sur la date et l'heure du fichier créé)
DateCreated = Moment où j'ai effectué la copie dans le nouveau
répertoire
DateLastModified = Moment où j'ai enregistrer le fichier pour la première
fois
FileDateTime = donne aussi le moment où j'ai enregistrer le fichier pour
la
première fois.
Tu as une explication ? Je n'ai pas vraiment de temps à y consacrer !
Le demandeur est pour le moins averti ! ;-)
"Daniel.C" a écrit dans le message de news:
J'obtiens bien :
Date de création utilisant "FileDateTime" : 19/07/2008... (date de copie
de
l'appareil photo à l'ordi)
Created: 29/06/2008...
Last accessed 03/08/2008...
Daniel
"michdenis" a écrit dans le message de news:
ueDZk$Je ne suis pas d'accord avec toi et l'utilisation
que tu fais de DateCreated dans l'expression
Dat = fso.GetFile(Source & Fich).DateCreated
Prends un fichier JPG et copie le dans un nouveau
répertoire et utilise cette procédure.... ça devrait
suffire comme démonstration ....
'------------------------------------------
Sub Test_Pour_Daniel()
Dim MonFichier As String, S As String
Dim Dcreation As String, Fs As Object, F As Object
'à déterminer
MonFichier = "C:Exceltoday 3-08-2008test.jpg"
Dcreation = FileDateTime(MonFichier)
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(MonFichier)
S = "Date de création utilisant ""FileDateTime"" : " & Dcreation
S = S & vbCrLf + vbCrLf
S = S & "Created: " & F.DateCreated & vbCrLf
S = S & "Last Accessed: " & F.DateLastAccessed & vbCrLf
S = S & "Last Modified: " & F.DateLastModified
MsgBox S, 0, "File Access Info"
End Sub
'------------------------------------------
Correction : ma procédure devrait être ceci :
J'avais omis d'utiliser les variables dans cette
ligne de code :
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'---------------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'---------------------------------------------
"Daniel.C" a écrit dans le message de news:
Bonjour et bon dimanche.
J'ai d'abord suivi cette piste, mais "FileDateTime" renvoie la date à
laquelle les photos ont été copiées sur l'ordinateur.
Cordialement.
Daniel
"michdenis" a écrit dans le message de news:
eZ8$Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" a écrit dans le message de news:
489567a3$0$294$
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Dans mon petit test, j'ai utilisé l'application Paint.exe et
j'ai créé un dessin quelconque enregistré avec l'extension JPG
Par la suite, j'ai copié ce fichier vers un autre répertoire
J'ai obtenu (en se basant sur la date et l'heure du fichier créé)
DateCreated = Moment où j'ai effectué la copie dans le nouveau
répertoire
DateLastModified = Moment où j'ai enregistrer le fichier pour la première
fois
FileDateTime = donne aussi le moment où j'ai enregistrer le fichier pour
la
première fois.
Tu as une explication ? Je n'ai pas vraiment de temps à y consacrer !
Le demandeur est pour le moins averti ! ;-)
"Daniel.C" a écrit dans le message de news:
J'obtiens bien :
Date de création utilisant "FileDateTime" : 19/07/2008... (date de copie
de
l'appareil photo à l'ordi)
Created: 29/06/2008...
Last accessed 03/08/2008...
Daniel
"michdenis" a écrit dans le message de news:
ueDZk$Je ne suis pas d'accord avec toi et l'utilisation
que tu fais de DateCreated dans l'expression
Dat = fso.GetFile(Source & Fich).DateCreated
Prends un fichier JPG et copie le dans un nouveau
répertoire et utilise cette procédure.... ça devrait
suffire comme démonstration ....
'------------------------------------------
Sub Test_Pour_Daniel()
Dim MonFichier As String, S As String
Dim Dcreation As String, Fs As Object, F As Object
'à déterminer
MonFichier = "C:Exceltoday 3-08-2008test.jpg"
Dcreation = FileDateTime(MonFichier)
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(MonFichier)
S = "Date de création utilisant ""FileDateTime"" : " & Dcreation
S = S & vbCrLf + vbCrLf
S = S & "Created: " & F.DateCreated & vbCrLf
S = S & "Last Accessed: " & F.DateLastAccessed & vbCrLf
S = S & "Last Modified: " & F.DateLastModified
MsgBox S, 0, "File Access Info"
End Sub
'------------------------------------------
Correction : ma procédure devrait être ceci :
J'avais omis d'utiliser les variables dans cette
ligne de code :
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'---------------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'---------------------------------------------
"Daniel.C" a écrit dans le message de news:
Bonjour et bon dimanche.
J'ai d'abord suivi cette piste, mais "FileDateTime" renvoie la date à
laquelle les photos ont été copiées sur l'ordinateur.
Cordialement.
Daniel
"michdenis" a écrit dans le message de news:
eZ8$Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" a écrit dans le message de news:
489567a3$0$294$
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Dans mon petit test, j'ai utilisé l'application Paint.exe et
j'ai créé un dessin quelconque enregistré avec l'extension JPG
Par la suite, j'ai copié ce fichier vers un autre répertoire
J'ai obtenu (en se basant sur la date et l'heure du fichier créé)
DateCreated = Moment où j'ai effectué la copie dans le nouveau
répertoire
DateLastModified = Moment où j'ai enregistrer le fichier pour la première
fois
FileDateTime = donne aussi le moment où j'ai enregistrer le fichier pour
la
première fois.
Tu as une explication ? Je n'ai pas vraiment de temps à y consacrer !
Le demandeur est pour le moins averti ! ;-)
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eBNZ1JX9IHA.1812@TK2MSFTNGP03.phx.gbl...
J'obtiens bien :
Date de création utilisant "FileDateTime" : 19/07/2008... (date de copie
de
l'appareil photo à l'ordi)
Created: 29/06/2008...
Last accessed 03/08/2008...
Daniel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
ueDZk$W9IHA.4820@TK2MSFTNGP06.phx.gbl...
Je ne suis pas d'accord avec toi et l'utilisation
que tu fais de DateCreated dans l'expression
Dat = fso.GetFile(Source & Fich).DateCreated
Prends un fichier JPG et copie le dans un nouveau
répertoire et utilise cette procédure.... ça devrait
suffire comme démonstration ....
'------------------------------------------
Sub Test_Pour_Daniel()
Dim MonFichier As String, S As String
Dim Dcreation As String, Fs As Object, F As Object
'à déterminer
MonFichier = "C:Exceltoday 3-08-2008test.jpg"
Dcreation = FileDateTime(MonFichier)
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(MonFichier)
S = "Date de création utilisant ""FileDateTime"" : " & Dcreation
S = S & vbCrLf + vbCrLf
S = S & "Created: " & F.DateCreated & vbCrLf
S = S & "Last Accessed: " & F.DateLastAccessed & vbCrLf
S = S & "Last Modified: " & F.DateLastModified
MsgBox S, 0, "File Access Info"
End Sub
'------------------------------------------
Correction : ma procédure devrait être ceci :
J'avais omis d'utiliser les variables dans cette
ligne de code :
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'---------------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'---------------------------------------------
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eSV3AaW9IHA.4536@TK2MSFTNGP05.phx.gbl...
Bonjour et bon dimanche.
J'ai d'abord suivi cette piste, mais "FileDateTime" renvoie la date à
laquelle les photos ont été copiées sur l'ordinateur.
Cordialement.
Daniel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eZ8$wNW9IHA.3612@TK2MSFTNGP06.phx.gbl...
Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" <c__olivier@club-internet.fr> a écrit dans le message de news:
489567a3$0$294$7a628cd7@news.club-internet.fr...
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?
Dans mon petit test, j'ai utilisé l'application Paint.exe et
j'ai créé un dessin quelconque enregistré avec l'extension JPG
Par la suite, j'ai copié ce fichier vers un autre répertoire
J'ai obtenu (en se basant sur la date et l'heure du fichier créé)
DateCreated = Moment où j'ai effectué la copie dans le nouveau
répertoire
DateLastModified = Moment où j'ai enregistrer le fichier pour la première
fois
FileDateTime = donne aussi le moment où j'ai enregistrer le fichier pour
la
première fois.
Tu as une explication ? Je n'ai pas vraiment de temps à y consacrer !
Le demandeur est pour le moins averti ! ;-)
"Daniel.C" a écrit dans le message de news:
J'obtiens bien :
Date de création utilisant "FileDateTime" : 19/07/2008... (date de copie
de
l'appareil photo à l'ordi)
Created: 29/06/2008...
Last accessed 03/08/2008...
Daniel
"michdenis" a écrit dans le message de news:
ueDZk$Je ne suis pas d'accord avec toi et l'utilisation
que tu fais de DateCreated dans l'expression
Dat = fso.GetFile(Source & Fich).DateCreated
Prends un fichier JPG et copie le dans un nouveau
répertoire et utilise cette procédure.... ça devrait
suffire comme démonstration ....
'------------------------------------------
Sub Test_Pour_Daniel()
Dim MonFichier As String, S As String
Dim Dcreation As String, Fs As Object, F As Object
'à déterminer
MonFichier = "C:Exceltoday 3-08-2008test.jpg"
Dcreation = FileDateTime(MonFichier)
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(MonFichier)
S = "Date de création utilisant ""FileDateTime"" : " & Dcreation
S = S & vbCrLf + vbCrLf
S = S & "Created: " & F.DateCreated & vbCrLf
S = S & "Last Accessed: " & F.DateLastAccessed & vbCrLf
S = S & "Last Modified: " & F.DateLastModified
MsgBox S, 0, "File Access Info"
End Sub
'------------------------------------------
Correction : ma procédure devrait être ceci :
J'avais omis d'utiliser les variables dans cette
ligne de code :
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'---------------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime(RépertoireSource & File), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'---------------------------------------------
"Daniel.C" a écrit dans le message de news:
Bonjour et bon dimanche.
J'ai d'abord suivi cette piste, mais "FileDateTime" renvoie la date à
laquelle les photos ont été copiées sur l'ordinateur.
Cordialement.
Daniel
"michdenis" a écrit dans le message de news:
eZ8$Tu as aussi ceci :
Tous les fichiers ayant été créés à une date
donnée seront déplacés vers un répertoire
ayant cette date.
'-----------------------------------------
Sub test()
Dim RépertoireSource As String
Dim File As String, X As String
Dim Vers As String
'**** à déterminer*****
'Où sont les images
RépertoireSource = "C:Exceltoday"
'Où seront créés les nouveaux répertoires
'dans lesquels seront les fichiers aboutiront.
Vers = "C:Exceltoday"
'****************************
'Attribution du premier fichier à traiter
File = Dir(RépertoireSource & "*.jpg")
'boucle sur tous les fichiers images du
'répertoire source
Do While File <> ""
'Extraire la date de créaition du fichier
X = Format(FileDateTime("C:Exceltodaytest.jpg"), "dd-MM-YYYY")
'création du fichier X si absent
Shell Environ("comspec") & " /c mkdir " & Vers & X & "", 0
'Déplacement du fichier répertoire source
'vers nouveau répertoire
Shell Environ("comspec") & _
" /c Move " & RépertoireSource & File & _
" " & Vers & X, 0
'Traitement du nouveau fichier
File = Dir
Loop
End Sub
'-----------------------------------------
"Olivier" a écrit dans le message de news:
489567a3$0$294$
Bonjour,
mon APN transfère mes photos dans un dossier dont le nom est la date du
transfert.
Or je rentre de vacances et dans ce dossier, il y a des photos de 15
jours.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des
dossiers
dont le nom est la date de prise de vue.
Est-ce possible ?
Mon problème est que j'ai déjà vu comment on récupère la liste des jpg
dans
un dossier, comment on les copie,...
Mais je ne sais pas comment on peut récupérer la date du cliché (Ensuite
je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on
copie)
Quelqu'un a une idée ?
Merci
PS: J'ai tenté d'aller voir le site Excelabo.net. On me répond page
introuvable : simple bug ou c'est plus grave ?