Renomer des photos

[fifi]

bonsoir, après m'etre perdu dans le forum poussé par la curiosité des messages :s ; j'ose enfin poster mon problème.

Ca doit être assez simplexe et pourtant !!!! 😀

quel code je peux utiliser pour renomer toutes les photos contenues dans un fichier ?
le but étant de les renomer avec le non du fichier les contenant et en évitant les espaces (ex : photo1)


j'ai fais un bout de code mais c'est pas fameux 😀
à priori le pb vient du fait que .FoundFiles.Count = ZERO :s

----------------------------------------------
Sub Renomer()

Dim i As Integer
Dim ancienNom As Variant
Dim nouveauNom As Variant

With Application.FileSearch
'.NewSearch
.LookIn = "J:\photo\" 'Wb.Path
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles

MsgBox (.FoundFiles.Count)

For i = 1 To .FoundFiles.Count
ancienNom = FoundFiles.Name
Cells(i, 1) = ancienNom
Cells(i, 2) = nouveauNom
nouveauNom = ancienNom & "(" & i & ")" & ".jpg"
Name ancienNom As nouveauNom
Exit Sub
Next i

End With
End Sub

 

[Mytå]

Re : Renomer des photos

Salut le Forum

Essaye ceci (à adapter)

Sub Renomer()

Dim I As Integer

ChDir "c:\Photo"

With Application.FileSearch
If .Execute() > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For I = 1 To .FoundFiles.Count
Cells(I, 1) = .FoundFiles(I)
'Name "C:TempToto.xls" As "C:TempTata.xls"
Name "" & .FoundFiles(I) As "Photo" & I & ".jpg"
Next I
Else
MsgBox "There were no files found."
End If
End With

End Sub

Mytå

 

[fifi]

Re : Renomer des photos

merci pour ton aide mais il semble il y a voir un pb dans le listing de fichiers photos car
.FoundFiles.Count reste = à zéro encore

j'ai meme essayé de mettre les photos dans un un fichier .FoundFiles.Count

🙁

 

[fifi]

Re : Renomer des photos

je trouve pas :s
snifff

 

[Mytå]

Re : Renomer des photos

Salut fifi

Essaye avec ceci

Sub Renomer()
 
Dim I As Integer
 
Set FS = Application.FileSearch
 
With FS
     .LookIn = "C:\Photo"
     .Filename = "*.jpg"
 
     If .Execute > 0 Then
          MsgBox "There were " & .FoundFiles.Count & " file(s) found."
 
     For I = 1 To .FoundFiles.Count
          Cells(I, 1) = .FoundFiles(I)
          Name "" & .FoundFiles(I) As "Photo" & I & ".jpg"
     Next I
 
     Else
          MsgBox "There were no files found."
     End If
 
End With
 
End Sub

Mytå

 

[fifi]

Re : Renomer des photos

c'est toujours pareil il ne trouve pas de fichier ... j'ai essayé avec plusieurs répertoires.. et différentes syntaxe mais rien n'y fait :s

pourtant le code est bien :s

cela marche bien chez toi ?

 

[Mytå]

Re : Renomer des photos

Salut le forum

Fifi ta version d'excel ?

Et un zip de ton fichier de base serait bienvenue.

Mytå

 

[bqtr]

Re : Renomer des photos

Bonjour tous le monde

Juste avant de débaucher,

En modifiant la ligne : .Filename = "*.jpg" comme ceci .Filename = "jpg"
la macro trouve bien les fichiers "jpg" et la msgbox affiche bien le nombre.

Cepandant pour la macro bug quand elle renomme les fichiers, elle s'arrête aprés le premier et indique pour le second que le nom existe déjà.

Là j'ai pas trouvé la solution.

Bonne fin de nuit, moi je vais dormir un peu

A+

P.O

 

[fifi]

Re : Renomer des photos

ma version d'excel est de 2003 :s

meme en faisant les modif proposées par bqtr (à 5H du mat^^)
j'ai le même résultats (no found file)

mon classeur est vide .. il n'y a que la macro.
donc c'est pas trop utile que je le zip non ?

 

[bqtr]

Re : Renomer des photos

Re,

En mixant la procédure de Myta et la tienne j'ai fait ceci :

Sub Renomer()

Dim I As Integer
Dim ancienNom As Variant
Dim nouveauNom As Variant

Set FS = Application.FileSearch

With FS
.LookIn = "C:\Photo"
.Filename = "*.jpg"

If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Count & " file(s) found."
Msg = "Voulez vous renommer les photos ?"
Ans = MsgBox(Msg, vbQuestion + vbYesNo, "Confirmation :")
If Ans = vbNo Then Exit Sub

For I = 1 To .FoundFiles.Count
Cells(I, 1) = .FoundFiles(I)
ancienNom = Cells(I, 1)
nouveauNom = .LookIn & "\Photo" & (I) & ".jpg"
Cells(I, 2) = nouveauNom
Name ancienNom As nouveauNom

Next I

Else
MsgBox "There were no files found."
End If

End With

End Sub


Cela fonctionne parfaitement chez moi, elle renomme les photos "jpg" du répertoire C:\Photo

C:\Photo\Photo 01.jpg en C:\Photo\Photo1.jpg
C:\Photo\Photo 02.jpg en C:\Photo\Photo2.jpg
.../...



A+

P.O

 

[fifi]

Re : Renomer des photos

ok j'ai essaye cette solution ... et réessayer les autres...
rien n'y fait .toujours pareil MAIS

j'ai changé de répertoire, car mes photos sont dans le disque G:
j'ai donc fait un test avecdes photos en c: et LA ca marche !!!!!

bizard je ne vois pas la raison pour laquelle en changeant de répertoire il y aurait des probleme

en tout cas merci beaucoup 😀
j'avais une solution qui fonctionnait depuis pratiquement le début mais bon :s