IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

script pour renommer fichier


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    photographe
    Inscrit en
    Mars 2017
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : France, Yonne (Bourgogne)

    Informations professionnelles :
    Activité : photographe

    Informations forums :
    Inscription : Mars 2017
    Messages : 24
    Par défaut script pour renommer fichier
    Bonjour, je suis photographe et je souhaiterais savoir si il existe un script ou autre qui pourrait me renomrer une série de photo a partir dun tableur exel
    Ex
    Colonne 1 0001 à 0010 (numéro de photo)
    Colonne 2 intitulé Des photos
    Et ainsi de suite
    Merci par avance

  2. #2
    Expert confirmé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2013
    Messages
    3 609
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Alimentation

    Informations forums :
    Inscription : Mai 2013
    Messages : 3 609
    Par défaut
    Bonjour,

    Oui, ça se fait
    Si tes noms originaux sont en colonne A avec leur extension et le nouveau nom en colonne B, tu peux faire un code comme ceci
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Sub Renommer()
        Dim Chemin As String
        Dim I As Long
     
        Chemin = "C:\"  ' Change le chemin au besoin - Attention au "\"
        For I = 1 To 10
            Name Chemin & Range("A" & I) As Chemin & Range("B" & I)
        Next
    End Sub

  3. #3
    Membre averti
    Homme Profil pro
    photographe
    Inscrit en
    Mars 2017
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : France, Yonne (Bourgogne)

    Informations professionnelles :
    Activité : photographe

    Informations forums :
    Inscription : Mars 2017
    Messages : 24
    Par défaut merci
    Merci pour cette aide, j'aurai une seconde requête si ce n'ai pas trop demandée,
    Comment fait on pour mettre dans la colonne avec les nom originaux de photo
    De mettre dans une cellules de tel a tel photos?

  4. #4
    Expert confirmé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2013
    Messages
    3 609
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Alimentation

    Informations forums :
    Inscription : Mai 2013
    Messages : 3 609
    Par défaut
    Désolé, mais je comprends pas ta question.

    Si tu as 10 lignes, comme dans mon exemple, tu fais
    Si tu ne connais pas le nombre de lignes, tu fais
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    nbLignes = Cells(rows.count, "A").end(xlup).row
    For i = 1 to nbLignes
    ...

  5. #5
    Membre averti
    Homme Profil pro
    photographe
    Inscrit en
    Mars 2017
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : France, Yonne (Bourgogne)

    Informations professionnelles :
    Activité : photographe

    Informations forums :
    Inscription : Mars 2017
    Messages : 24
    Par défaut
    Oui je me suis mal exprimé en effet
    En faite j'ai de photo numéroter 0001,0002,0003...
    Je sais que les photo de 0001 0010 corresponde a "titre 1"
    Que celle de 0011 a 0015 a "titre 2"
    Et ainsi de suite...
    Et je cherche a faire : dans un classeur exel ou autre pour synchronisée mes nom de photo originaux avec mes titre mais sans mettre 10ligne avec colonne A 0001,0002...0010
    Colonne B titre 1, titre 1 et cela 10 fois
    Mais juste colonne A 0001 a 0010 //0011 a 0015...
    Colonne B titre 1//titre 2...
    Je ne sais pas si c'est plus clair
    En tout cas merci plur laide

  6. #6
    Expert confirmé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2013
    Messages
    3 609
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Alimentation

    Informations forums :
    Inscription : Mai 2013
    Messages : 3 609
    Par défaut
    si je comprends bien, tu pourrais inscrire 1 sur la ligne 1 avec un nom quelconque en colonne B1
    Sur la ligne 2, tu pourrais mettre 10 et un autre mot en colonne B, etc...

    La macro pourrait renommer les fichiers 1 à 9 avec le 1er nom, 10 à x avec le 2e nom, etc...

    Si c'est bien ça, comment se nommeraient les fichiers au final ?
    Disons qu'on part de 0001 et en B, tu écris Plage
    Est-ce que le résultat serait Plage0001.jpg ou Plage1.bmp ?

    Si tu avais un exemple concret, ça simplifierait...
    Est-ce que toutes les photos sont dans le même répertoire (sans sous-répertoire) ?

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 7
    Dernier message: 09/01/2019, 21h23
  2. Script pour renommer des fichiers
    Par schranz dans le forum Shell et commandes GNU
    Réponses: 15
    Dernier message: 15/09/2015, 19h56
  3. [Batch] Script pour renommer un ensemble de fichiers.
    Par SiKhounet dans le forum Scripts/Batch
    Réponses: 6
    Dernier message: 01/05/2014, 16h50
  4. Aide pour renommer fichiers avec .bat
    Par bobsapp dans le forum Windows
    Réponses: 6
    Dernier message: 21/03/2007, 13h11
  5. script pour parsing fichier xml
    Par Melvine dans le forum Modules
    Réponses: 4
    Dernier message: 06/10/2006, 18h47

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo