Salut a toutes et tous,
Comment est il possible de renommer des photos contenue dans un dossiers,
qui lui est composer de sous dossiers avec des photos.
Car ces photos on été nommées par un logiciel de récupérations de photos,
et ces noms sont composés avec des caractères non-gérer pas les lecteurs
DVD.
Donc j'aimerais remplacer dans le nom des photos le " é " par le " e ",
car lors du déroulement des photos le titre s'affiche avec un " z " et
supprimer les chiffres devant.
Exemple, lors du test si une photo est trouvées avec comme nom "001 Ma
vallée", le remplacer par "Ma vallee".
J'espère être claire.
Merci, G'Claire
Salut a toutes et tous,
Comment est il possible de renommer des photos contenue dans un dossiers,
qui lui est composer de sous dossiers avec des photos.
Car ces photos on été nommées par un logiciel de récupérations de photos,
et ces noms sont composés avec des caractères non-gérer pas les lecteurs
DVD.
Donc j'aimerais remplacer dans le nom des photos le " é " par le " e ",
car lors du déroulement des photos le titre s'affiche avec un " z " et
supprimer les chiffres devant.
Exemple, lors du test si une photo est trouvées avec comme nom "001 Ma
vallée", le remplacer par "Ma vallee".
J'espère être claire.
Merci, G'Claire
Salut a toutes et tous,
Comment est il possible de renommer des photos contenue dans un dossiers,
qui lui est composer de sous dossiers avec des photos.
Car ces photos on été nommées par un logiciel de récupérations de photos,
et ces noms sont composés avec des caractères non-gérer pas les lecteurs
DVD.
Donc j'aimerais remplacer dans le nom des photos le " é " par le " e ",
car lors du déroulement des photos le titre s'affiche avec un " z " et
supprimer les chiffres devant.
Exemple, lors du test si une photo est trouvées avec comme nom "001 Ma
vallée", le remplacer par "Ma vallee".
J'espère être claire.
Merci, G'Claire
Bonsoir Jacques
Le hic, c'est que c'est un forum Excel. Nul doute qu'il y a aussi des
photographes, mais je me demande s'il ne serait pas plus opportun d'aller
voir sur un forum Windows.
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.
"Jacques" a écrit dans le message de news:
41f2b9ca$0$31824$Salut a toutes et tous,
Comment est il possible de renommer des photos contenue dans un dossiers,
qui lui est composer de sous dossiers avec des photos.
Car ces photos on été nommées par un logiciel de récupérations de photos,
et ces noms sont composés avec des caractères non-gérer pas les lecteurs
DVD.
Donc j'aimerais remplacer dans le nom des photos le " é " par le " e ",
car lors du déroulement des photos le titre s'affiche avec un " z " et
supprimer les chiffres devant.
Exemple, lors du test si une photo est trouvées avec comme nom "001 Ma
vallée", le remplacer par "Ma vallee".
J'espère être claire.
Merci, G'Claire
Bonsoir Jacques
Le hic, c'est que c'est un forum Excel. Nul doute qu'il y a aussi des
photographes, mais je me demande s'il ne serait pas plus opportun d'aller
voir sur un forum Windows.
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.
"Jacques" <jacques-zeziola@wanadoo.fr> a écrit dans le message de news:
41f2b9ca$0$31824$8fcfb975@news.wanadoo.fr...
Salut a toutes et tous,
Comment est il possible de renommer des photos contenue dans un dossiers,
qui lui est composer de sous dossiers avec des photos.
Car ces photos on été nommées par un logiciel de récupérations de photos,
et ces noms sont composés avec des caractères non-gérer pas les lecteurs
DVD.
Donc j'aimerais remplacer dans le nom des photos le " é " par le " e ",
car lors du déroulement des photos le titre s'affiche avec un " z " et
supprimer les chiffres devant.
Exemple, lors du test si une photo est trouvées avec comme nom "001 Ma
vallée", le remplacer par "Ma vallee".
J'espère être claire.
Merci, G'Claire
Bonsoir Jacques
Le hic, c'est que c'est un forum Excel. Nul doute qu'il y a aussi des
photographes, mais je me demande s'il ne serait pas plus opportun d'aller
voir sur un forum Windows.
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.
"Jacques" a écrit dans le message de news:
41f2b9ca$0$31824$Salut a toutes et tous,
Comment est il possible de renommer des photos contenue dans un dossiers,
qui lui est composer de sous dossiers avec des photos.
Car ces photos on été nommées par un logiciel de récupérations de photos,
et ces noms sont composés avec des caractères non-gérer pas les lecteurs
DVD.
Donc j'aimerais remplacer dans le nom des photos le " é " par le " e ",
car lors du déroulement des photos le titre s'affiche avec un " z " et
supprimer les chiffres devant.
Exemple, lors du test si une photo est trouvées avec comme nom "001 Ma
vallée", le remplacer par "Ma vallee".
J'espère être claire.
Merci, G'Claire
Salut a toutes et tous,
Comment est il possible de renommer des photos contenue dans un dossiers,
qui lui est composer de sous dossiers avec des photos.
Car ces photos on été nommées par un logiciel de récupérations de photos,
et ces noms sont composés avec des caractères non-gérer pas les lecteurs
DVD.
Donc j'aimerais remplacer dans le nom des photos le " é " par le " e ",
car lors du déroulement des photos le titre s'affiche avec un " z " et
supprimer les chiffres devant.
Exemple, lors du test si une photo est trouvées avec comme nom "001 Ma
vallée", le remplacer par "Ma vallee".
J'espère être claire.
Merci, G'Claire
Salut a toutes et tous,
Comment est il possible de renommer des photos contenue dans un dossiers,
qui lui est composer de sous dossiers avec des photos.
Car ces photos on été nommées par un logiciel de récupérations de photos,
et ces noms sont composés avec des caractères non-gérer pas les lecteurs
DVD.
Donc j'aimerais remplacer dans le nom des photos le " é " par le " e ",
car lors du déroulement des photos le titre s'affiche avec un " z " et
supprimer les chiffres devant.
Exemple, lors du test si une photo est trouvées avec comme nom "001 Ma
vallée", le remplacer par "Ma vallee".
J'espère être claire.
Merci, G'Claire
Salut a toutes et tous,
Comment est il possible de renommer des photos contenue dans un dossiers,
qui lui est composer de sous dossiers avec des photos.
Car ces photos on été nommées par un logiciel de récupérations de photos,
et ces noms sont composés avec des caractères non-gérer pas les lecteurs
DVD.
Donc j'aimerais remplacer dans le nom des photos le " é " par le " e ",
car lors du déroulement des photos le titre s'affiche avec un " z " et
supprimer les chiffres devant.
Exemple, lors du test si une photo est trouvées avec comme nom "001 Ma
vallée", le remplacer par "Ma vallee".
J'espère être claire.
Merci, G'Claire
Bonsoir,
L'ami Jacquouille est allé un peu vite en besogne en t'envoyant paître sur
le forum Windows.
On peut facilement renommer des fichiers sans passer par l'explorateur.
Le code ci-dessous est à adapter avec par exemple un filtre sur les noms,
les extensions de fichiers, les autres caractères accentués,etc....
Cordialement
Robert Dezan
Sub test_rename_fichiers_par_excel() Dim fic() ' liste des
fichiers à l'aide du File Object System (FSO) Set fso =
CreateObject("Scripting.FileSystemObject") Chemin = "G:aaa-test"
Set folder = fso.GetFolder(Chemin) Set collfic = folder.Files
tempname = "xxxxx.xxx" nfic = collfic.Count ReDim fic(nfic + 1)
n = 0 ' tableau des fichiers du répertoire "Chemin" For Each
curfic In collfic n = n + 1 fic(n) = curfic.Name
Next ' ajout d'un en fin de Chemin If Right(Chemin, 1) <> ""
Then Chemin = Chemin & "" n = 0 For i = 1 To nfic
oldname = fic(i) Set curfic = fso.GetFile(Chemin & oldname)
lowname = LCase(oldname) ' ----- actions sur le
nouveau nom de fichier newname = Right(oldname, Len(oldname) - 5)
' pour enlever les 5 caractères de tête newname =
Replace(newname, "é", "e", 1) newname = Replace(newname, "è",
"e", 1) ' renommer le fichier avec newname
If newname <> lowname Then n = n + 1
newfic = Chemin & newname If fso.FileExists(newfic) Then
fso.DeleteFile newfic, True End If
curfic.Name = tempname curfic.Name = newname End
If Next MsgBox n & " fichiers renommés", vbOKOnly, "Renommage de
fichiers dans " & CurDirEnd Sub"Jacques" a
écrit dans le message de news: 41f2b9ca$0$31824$Salut a toutes et tous,
Comment est il possible de renommer des photos contenue dans un dossiers,
qui lui est composer de sous dossiers avec des photos.
Car ces photos on été nommées par un logiciel de récupérations de photos,
et ces noms sont composés avec des caractères non-gérer pas les lecteurs
DVD.
Donc j'aimerais remplacer dans le nom des photos le " é " par le " e ",
car lors du déroulement des photos le titre s'affiche avec un " z " et
supprimer les chiffres devant.
Exemple, lors du test si une photo est trouvées avec comme nom "001 Ma
vallée", le remplacer par "Ma vallee".
J'espère être claire.
Merci, G'Claire
Bonsoir,
L'ami Jacquouille est allé un peu vite en besogne en t'envoyant paître sur
le forum Windows.
On peut facilement renommer des fichiers sans passer par l'explorateur.
Le code ci-dessous est à adapter avec par exemple un filtre sur les noms,
les extensions de fichiers, les autres caractères accentués,etc....
Cordialement
Robert Dezan
Sub test_rename_fichiers_par_excel() Dim fic() ' liste des
fichiers à l'aide du File Object System (FSO) Set fso =
CreateObject("Scripting.FileSystemObject") Chemin = "G:aaa-test"
Set folder = fso.GetFolder(Chemin) Set collfic = folder.Files
tempname = "xxxxx.xxx" nfic = collfic.Count ReDim fic(nfic + 1)
n = 0 ' tableau des fichiers du répertoire "Chemin" For Each
curfic In collfic n = n + 1 fic(n) = curfic.Name
Next ' ajout d'un en fin de Chemin If Right(Chemin, 1) <> ""
Then Chemin = Chemin & "" n = 0 For i = 1 To nfic
oldname = fic(i) Set curfic = fso.GetFile(Chemin & oldname)
lowname = LCase(oldname) ' ----- actions sur le
nouveau nom de fichier newname = Right(oldname, Len(oldname) - 5)
' pour enlever les 5 caractères de tête newname =
Replace(newname, "é", "e", 1) newname = Replace(newname, "è",
"e", 1) ' renommer le fichier avec newname
If newname <> lowname Then n = n + 1
newfic = Chemin & newname If fso.FileExists(newfic) Then
fso.DeleteFile newfic, True End If
curfic.Name = tempname curfic.Name = newname End
If Next MsgBox n & " fichiers renommés", vbOKOnly, "Renommage de
fichiers dans " & CurDirEnd Sub"Jacques" <jacques-zeziola@wanadoo.fr> a
écrit dans le message de news: 41f2b9ca$0$31824$8fcfb975@news.wanadoo.fr...
Salut a toutes et tous,
Comment est il possible de renommer des photos contenue dans un dossiers,
qui lui est composer de sous dossiers avec des photos.
Car ces photos on été nommées par un logiciel de récupérations de photos,
et ces noms sont composés avec des caractères non-gérer pas les lecteurs
DVD.
Donc j'aimerais remplacer dans le nom des photos le " é " par le " e ",
car lors du déroulement des photos le titre s'affiche avec un " z " et
supprimer les chiffres devant.
Exemple, lors du test si une photo est trouvées avec comme nom "001 Ma
vallée", le remplacer par "Ma vallee".
J'espère être claire.
Merci, G'Claire
Bonsoir,
L'ami Jacquouille est allé un peu vite en besogne en t'envoyant paître sur
le forum Windows.
On peut facilement renommer des fichiers sans passer par l'explorateur.
Le code ci-dessous est à adapter avec par exemple un filtre sur les noms,
les extensions de fichiers, les autres caractères accentués,etc....
Cordialement
Robert Dezan
Sub test_rename_fichiers_par_excel() Dim fic() ' liste des
fichiers à l'aide du File Object System (FSO) Set fso =
CreateObject("Scripting.FileSystemObject") Chemin = "G:aaa-test"
Set folder = fso.GetFolder(Chemin) Set collfic = folder.Files
tempname = "xxxxx.xxx" nfic = collfic.Count ReDim fic(nfic + 1)
n = 0 ' tableau des fichiers du répertoire "Chemin" For Each
curfic In collfic n = n + 1 fic(n) = curfic.Name
Next ' ajout d'un en fin de Chemin If Right(Chemin, 1) <> ""
Then Chemin = Chemin & "" n = 0 For i = 1 To nfic
oldname = fic(i) Set curfic = fso.GetFile(Chemin & oldname)
lowname = LCase(oldname) ' ----- actions sur le
nouveau nom de fichier newname = Right(oldname, Len(oldname) - 5)
' pour enlever les 5 caractères de tête newname =
Replace(newname, "é", "e", 1) newname = Replace(newname, "è",
"e", 1) ' renommer le fichier avec newname
If newname <> lowname Then n = n + 1
newfic = Chemin & newname If fso.FileExists(newfic) Then
fso.DeleteFile newfic, True End If
curfic.Name = tempname curfic.Name = newname End
If Next MsgBox n & " fichiers renommés", vbOKOnly, "Renommage de
fichiers dans " & CurDirEnd Sub"Jacques" a
écrit dans le message de news: 41f2b9ca$0$31824$Salut a toutes et tous,
Comment est il possible de renommer des photos contenue dans un dossiers,
qui lui est composer de sous dossiers avec des photos.
Car ces photos on été nommées par un logiciel de récupérations de photos,
et ces noms sont composés avec des caractères non-gérer pas les lecteurs
DVD.
Donc j'aimerais remplacer dans le nom des photos le " é " par le " e ",
car lors du déroulement des photos le titre s'affiche avec un " z " et
supprimer les chiffres devant.
Exemple, lors du test si une photo est trouvées avec comme nom "001 Ma
vallée", le remplacer par "Ma vallee".
J'espère être claire.
Merci, G'Claire
Herdet, le forum
Je ne dirait qu'une chose (Heu deux surement, lol).
Splendide et merci.
Une question sans vouloir abuser, es-ce qu'il serait possible de tenir
compte que le nombre devant peu avoir 1,2,3,4,5 chiffres :
Exemple :
1 Ma belle mère
10 Mon beau père
100 Mon beau frère
1000 Mon frère
10000 La galère.
Merci grandement de ton aide.
G'ClaireBonsoir,
L'ami Jacquouille est allé un peu vite en besogne en t'envoyant paître sur
le forum Windows.
On peut facilement renommer des fichiers sans passer par l'explorateur.
Le code ci-dessous est à adapter avec par exemple un filtre sur les noms,
les extensions de fichiers, les autres caractères accentués,etc....
Cordialement
Robert Dezan
Sub test_rename_fichiers_par_excel() Dim fic() ' liste des
fichiers à l'aide du File Object System (FSO) Set fso =
CreateObject("Scripting.FileSystemObject") Chemin = "G:aaa-test"
Set folder = fso.GetFolder(Chemin) Set collfic = folder.Files
tempname = "xxxxx.xxx" nfic = collfic.Count ReDim fic(nfic + 1)
n = 0 ' tableau des fichiers du répertoire "Chemin" For Each
curfic In collfic n = n + 1 fic(n) = curfic.Name
Next ' ajout d'un en fin de Chemin If Right(Chemin, 1) <> ""
Then Chemin = Chemin & "" n = 0 For i = 1 To nfic
oldname = fic(i) Set curfic = fso.GetFile(Chemin & oldname)
lowname = LCase(oldname) ' ----- actions sur le
nouveau nom de fichier newname = Right(oldname, Len(oldname) - 5)
' pour enlever les 5 caractères de tête newname =
Replace(newname, "é", "e", 1) newname = Replace(newname, "è",
"e", 1) ' renommer le fichier avec newname
If newname <> lowname Then n = n + 1
newfic = Chemin & newname If fso.FileExists(newfic) Then
fso.DeleteFile newfic, True End If
curfic.Name = tempname curfic.Name = newname End
If Next MsgBox n & " fichiers renommés", vbOKOnly, "Renommage de
fichiers dans " & CurDirEnd Sub"Jacques" a
écrit dans le message de news: 41f2b9ca$0$31824$Salut a toutes et tous,
Comment est il possible de renommer des photos contenue dans un dossiers,
qui lui est composer de sous dossiers avec des photos.
Car ces photos on été nommées par un logiciel de récupérations de photos,
et ces noms sont composés avec des caractères non-gérer pas les lecteurs
DVD.
Donc j'aimerais remplacer dans le nom des photos le " é " par le " e ",
car lors du déroulement des photos le titre s'affiche avec un " z " et
supprimer les chiffres devant.
Exemple, lors du test si une photo est trouvées avec comme nom "001 Ma
vallée", le remplacer par "Ma vallee".
J'espère être claire.
Merci, G'Claire
Herdet, le forum
Je ne dirait qu'une chose (Heu deux surement, lol).
Splendide et merci.
Une question sans vouloir abuser, es-ce qu'il serait possible de tenir
compte que le nombre devant peu avoir 1,2,3,4,5 chiffres :
Exemple :
1 Ma belle mère
10 Mon beau père
100 Mon beau frère
1000 Mon frère
10000 La galère.
Merci grandement de ton aide.
G'Claire
Bonsoir,
L'ami Jacquouille est allé un peu vite en besogne en t'envoyant paître sur
le forum Windows.
On peut facilement renommer des fichiers sans passer par l'explorateur.
Le code ci-dessous est à adapter avec par exemple un filtre sur les noms,
les extensions de fichiers, les autres caractères accentués,etc....
Cordialement
Robert Dezan
Sub test_rename_fichiers_par_excel() Dim fic() ' liste des
fichiers à l'aide du File Object System (FSO) Set fso =
CreateObject("Scripting.FileSystemObject") Chemin = "G:aaa-test"
Set folder = fso.GetFolder(Chemin) Set collfic = folder.Files
tempname = "xxxxx.xxx" nfic = collfic.Count ReDim fic(nfic + 1)
n = 0 ' tableau des fichiers du répertoire "Chemin" For Each
curfic In collfic n = n + 1 fic(n) = curfic.Name
Next ' ajout d'un en fin de Chemin If Right(Chemin, 1) <> ""
Then Chemin = Chemin & "" n = 0 For i = 1 To nfic
oldname = fic(i) Set curfic = fso.GetFile(Chemin & oldname)
lowname = LCase(oldname) ' ----- actions sur le
nouveau nom de fichier newname = Right(oldname, Len(oldname) - 5)
' pour enlever les 5 caractères de tête newname =
Replace(newname, "é", "e", 1) newname = Replace(newname, "è",
"e", 1) ' renommer le fichier avec newname
If newname <> lowname Then n = n + 1
newfic = Chemin & newname If fso.FileExists(newfic) Then
fso.DeleteFile newfic, True End If
curfic.Name = tempname curfic.Name = newname End
If Next MsgBox n & " fichiers renommés", vbOKOnly, "Renommage de
fichiers dans " & CurDirEnd Sub"Jacques" <jacques-zeziola@wanadoo.fr> a
écrit dans le message de news: 41f2b9ca$0$31824$8fcfb975@news.wanadoo.fr...
Salut a toutes et tous,
Comment est il possible de renommer des photos contenue dans un dossiers,
qui lui est composer de sous dossiers avec des photos.
Car ces photos on été nommées par un logiciel de récupérations de photos,
et ces noms sont composés avec des caractères non-gérer pas les lecteurs
DVD.
Donc j'aimerais remplacer dans le nom des photos le " é " par le " e ",
car lors du déroulement des photos le titre s'affiche avec un " z " et
supprimer les chiffres devant.
Exemple, lors du test si une photo est trouvées avec comme nom "001 Ma
vallée", le remplacer par "Ma vallee".
J'espère être claire.
Merci, G'Claire
Herdet, le forum
Je ne dirait qu'une chose (Heu deux surement, lol).
Splendide et merci.
Une question sans vouloir abuser, es-ce qu'il serait possible de tenir
compte que le nombre devant peu avoir 1,2,3,4,5 chiffres :
Exemple :
1 Ma belle mère
10 Mon beau père
100 Mon beau frère
1000 Mon frère
10000 La galère.
Merci grandement de ton aide.
G'ClaireBonsoir,
L'ami Jacquouille est allé un peu vite en besogne en t'envoyant paître sur
le forum Windows.
On peut facilement renommer des fichiers sans passer par l'explorateur.
Le code ci-dessous est à adapter avec par exemple un filtre sur les noms,
les extensions de fichiers, les autres caractères accentués,etc....
Cordialement
Robert Dezan
Sub test_rename_fichiers_par_excel() Dim fic() ' liste des
fichiers à l'aide du File Object System (FSO) Set fso =
CreateObject("Scripting.FileSystemObject") Chemin = "G:aaa-test"
Set folder = fso.GetFolder(Chemin) Set collfic = folder.Files
tempname = "xxxxx.xxx" nfic = collfic.Count ReDim fic(nfic + 1)
n = 0 ' tableau des fichiers du répertoire "Chemin" For Each
curfic In collfic n = n + 1 fic(n) = curfic.Name
Next ' ajout d'un en fin de Chemin If Right(Chemin, 1) <> ""
Then Chemin = Chemin & "" n = 0 For i = 1 To nfic
oldname = fic(i) Set curfic = fso.GetFile(Chemin & oldname)
lowname = LCase(oldname) ' ----- actions sur le
nouveau nom de fichier newname = Right(oldname, Len(oldname) - 5)
' pour enlever les 5 caractères de tête newname =
Replace(newname, "é", "e", 1) newname = Replace(newname, "è",
"e", 1) ' renommer le fichier avec newname
If newname <> lowname Then n = n + 1
newfic = Chemin & newname If fso.FileExists(newfic) Then
fso.DeleteFile newfic, True End If
curfic.Name = tempname curfic.Name = newname End
If Next MsgBox n & " fichiers renommés", vbOKOnly, "Renommage de
fichiers dans " & CurDirEnd Sub"Jacques" a
écrit dans le message de news: 41f2b9ca$0$31824$Salut a toutes et tous,
Comment est il possible de renommer des photos contenue dans un dossiers,
qui lui est composer de sous dossiers avec des photos.
Car ces photos on été nommées par un logiciel de récupérations de photos,
et ces noms sont composés avec des caractères non-gérer pas les lecteurs
DVD.
Donc j'aimerais remplacer dans le nom des photos le " é " par le " e ",
car lors du déroulement des photos le titre s'affiche avec un " z " et
supprimer les chiffres devant.
Exemple, lors du test si une photo est trouvées avec comme nom "001 Ma
vallée", le remplacer par "Ma vallee".
J'espère être claire.
Merci, G'Claire
