Je repost car j'ai peu que mon post se soit égaré.
Comme le principe que m'avait fait Herdet (renommer photo suivant critères)
et je l'en remercie grandement car
cela fonctionne trés bien :
Fils :
http://www.microsoft.com/office/community/fr-fr/default.mspx?query=suite+%3A+renommer&dg=microsoft.public.fr.excel&cat=fr-fr-produitsbureautiques&lang=fr&cr=FR&pt=&catlist=98CDBDA2-F377-4BD2-A435-17FA7B4CF9E9&dglist=&ptlist=&exp=&sloc=fr-fr
J'aimerais faire de même pour des fichier audios au format MP3.
1) Ce que j'aimerais c'est qu'a chaque fois qu'il y a certains séparateurs
dans le nom du fichier que cela me mette la lettre qui est aprés le
séparateur en majuscule.
Voici la liste des séparateurs :
"Tiret du 6" "Apostrophe" " Espace" " La virgule"
Exemple :
Titre : Troisième sexe
Titre renommé : Troisème Sexe
Titre : C'est la même chanson
Titre renommé : C'Est La Même Chansons
2) Est pouvoir faire l'effet inverse.
C'est a dire pour les même séparateurs, Mettre la lettre qui est aprés le
séparateur en minuscule.
Les deux cas le principe est d'avoir comme chemin d'acces : Disque dur :
Dossier/Sous-Dossier/sous-dosierXXX
Il peu y avoirs plusieurs sous dossiers dans un même sous dossiers etc...
Voila j'espère avoir été explicite et vous remercie de toute l'aide que vous
m'apporté, G'Claire
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour Jacques,
Voici un début quant à la façon de t'y prendre :
Cette procédure demande une version excel 2000 à cause de la fonction Split dans la fonction personnalisée.
Tu copies ceci dans un module standard.
P.S. Il est utile de faire une copie des données !...
'-------------------------------------- Sub RenommerFichierMusique()
Dim Rep As String, N As String Dim Nb As Integer, A As Integer
'répertoire des fichiers. Rep = "C:Musique"
With Application.FileSearch .NewSearch .LookIn = "C:My Shared Folder" .SearchSubFolders = False .Filename = "*.MP3" 'extension des fichiers If .Execute > 0 Then Nb = .FoundFiles.Count For A = 1 To Nb N = .FoundFiles(A) Name N As Rep & NomFichier(.FoundFiles(A)) Next End If End With
End Sub
'------------------------------------ Function NomFichier(PathFile) 'Sur une seule ligne... NomFichier = WorksheetFunction.Proper(Split(PathFile, "")(UBound(Split(PathFile, ""))))
End Function '------------------------------------
Salutations!
"Jacques" a écrit dans le message de news: 420c9bf2$0$17259$ Salut a toutes et tous
Je repost car j'ai peu que mon post se soit égaré.
Comme le principe que m'avait fait Herdet (renommer photo suivant critères) et je l'en remercie grandement car cela fonctionne trés bien : Fils : http://www.microsoft.com/office/community/fr-fr/default.mspx?query=suite+%3A+renommer&dg=microsoft.public.fr.excel&cat=fr-fr-produitsbureautiques&lang=fr&cr=FR&pt=&catlistCDBDA2-F377-4BD2-A435-17FA7B4CF9E9&dglist=&ptlist=&exp=&sloc=fr-fr
J'aimerais faire de même pour des fichier audios au format MP3.
1) Ce que j'aimerais c'est qu'a chaque fois qu'il y a certains séparateurs dans le nom du fichier que cela me mette la lettre qui est aprés le séparateur en majuscule.
Voici la liste des séparateurs : "Tiret du 6" "Apostrophe" " Espace" " La virgule"
Exemple :
Titre : Troisième sexe Titre renommé : Troisème Sexe
Titre : C'est la même chanson Titre renommé : C'Est La Même Chansons
2) Est pouvoir faire l'effet inverse.
C'est a dire pour les même séparateurs, Mettre la lettre qui est aprés le séparateur en minuscule.
Les deux cas le principe est d'avoir comme chemin d'acces : Disque dur : Dossier/Sous-Dossier/sous-dosierXXX
Il peu y avoirs plusieurs sous dossiers dans un même sous dossiers etc...
Voila j'espère avoir été explicite et vous remercie de toute l'aide que vous m'apporté, G'Claire
Bonjour Jacques,
Voici un début quant à la façon de t'y prendre :
Cette procédure demande une version excel 2000 à cause de la fonction Split dans la fonction personnalisée.
Tu copies ceci dans un module standard.
P.S. Il est utile de faire une copie des données !...
'--------------------------------------
Sub RenommerFichierMusique()
Dim Rep As String, N As String
Dim Nb As Integer, A As Integer
'répertoire des fichiers.
Rep = "C:Musique"
With Application.FileSearch
.NewSearch
.LookIn = "C:My Shared Folder"
.SearchSubFolders = False
.Filename = "*.MP3" 'extension des fichiers
If .Execute > 0 Then
Nb = .FoundFiles.Count
For A = 1 To Nb
N = .FoundFiles(A)
Name N As Rep & NomFichier(.FoundFiles(A))
Next
End If
End With
End Sub
'------------------------------------
Function NomFichier(PathFile)
'Sur une seule ligne...
NomFichier = WorksheetFunction.Proper(Split(PathFile, "")(UBound(Split(PathFile, ""))))
End Function
'------------------------------------
Salutations!
"Jacques" <jacques-zeziola@wanadoo.fr> a écrit dans le message de news: 420c9bf2$0$17259$8fcfb975@news.wanadoo.fr...
Salut a toutes et tous
Je repost car j'ai peu que mon post se soit égaré.
Comme le principe que m'avait fait Herdet (renommer photo suivant critères)
et je l'en remercie grandement car
cela fonctionne trés bien :
Fils :
http://www.microsoft.com/office/community/fr-fr/default.mspx?query=suite+%3A+renommer&dg=microsoft.public.fr.excel&cat=fr-fr-produitsbureautiques&lang=fr&cr=FR&pt=&catlistCDBDA2-F377-4BD2-A435-17FA7B4CF9E9&dglist=&ptlist=&exp=&sloc=fr-fr
J'aimerais faire de même pour des fichier audios au format MP3.
1) Ce que j'aimerais c'est qu'a chaque fois qu'il y a certains séparateurs
dans le nom du fichier que cela me mette la lettre qui est aprés le
séparateur en majuscule.
Voici la liste des séparateurs :
"Tiret du 6" "Apostrophe" " Espace" " La virgule"
Exemple :
Titre : Troisième sexe
Titre renommé : Troisème Sexe
Titre : C'est la même chanson
Titre renommé : C'Est La Même Chansons
2) Est pouvoir faire l'effet inverse.
C'est a dire pour les même séparateurs, Mettre la lettre qui est aprés le
séparateur en minuscule.
Les deux cas le principe est d'avoir comme chemin d'acces : Disque dur :
Dossier/Sous-Dossier/sous-dosierXXX
Il peu y avoirs plusieurs sous dossiers dans un même sous dossiers etc...
Voila j'espère avoir été explicite et vous remercie de toute l'aide que vous
m'apporté, G'Claire
Cette procédure demande une version excel 2000 à cause de la fonction Split dans la fonction personnalisée.
Tu copies ceci dans un module standard.
P.S. Il est utile de faire une copie des données !...
'-------------------------------------- Sub RenommerFichierMusique()
Dim Rep As String, N As String Dim Nb As Integer, A As Integer
'répertoire des fichiers. Rep = "C:Musique"
With Application.FileSearch .NewSearch .LookIn = "C:My Shared Folder" .SearchSubFolders = False .Filename = "*.MP3" 'extension des fichiers If .Execute > 0 Then Nb = .FoundFiles.Count For A = 1 To Nb N = .FoundFiles(A) Name N As Rep & NomFichier(.FoundFiles(A)) Next End If End With
End Sub
'------------------------------------ Function NomFichier(PathFile) 'Sur une seule ligne... NomFichier = WorksheetFunction.Proper(Split(PathFile, "")(UBound(Split(PathFile, ""))))
End Function '------------------------------------
Salutations!
"Jacques" a écrit dans le message de news: 420c9bf2$0$17259$ Salut a toutes et tous
Je repost car j'ai peu que mon post se soit égaré.
Comme le principe que m'avait fait Herdet (renommer photo suivant critères) et je l'en remercie grandement car cela fonctionne trés bien : Fils : http://www.microsoft.com/office/community/fr-fr/default.mspx?query=suite+%3A+renommer&dg=microsoft.public.fr.excel&cat=fr-fr-produitsbureautiques&lang=fr&cr=FR&pt=&catlistCDBDA2-F377-4BD2-A435-17FA7B4CF9E9&dglist=&ptlist=&exp=&sloc=fr-fr
J'aimerais faire de même pour des fichier audios au format MP3.
1) Ce que j'aimerais c'est qu'a chaque fois qu'il y a certains séparateurs dans le nom du fichier que cela me mette la lettre qui est aprés le séparateur en majuscule.
Voici la liste des séparateurs : "Tiret du 6" "Apostrophe" " Espace" " La virgule"
Exemple :
Titre : Troisième sexe Titre renommé : Troisème Sexe
Titre : C'est la même chanson Titre renommé : C'Est La Même Chansons
2) Est pouvoir faire l'effet inverse.
C'est a dire pour les même séparateurs, Mettre la lettre qui est aprés le séparateur en minuscule.
Les deux cas le principe est d'avoir comme chemin d'acces : Disque dur : Dossier/Sous-Dossier/sous-dosierXXX
Il peu y avoirs plusieurs sous dossiers dans un même sous dossiers etc...
Voila j'espère avoir été explicite et vous remercie de toute l'aide que vous m'apporté, G'Claire
