Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
Icône de la ressource

Renommage en masse de fichiers V2

crocrocro

XLDnaute Occasionnel
crocrocro a soumis une nouvelle ressource:

Renommage en masse de fichiers - Diverses fonctions de fonctions de renommage en masse des fichiers d'un répertoire


En savoir plus sur cette ressource...
 

crocrocro

XLDnaute Occasionnel
Bonjour,
ce message s'adresse à ceux qui ont déjà téléchargé le fichier :
En attendant la validation par le modérateur de la correction que j'ai effectuée lundi, le code VBA ci-dessous doit être copié dans le code VBA de la feuille Feuil24111111(Menu).
Je ne sais pour quelle raison (bug excel ?), ce code a été placé dans la version en cours sur l'objet Feuil2411111.
Sans cette correction, l'activation des boutons de la feuille Menu n'ont aucune action

VB:
Private Sub BoutonListeFic_Click()
    SelectionnerFichiers
End Sub

Private Sub BoutonNouveauxNoms_Click()
    NouveauxNoms
End Sub

Private Sub BoutonRenommer_Click()
    RenommerFichier
End Sub
 

Alml

XLDnaute Nouveau
Bonjour, je ne m'y connais pas du tout en macro mais j'ai vraiment besoin d'une solution afin de renommer des fichiers pdf en masse. Cependant je rencontre une erreur d'exécution "53" avec fichiers introuvables à chaque fois. Je ne comprend pas d'où vient l'erreur sachant que la macro arrive à bien récupérer mes fichiers d'un dossiers... si quelqu'un peut m'aider cela me serait vraiment utile
 

crocrocro

XLDnaute Occasionnel
Bonjour Alml,
difficile de pouvoir vous aider efficacement sans avoir plus de détail.
L'erreur 53 correspond à un fichier introuvable.
Je suppose que la ligne du code VBA qui génère l'erreur d'exécution est la suivante
VB:
Name ancienNomComplet As nouveauNomComplet
J'ai bien une piste :
Vous avez cliqué sur le bouton "Renommer les Fichiers Dans les Répertoires" puis éventuellement fait quelques modifications sur la feuille et cliqué à nouveau le bouton "Renommer les Fichiers Dans les Répertoires".
Si c'est le cas, c'est normal :
au 2ème clic, la macro va renommer des fichiers déjà renommés et ne les retrouvent donc pas.
Pour éviter cela, voir le mode opératoire Etape 2 de la feuille Mode Opératoire.
Sinon, merci de m'indiquer en détail tout le mode opératoire et éventuellement fournir le fichier au moment où se produit l'erreur.
 

michelf

XLDnaute Junior
Bonjour, je ne sais pas si c'est bien la place pour poser cette question ?
Voila, j'ai quelques centaines de fichiers vidéos et photos à renommer en vue d'un classement par date.
J'aimerais donc que tous mes fichiers commencent par date heure min sec genre: "yyyymmddhhmmss-img_1234.---".
J'ai essayé des petits logiciels type "renamer" mais ça ne fonctionne pas.
Y a-t-il moyen avec Excel d'extraire ces metadonnées" pour renommer mes fichiers comme désiré.
Merci de vote attention
 

crocrocro

XLDnaute Occasionnel
Je reviens sur ma réponse précédente :
j'ai supposé que vous souhaitiez indiquer comme date celle de la prise de vue de la photo.
Si c'est juste une date (la même pour l'ensemble des photos) c'est encore plus simple et peut être effectué en 1 étape avec mon fichier :
Sélectionner Préfixer avec pour Paramètre 1 : 20240517_185115_
Le résultat pour des fichiers nommés initialement image1.jpeg image2.jpeg :
20240517_185115_image1.jpeg
20240517_185115_image2.jpeg
etc...
 

crocrocro

XLDnaute Occasionnel
Nouvelle version (V2) disponible :
Dans cette version, une nouvelle fonction "Inclure une Propriété du Fichier" qui permet d'inclure dans le nom, une propriété du fichier (Date de création, de modification ... , pour les photos, date de prise de vue ..., pour les fichiers audio CD, Album, titre du morceau ...)
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…