Bonjour,
La date de création du cliché sera dans la 5ème colonne:
'''''****code Module1*******
Sub LireInfosJpg(chemin)
'Dans outil réferences cocher Microsoft Shell Controls and Automation
Dim myShell As Shell
Dim myFolder As Folder
Dim myfile As FolderItem
Dim i As Byte, f As String, lig As Long
ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
Set myShell = CreateObject("Shell.Application")
Set myFolder = myShell.Namespace(chemin)
Set myfile = myFolder.Items.Item(f)
Application.ScreenUpdating = False
[a:ah].ClearContents
For i = 0 To 34
If myFolder.GetDetailsOf(myfile, i) <> "" Then _
Cells(1, i + 1) = myFolder.GetDetailsOf(myfile, i)
Next
f = Dir(chemin & "*.jpg")
Do While Len(f) > 0
Set myfile = myFolder.Items.Item(f)
lig = [a65536].End(xlUp)(2).Row
For i = 0 To 34
If myFolder.GetDetailsOf(myfile, i) <> "" Then _
Cells(lig, i + 1) = myFolder.GetDetailsOf(myfile, i)
Next
f = Dir
Loop
Set myShell = Nothing
Set myFolder = Nothing
Set myfile = Nothing
End Sub
'lSteph
Olivier a écrit :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,
La date de création du cliché sera dans la 5ème colonne:
'''''****code Module1*******
Sub LireInfosJpg(chemin)
'Dans outil réferences cocher Microsoft Shell Controls and Automation
Dim myShell As Shell
Dim myFolder As Folder
Dim myfile As FolderItem
Dim i As Byte, f As String, lig As Long
ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
Set myShell = CreateObject("Shell.Application")
Set myFolder = myShell.Namespace(chemin)
Set myfile = myFolder.Items.Item(f)
Application.ScreenUpdating = False
[a:ah].ClearContents
For i = 0 To 34
If myFolder.GetDetailsOf(myfile, i) <> "" Then _
Cells(1, i + 1) = myFolder.GetDetailsOf(myfile, i)
Next
f = Dir(chemin & "*.jpg")
Do While Len(f) > 0
Set myfile = myFolder.Items.Item(f)
lig = [a65536].End(xlUp)(2).Row
For i = 0 To 34
If myFolder.GetDetailsOf(myfile, i) <> "" Then _
Cells(lig, i + 1) = myFolder.GetDetailsOf(myfile, i)
Next
f = Dir
Loop
Set myShell = Nothing
Set myFolder = Nothing
Set myfile = Nothing
End Sub
'lSteph
Olivier a écrit :
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,
La date de création du cliché sera dans la 5ème colonne:
'''''****code Module1*******
Sub LireInfosJpg(chemin)
'Dans outil réferences cocher Microsoft Shell Controls and Automation
Dim myShell As Shell
Dim myFolder As Folder
Dim myfile As FolderItem
Dim i As Byte, f As String, lig As Long
ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
Set myShell = CreateObject("Shell.Application")
Set myFolder = myShell.Namespace(chemin)
Set myfile = myFolder.Items.Item(f)
Application.ScreenUpdating = False
[a:ah].ClearContents
For i = 0 To 34
If myFolder.GetDetailsOf(myfile, i) <> "" Then _
Cells(1, i + 1) = myFolder.GetDetailsOf(myfile, i)
Next
f = Dir(chemin & "*.jpg")
Do While Len(f) > 0
Set myfile = myFolder.Items.Item(f)
lig = [a65536].End(xlUp)(2).Row
For i = 0 To 34
If myFolder.GetDetailsOf(myfile, i) <> "" Then _
Cells(lig, i + 1) = myFolder.GetDetailsOf(myfile, i)
Next
f = Dir
Loop
Set myShell = Nothing
Set myFolder = Nothing
Set myfile = Nothing
End Sub
'lSteph
Olivier a écrit :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 ?
On peut utiliser ceci pour n'obtenir que le nom des fichiers et leur date de
création.
'--------------------------------------------
Sub test()
LireInfosJpg "c:Exceltoday"
End Sub
'--------------------------------------------
Sub LireInfosJpg(chemin)
'Dans outil réferences cocher
' "Microsoft Shell Controls and Automation"
Dim MyShell As Shell, MyFolder As Folder
Dim MyFile As FolderItem
Dim F As String, Lig As Long
ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
Set MyShell = CreateObject("Shell.Application")
Set MyFolder = MyShell.Namespace(chemin)
Range("A1") = "Nom du Fichier"
Range("B1") = "Date de création"
Range("A1:B1").Font.Bold = True
F = Dir(chemin & "*.jpg")
Lig = 2
Do While Len(F) > 0
Set MyFile = MyFolder.Items.Item(F)
If MyFolder.GetDetailsOf(MyFile, 0) <> "" Then
Range("A" & Lig) = MyFolder.GetDetailsOf(MyFile, 0)
Range("B" & Lig) = MyFolder.GetDetailsOf(MyFile, 4)
Lig = Lig + 1
End If
F = Dir
Loop
Range("A:B").EntireColumn.AutoFit
Set MyShell = Nothing: Set MyFolder = Nothing: Set MyFile = Nothing
End Sub
'---------------------------------------------
"LSteph" a écrit dans le message de news:
Bonjour,
La date de création du cliché sera dans la 5ème colonne:
'''''****code Module1*******
Sub LireInfosJpg(chemin)
'Dans outil réferences cocher Microsoft Shell Controls and Automation
Dim myShell As Shell
Dim myFolder As Folder
Dim myfile As FolderItem
Dim i As Byte, f As String, lig As Long
ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
Set myShell = CreateObject("Shell.Application")
Set myFolder = myShell.Namespace(chemin)
Set myfile = myFolder.Items.Item(f)
Application.ScreenUpdating = False
[a:ah].ClearContents
For i = 0 To 34
If myFolder.GetDetailsOf(myfile, i) <> "" Then _
Cells(1, i + 1) = myFolder.GetDetailsOf(myfile, i)
Next
f = Dir(chemin & "*.jpg")
Do While Len(f) > 0
Set myfile = myFolder.Items.Item(f)
lig = [a65536].End(xlUp)(2).Row
For i = 0 To 34
If myFolder.GetDetailsOf(myfile, i) <> "" Then _
Cells(lig, i + 1) = myFolder.GetDetailsOf(myfile, i)
Next
f = Dir
Loop
Set myShell = Nothing
Set myFolder = Nothing
Set myfile = Nothing
End Sub
'lSteph
Olivier a écrit :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 ?
On peut utiliser ceci pour n'obtenir que le nom des fichiers et leur date de
création.
'--------------------------------------------
Sub test()
LireInfosJpg "c:Exceltoday"
End Sub
'--------------------------------------------
Sub LireInfosJpg(chemin)
'Dans outil réferences cocher
' "Microsoft Shell Controls and Automation"
Dim MyShell As Shell, MyFolder As Folder
Dim MyFile As FolderItem
Dim F As String, Lig As Long
ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
Set MyShell = CreateObject("Shell.Application")
Set MyFolder = MyShell.Namespace(chemin)
Range("A1") = "Nom du Fichier"
Range("B1") = "Date de création"
Range("A1:B1").Font.Bold = True
F = Dir(chemin & "*.jpg")
Lig = 2
Do While Len(F) > 0
Set MyFile = MyFolder.Items.Item(F)
If MyFolder.GetDetailsOf(MyFile, 0) <> "" Then
Range("A" & Lig) = MyFolder.GetDetailsOf(MyFile, 0)
Range("B" & Lig) = MyFolder.GetDetailsOf(MyFile, 4)
Lig = Lig + 1
End If
F = Dir
Loop
Range("A:B").EntireColumn.AutoFit
Set MyShell = Nothing: Set MyFolder = Nothing: Set MyFile = Nothing
End Sub
'---------------------------------------------
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
Oq5TAXb9IHA.5756@TK2MSFTNGP05.phx.gbl...
Bonjour,
La date de création du cliché sera dans la 5ème colonne:
'''''****code Module1*******
Sub LireInfosJpg(chemin)
'Dans outil réferences cocher Microsoft Shell Controls and Automation
Dim myShell As Shell
Dim myFolder As Folder
Dim myfile As FolderItem
Dim i As Byte, f As String, lig As Long
ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
Set myShell = CreateObject("Shell.Application")
Set myFolder = myShell.Namespace(chemin)
Set myfile = myFolder.Items.Item(f)
Application.ScreenUpdating = False
[a:ah].ClearContents
For i = 0 To 34
If myFolder.GetDetailsOf(myfile, i) <> "" Then _
Cells(1, i + 1) = myFolder.GetDetailsOf(myfile, i)
Next
f = Dir(chemin & "*.jpg")
Do While Len(f) > 0
Set myfile = myFolder.Items.Item(f)
lig = [a65536].End(xlUp)(2).Row
For i = 0 To 34
If myFolder.GetDetailsOf(myfile, i) <> "" Then _
Cells(lig, i + 1) = myFolder.GetDetailsOf(myfile, i)
Next
f = Dir
Loop
Set myShell = Nothing
Set myFolder = Nothing
Set myfile = Nothing
End Sub
'lSteph
Olivier a écrit :
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 ?
On peut utiliser ceci pour n'obtenir que le nom des fichiers et leur date de
création.
'--------------------------------------------
Sub test()
LireInfosJpg "c:Exceltoday"
End Sub
'--------------------------------------------
Sub LireInfosJpg(chemin)
'Dans outil réferences cocher
' "Microsoft Shell Controls and Automation"
Dim MyShell As Shell, MyFolder As Folder
Dim MyFile As FolderItem
Dim F As String, Lig As Long
ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
Set MyShell = CreateObject("Shell.Application")
Set MyFolder = MyShell.Namespace(chemin)
Range("A1") = "Nom du Fichier"
Range("B1") = "Date de création"
Range("A1:B1").Font.Bold = True
F = Dir(chemin & "*.jpg")
Lig = 2
Do While Len(F) > 0
Set MyFile = MyFolder.Items.Item(F)
If MyFolder.GetDetailsOf(MyFile, 0) <> "" Then
Range("A" & Lig) = MyFolder.GetDetailsOf(MyFile, 0)
Range("B" & Lig) = MyFolder.GetDetailsOf(MyFile, 4)
Lig = Lig + 1
End If
F = Dir
Loop
Range("A:B").EntireColumn.AutoFit
Set MyShell = Nothing: Set MyFolder = Nothing: Set MyFile = Nothing
End Sub
'---------------------------------------------
"LSteph" a écrit dans le message de news:
Bonjour,
La date de création du cliché sera dans la 5ème colonne:
'''''****code Module1*******
Sub LireInfosJpg(chemin)
'Dans outil réferences cocher Microsoft Shell Controls and Automation
Dim myShell As Shell
Dim myFolder As Folder
Dim myfile As FolderItem
Dim i As Byte, f As String, lig As Long
ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
Set myShell = CreateObject("Shell.Application")
Set myFolder = myShell.Namespace(chemin)
Set myfile = myFolder.Items.Item(f)
Application.ScreenUpdating = False
[a:ah].ClearContents
For i = 0 To 34
If myFolder.GetDetailsOf(myfile, i) <> "" Then _
Cells(1, i + 1) = myFolder.GetDetailsOf(myfile, i)
Next
f = Dir(chemin & "*.jpg")
Do While Len(f) > 0
Set myfile = myFolder.Items.Item(f)
lig = [a65536].End(xlUp)(2).Row
For i = 0 To 34
If myFolder.GetDetailsOf(myfile, i) <> "" Then _
Cells(lig, i + 1) = myFolder.GetDetailsOf(myfile, i)
Next
f = Dir
Loop
Set myShell = Nothing
Set myFolder = Nothing
Set myfile = Nothing
End Sub
'lSteph
Olivier a écrit :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,
Oui on peut simplifier ce que j'ai donné vient d'un classeur plus gros
que j'avais mis au point à la demande il y a un an ou deux pour
1-lister tous les réperoires (contenant les photos)
2-Extraire dans une feuille les Exif du repertoire sélectionné par
doubleclic
http://cjoint.com/?ieidXsvaeq
Après il y a pour sûr du déchet, je n'ai pas recorrigé mon code, mais si
le but est de récupèrer un élément, qui peut le + peut le -
;-)
Cordialement.
--
lSteph
michdenis a écrit :On peut utiliser ceci pour n'obtenir que le nom des fichiers et leur
date de création.
'--------------------------------------------
Sub test()
LireInfosJpg "c:Exceltoday"
End Sub
'--------------------------------------------
Sub LireInfosJpg(chemin)
'Dans outil réferences cocher
' "Microsoft Shell Controls and Automation"
Dim MyShell As Shell, MyFolder As Folder
Dim MyFile As FolderItem
Dim F As String, Lig As Long
ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
Set MyShell = CreateObject("Shell.Application")
Set MyFolder = MyShell.Namespace(chemin)
Range("A1") = "Nom du Fichier"
Range("B1") = "Date de création"
Range("A1:B1").Font.Bold = True
F = Dir(chemin & "*.jpg")
Lig = 2
Do While Len(F) > 0
Set MyFile = MyFolder.Items.Item(F)
If MyFolder.GetDetailsOf(MyFile, 0) <> "" Then
Range("A" & Lig) = MyFolder.GetDetailsOf(MyFile, 0)
Range("B" & Lig) = MyFolder.GetDetailsOf(MyFile, 4)
Lig = Lig + 1
End If
F = Dir
Loop
Range("A:B").EntireColumn.AutoFit
Set MyShell = Nothing: Set MyFolder = Nothing: Set MyFile = Nothing
End Sub
'---------------------------------------------
"LSteph" a écrit dans le message de news:
Bonjour,
La date de création du cliché sera dans la 5ème colonne:
'''''****code Module1*******
Sub LireInfosJpg(chemin)
'Dans outil réferences cocher Microsoft Shell Controls and Automation
Dim myShell As Shell
Dim myFolder As Folder
Dim myfile As FolderItem
Dim i As Byte, f As String, lig As Long
ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
Set myShell = CreateObject("Shell.Application")
Set myFolder = myShell.Namespace(chemin)
Set myfile = myFolder.Items.Item(f)
Application.ScreenUpdating = False
[a:ah].ClearContents
For i = 0 To 34
If myFolder.GetDetailsOf(myfile, i) <> "" Then _
Cells(1, i + 1) = myFolder.GetDetailsOf(myfile, i)
Next
f = Dir(chemin & "*.jpg")
Do While Len(f) > 0
Set myfile = myFolder.Items.Item(f)
lig = [a65536].End(xlUp)(2).Row
For i = 0 To 34
If myFolder.GetDetailsOf(myfile, i) <> "" Then _
Cells(lig, i + 1) = myFolder.GetDetailsOf(myfile, i)
Next
f = Dir
Loop
Set myShell = Nothing
Set myFolder = Nothing
Set myfile = Nothing
End Sub
'lSteph
Olivier a écrit :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,
Oui on peut simplifier ce que j'ai donné vient d'un classeur plus gros
que j'avais mis au point à la demande il y a un an ou deux pour
1-lister tous les réperoires (contenant les photos)
2-Extraire dans une feuille les Exif du repertoire sélectionné par
doubleclic
http://cjoint.com/?ieidXsvaeq
Après il y a pour sûr du déchet, je n'ai pas recorrigé mon code, mais si
le but est de récupèrer un élément, qui peut le + peut le -
;-)
Cordialement.
--
lSteph
michdenis a écrit :
On peut utiliser ceci pour n'obtenir que le nom des fichiers et leur
date de création.
'--------------------------------------------
Sub test()
LireInfosJpg "c:Exceltoday"
End Sub
'--------------------------------------------
Sub LireInfosJpg(chemin)
'Dans outil réferences cocher
' "Microsoft Shell Controls and Automation"
Dim MyShell As Shell, MyFolder As Folder
Dim MyFile As FolderItem
Dim F As String, Lig As Long
ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
Set MyShell = CreateObject("Shell.Application")
Set MyFolder = MyShell.Namespace(chemin)
Range("A1") = "Nom du Fichier"
Range("B1") = "Date de création"
Range("A1:B1").Font.Bold = True
F = Dir(chemin & "*.jpg")
Lig = 2
Do While Len(F) > 0
Set MyFile = MyFolder.Items.Item(F)
If MyFolder.GetDetailsOf(MyFile, 0) <> "" Then
Range("A" & Lig) = MyFolder.GetDetailsOf(MyFile, 0)
Range("B" & Lig) = MyFolder.GetDetailsOf(MyFile, 4)
Lig = Lig + 1
End If
F = Dir
Loop
Range("A:B").EntireColumn.AutoFit
Set MyShell = Nothing: Set MyFolder = Nothing: Set MyFile = Nothing
End Sub
'---------------------------------------------
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
Oq5TAXb9IHA.5756@TK2MSFTNGP05.phx.gbl...
Bonjour,
La date de création du cliché sera dans la 5ème colonne:
'''''****code Module1*******
Sub LireInfosJpg(chemin)
'Dans outil réferences cocher Microsoft Shell Controls and Automation
Dim myShell As Shell
Dim myFolder As Folder
Dim myfile As FolderItem
Dim i As Byte, f As String, lig As Long
ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
Set myShell = CreateObject("Shell.Application")
Set myFolder = myShell.Namespace(chemin)
Set myfile = myFolder.Items.Item(f)
Application.ScreenUpdating = False
[a:ah].ClearContents
For i = 0 To 34
If myFolder.GetDetailsOf(myfile, i) <> "" Then _
Cells(1, i + 1) = myFolder.GetDetailsOf(myfile, i)
Next
f = Dir(chemin & "*.jpg")
Do While Len(f) > 0
Set myfile = myFolder.Items.Item(f)
lig = [a65536].End(xlUp)(2).Row
For i = 0 To 34
If myFolder.GetDetailsOf(myfile, i) <> "" Then _
Cells(lig, i + 1) = myFolder.GetDetailsOf(myfile, i)
Next
f = Dir
Loop
Set myShell = Nothing
Set myFolder = Nothing
Set myfile = Nothing
End Sub
'lSteph
Olivier a écrit :
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,
Oui on peut simplifier ce que j'ai donné vient d'un classeur plus gros
que j'avais mis au point à la demande il y a un an ou deux pour
1-lister tous les réperoires (contenant les photos)
2-Extraire dans une feuille les Exif du repertoire sélectionné par
doubleclic
http://cjoint.com/?ieidXsvaeq
Après il y a pour sûr du déchet, je n'ai pas recorrigé mon code, mais si
le but est de récupèrer un élément, qui peut le + peut le -
;-)
Cordialement.
--
lSteph
michdenis a écrit :On peut utiliser ceci pour n'obtenir que le nom des fichiers et leur
date de création.
'--------------------------------------------
Sub test()
LireInfosJpg "c:Exceltoday"
End Sub
'--------------------------------------------
Sub LireInfosJpg(chemin)
'Dans outil réferences cocher
' "Microsoft Shell Controls and Automation"
Dim MyShell As Shell, MyFolder As Folder
Dim MyFile As FolderItem
Dim F As String, Lig As Long
ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
Set MyShell = CreateObject("Shell.Application")
Set MyFolder = MyShell.Namespace(chemin)
Range("A1") = "Nom du Fichier"
Range("B1") = "Date de création"
Range("A1:B1").Font.Bold = True
F = Dir(chemin & "*.jpg")
Lig = 2
Do While Len(F) > 0
Set MyFile = MyFolder.Items.Item(F)
If MyFolder.GetDetailsOf(MyFile, 0) <> "" Then
Range("A" & Lig) = MyFolder.GetDetailsOf(MyFile, 0)
Range("B" & Lig) = MyFolder.GetDetailsOf(MyFile, 4)
Lig = Lig + 1
End If
F = Dir
Loop
Range("A:B").EntireColumn.AutoFit
Set MyShell = Nothing: Set MyFolder = Nothing: Set MyFile = Nothing
End Sub
'---------------------------------------------
"LSteph" a écrit dans le message de news:
Bonjour,
La date de création du cliché sera dans la 5ème colonne:
'''''****code Module1*******
Sub LireInfosJpg(chemin)
'Dans outil réferences cocher Microsoft Shell Controls and Automation
Dim myShell As Shell
Dim myFolder As Folder
Dim myfile As FolderItem
Dim i As Byte, f As String, lig As Long
ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
Set myShell = CreateObject("Shell.Application")
Set myFolder = myShell.Namespace(chemin)
Set myfile = myFolder.Items.Item(f)
Application.ScreenUpdating = False
[a:ah].ClearContents
For i = 0 To 34
If myFolder.GetDetailsOf(myfile, i) <> "" Then _
Cells(1, i + 1) = myFolder.GetDetailsOf(myfile, i)
Next
f = Dir(chemin & "*.jpg")
Do While Len(f) > 0
Set myfile = myFolder.Items.Item(f)
lig = [a65536].End(xlUp)(2).Row
For i = 0 To 34
If myFolder.GetDetailsOf(myfile, i) <> "" Then _
Cells(lig, i + 1) = myFolder.GetDetailsOf(myfile, i)
Next
f = Dir
Loop
Set myShell = Nothing
Set myFolder = Nothing
Set myfile = Nothing
End Sub
'lSteph
Olivier a écrit :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 ?
Bonsoir.
J'ai une erreur de compil sur la ligne :
Set myfile = myFolder.Items.Item(f)
".Items" est en reverse video et le message "Membre de méthode ou de do nnée
introuvable". Votre avis, docteur ?
Cordialement.
Daniel
"LSteph" a écrit dans le message de news:
> Bonjour,
> La date de création du cliché sera dans la 5ème colonne:
> '''''****code Module1*******
> Sub LireInfosJpg(chemin)
> 'Dans outil réferences cocher Microsoft Shell Controls and Automatio n
> Dim myShell As Shell
> Dim myFolder As Folder
> Dim myfile As FolderItem
> Dim i As Byte, f As String, lig As Long
> ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
> Set myShell = CreateObject("Shell.Application")
> Set myFolder = myShell.Namespace(chemin)
> Set myfile = myFolder.Items.Item(f)
> Application.ScreenUpdating = False
> [a:ah].ClearContents
> For i = 0 To 34
> If myFolder.GetDetailsOf(myfile, i) <> "" Then _
> Cells(1, i + 1) = myFolder.GetDetailsOf(myfile, i)
> Next
> f = Dir(chemin & "*.jpg")
> Do While Len(f) > 0
> Set myfile = myFolder.Items.Item(f)
> lig = [a65536].End(xlUp)(2).Row
> For i = 0 To 34
> If myFolder.GetDetailsOf(myfile, i) <> "" Then _
> Cells(lig, i + 1) = myFolder.GetDetailsOf(myfile, i)
> Next
> f = Dir
> Loop
> Set myShell = Nothing
> Set myFolder = Nothing
> Set myfile = Nothing
> End Sub
> 'lSteph
> Olivier a écrit :
>> 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 lis te 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 pag e
>> introuvable : simple bug ou c'est plus grave ?
Bonsoir.
J'ai une erreur de compil sur la ligne :
Set myfile = myFolder.Items.Item(f)
".Items" est en reverse video et le message "Membre de méthode ou de do nnée
introuvable". Votre avis, docteur ?
Cordialement.
Daniel
"LSteph" <lecocost...@frite.fr> a écrit dans le message de news:
Oq5TAXb9IHA.5...@TK2MSFTNGP05.phx.gbl...
> Bonjour,
> La date de création du cliché sera dans la 5ème colonne:
> '''''****code Module1*******
> Sub LireInfosJpg(chemin)
> 'Dans outil réferences cocher Microsoft Shell Controls and Automatio n
> Dim myShell As Shell
> Dim myFolder As Folder
> Dim myfile As FolderItem
> Dim i As Byte, f As String, lig As Long
> ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
> Set myShell = CreateObject("Shell.Application")
> Set myFolder = myShell.Namespace(chemin)
> Set myfile = myFolder.Items.Item(f)
> Application.ScreenUpdating = False
> [a:ah].ClearContents
> For i = 0 To 34
> If myFolder.GetDetailsOf(myfile, i) <> "" Then _
> Cells(1, i + 1) = myFolder.GetDetailsOf(myfile, i)
> Next
> f = Dir(chemin & "*.jpg")
> Do While Len(f) > 0
> Set myfile = myFolder.Items.Item(f)
> lig = [a65536].End(xlUp)(2).Row
> For i = 0 To 34
> If myFolder.GetDetailsOf(myfile, i) <> "" Then _
> Cells(lig, i + 1) = myFolder.GetDetailsOf(myfile, i)
> Next
> f = Dir
> Loop
> Set myShell = Nothing
> Set myFolder = Nothing
> Set myfile = Nothing
> End Sub
> 'lSteph
> Olivier a écrit :
>> 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 lis te 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 pag e
>> introuvable : simple bug ou c'est plus grave ?
Bonsoir.
J'ai une erreur de compil sur la ligne :
Set myfile = myFolder.Items.Item(f)
".Items" est en reverse video et le message "Membre de méthode ou de do nnée
introuvable". Votre avis, docteur ?
Cordialement.
Daniel
"LSteph" a écrit dans le message de news:
> Bonjour,
> La date de création du cliché sera dans la 5ème colonne:
> '''''****code Module1*******
> Sub LireInfosJpg(chemin)
> 'Dans outil réferences cocher Microsoft Shell Controls and Automatio n
> Dim myShell As Shell
> Dim myFolder As Folder
> Dim myfile As FolderItem
> Dim i As Byte, f As String, lig As Long
> ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
> Set myShell = CreateObject("Shell.Application")
> Set myFolder = myShell.Namespace(chemin)
> Set myfile = myFolder.Items.Item(f)
> Application.ScreenUpdating = False
> [a:ah].ClearContents
> For i = 0 To 34
> If myFolder.GetDetailsOf(myfile, i) <> "" Then _
> Cells(1, i + 1) = myFolder.GetDetailsOf(myfile, i)
> Next
> f = Dir(chemin & "*.jpg")
> Do While Len(f) > 0
> Set myfile = myFolder.Items.Item(f)
> lig = [a65536].End(xlUp)(2).Row
> For i = 0 To 34
> If myFolder.GetDetailsOf(myfile, i) <> "" Then _
> Cells(lig, i + 1) = myFolder.GetDetailsOf(myfile, i)
> Next
> f = Dir
> Loop
> Set myShell = Nothing
> Set myFolder = Nothing
> Set myfile = Nothing
> End Sub
> 'lSteph
> Olivier a écrit :
>> 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 lis te 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 pag e
>> introuvable : simple bug ou c'est plus grave ?
Bonjour,
La date de création du cliché sera dans la 5ème colonne:
Bonjour,
La date de création du cliché sera dans la 5ème colonne:
Bonjour,
La date de création du cliché sera dans la 5ème colonne:
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 jour s.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des doss iers
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é (En suite je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on co pie)
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 jour s.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des doss iers
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é (En suite je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on co pie)
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 jour s.
Je souhaiterais copier ces photos à l'aide d'Excel et VBA dans des doss iers
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é (En suite je
suppose qu'on nomme le dossier avec pour nom la date du cliché et on co pie)
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 ?
> Regarde dans la liste des références cochées dans ton fichier,
Est-ce possible que tu aies de cocher aussi la référence suivante :
"Microsoft Scripting RunTime"
Et qu'elle est située avant la bibliothèque :
"Microsoft Shell Controls and Automation"
Si oui, décoche
"Microsoft Scripting RunTime"
car il y a une mauvaise interprétation des objets
entre les 2 bibliothèques
> Regarde dans la liste des références cochées dans ton fichier,
Est-ce possible que tu aies de cocher aussi la référence suivante :
"Microsoft Scripting RunTime"
Et qu'elle est située avant la bibliothèque :
"Microsoft Shell Controls and Automation"
Si oui, décoche
"Microsoft Scripting RunTime"
car il y a une mauvaise interprétation des objets
entre les 2 bibliothèques
> Regarde dans la liste des références cochées dans ton fichier,
Est-ce possible que tu aies de cocher aussi la référence suivante :
"Microsoft Scripting RunTime"
Et qu'elle est située avant la bibliothèque :
"Microsoft Shell Controls and Automation"
Si oui, décoche
"Microsoft Scripting RunTime"
car il y a une mauvaise interprétation des objets
entre les 2 bibliothèques