Renomer des photos

M

Mytå

Guest

• 10 Novembre 2006

• #2

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å

 

Vote positif 0 Vote négatif

F

fifi

XLDnaute Occasionnel

• 10 Novembre 2006

• #3

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

🙁

 

Vote positif 0 Vote négatif

F

fifi

XLDnaute Occasionnel

• 11 Novembre 2006

• #4

Re : Renomer des photos

je trouve pas :s
snifff

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 12 Novembre 2006

• #5

Re : Renomer des photos

Salut fifi

Essaye avec ceci

PHP:

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å

 

Dernière modification par un modérateur: 12 Novembre 2006

Vote positif 0 Vote négatif

F

fifi

XLDnaute Occasionnel

• 12 Novembre 2006

• #6

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 ?

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 13 Novembre 2006

• #7

Re : Renomer des photos

Salut le forum

Fifi ta version d'excel ?

Et un zip de ton fichier de base serait bienvenue.

Mytå

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 13 Novembre 2006

• #8

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

 

Vote positif 0 Vote négatif

F

fifi

XLDnaute Occasionnel

• 13 Novembre 2006

• #9

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 ?

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 13 Novembre 2006

• #10

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

 

Vote positif 0 Vote négatif

F

fifi

XLDnaute Occasionnel

• 13 Novembre 2006

• #11

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

 

Vote positif 0 Vote négatif