sauve et renommer fichier pdf via une macro Fermé

Question

Bonjour,

j'aimerais renommer plus de 400 fichier pdf via une macro

je voudrait les renommer par rapport à 2 variable inscrite dans mon classeur excel

pour l'instant, un fichier porte le nom "\1234_docu.pdf"
et je voudrait tous les renommé "\1234_document.pdf"

1234 et document étant différentes pour les 400 fichiers

Qu'en penser vous??

merci

Ivan-hoe · Answer

Bonjour, 
je penser que c'est réalisable. 
Comment tes données sont-elles organisées dans ton fichier Excel ? Y a-t-il une correspondance entre l'ancien et le nouveau nom ? Tous tes .pdf sont-ils dans un même dossier ? 
D'ores et déjà, tu peux bouquiner l'aide VBA concernant la fonction Dir et l'instruction Name.
A suivre...

Ivan-hoe · Answer

Salut, 
c'est toi qui me diras si j'ai bien compris. 
Dans le code ci-dessous, 
- affecte à la variable Chemin le chemin d'accès du répertoire qui contient tes fichiers. 
- corrige les bornes des lignes à traiter (2 To 402)
- corrige les colonnes de AncienNom et NouveauNom (Colonnes A et B)
- je pars du principe que l'extension est contenue dans le nom du fichier. Si ce n'est pas le cas, il faudra les rajouter dans Dir et Name. 
Sub Ed()
    Dim Chemin As String, Fichier As String, Ligne As Integer
    Dim AncienNom As String, NouveauNom As String
    
    Chemin = "C:\Dossier1\Dossier2\DossierX\"
    
    For Ligne = 2 To 402
        AncienNom = Range("A" & Ligne).Value
        NouveauNom = Range("B" & Ligne).Value
        Fichier = Dir(Chemin & AncienNom)
        If Fichier = Empty Then
            MsgBox "le fichier " & AncienNom & " n'a pas été trouvé"
        Else
            Name Fichier As NouveauNom
        End If
    Next Ligne
End Sub
Il est évident que tu testeras d'abord ce code sur des copies de fichiers. 
I.

Ivan-hoe · Answer

Est-ce que l'indicatif du fichier est toujours composé de 4 chiffres ? 
Si oui, corrige les lignes suivantes : 
AncienNom = Left(Range("A" & Ligne).Value, 4)
NouveauNom = Range("A" & Ligne).Value
Fichier = Dir(Chemin & AncienNom & "*")
Si non, est-ce que l'indicatif du fichier commence toujours le nom du fichier (dès le premier caractère) et est toujours suivi d'un tiret-bas ? Le \ ne fait partie du nom du fichier, si ? 
I.

Ivan-hoe · Answer

Ce que j'appelais indicatif, c'est ce que tu apelles code. 
Si le code ne change pas (ce qui est la cas, je crois), on peut donc faire la correpondance entre le nom du fichier actuel et son nouveau nom. 
As-tu essayé avec les corrections du post 5 ? Ne te laisse pas tromper, j'ai laissé la variable AncienNom, mais j'aurais pu la renommer Code, puisqu'en fait, elle contient le code (les 4 premiers chiffres) 

Dans ta liste Excel, as-tu une seule colonne avec le nom complet code_nom.pdf ? 
ou bien deux colonnes : code / nouveau nom, qu'il faut ensuite concaténer ? 
Pour qu'on parle bien de la même chose, peux-tu copier dans un prochain message quelques exemples de ce que contient exactement ton fichier excel ?
I.

Ivan-hoe · Answer

Du coup, la procédure corrigée ci-dessous devrait marcher ! 
Sub EdBis()
    Dim Chemin As String, Fichier As String, Ligne As Integer
    Dim Code As String, NouveauNom As String
    
    Chemin = "E:\DONNEES\MES DOCUMENTS\essai\"
    
    For Ligne = 3 To 403
        Code = Range("B" & Ligne).Value
        NouveauNom = Code & "_" & Range("C" & Ligne).Value & ".pdf"
        Fichier = Dir(Chemin & "*" & Code & "*")
        If Fichier = Empty Then
            MsgBox "le fichier " & Code & " n'a pas été trouvé"
        Else
            Name Fichier As NouveauNom
        End If
    Next Ligne
End Sub

Ed · Answer

Une petite question 

que faut t'il mettre à la place des étoiles, je ne comprend pas??

Ivan-hoe · Answer

Ca doit se jouer sur des détails, mais pour arrêter de tatonner et en finir rapidement, peux-tu me donner : 
- ton fichier Excel qui contient la liste des nouveaux noms (tu peux le mettre dans www.cijoint.fr)
- quelques uns des noms actuels des fichiers .pdf
Merci, 
I.

Ivan-hoe · Answer

Ed, 
à partir de ton fichier, j'ai exécuté le code que tu as (Sub EdBis) : chez moi, ça marche ! 
(il faut juste bien sûr modifier For Ligne = 2 To 21, puisque la ligne 1 contient les en-têtes)
Tu posais la question de l'utilité des étoiles dans
Fichier = Dir(Chemin & "*" & Code & "*")
Par exemple, pour la première ligne de ton tableau, ce code revient à 
Fichier = Dir("E:\DONNEES\MES DOCUMENTS\essai\*AIGU6C0537*")
c'est-à-dire rechercher un fichier qui contient AIGU6C0537 dans le répertoire indiqué. 

Vérifie bien que la séquence exacte CODE (colonne B) existe bien dans le nom actuel de tes fichiers. Pas de confusion entre AIGU et AIGUI ? Sinon, je ne sais pas quoi ajouter, ça devrait marcher. 
I.

Ivan-hoe · Answer

Rajoute 
ChDir Chemin
après la ligne
Chemin = "E:\DONNEES\MES DOCUMENTS\essai\"
si ça ne marche toujours pas, essaie avec ça (re-préciser le chemin d'accès)
Name Chemin & Fichier As NouveauNom
I.

Ivan-hoe · Answer

Ouf ! Enfin ! 
ChDir permet de modifier le répertoire courant. 
Dans l'expression Name Fichier As NouveauNom, la variable Fichier ne contient que le nom du fichier, pas son chemin d'accès. 
Donc, on allait chercher le fichier Fichier dans un répertoire par défaut qui n'était pas le bon. Du coup, le programme ne le trouvait pas à cet endroit. 
Avec ChDir(Chemin), on précise que d'un bout à l'autre du programme, le répertoire par défaut dont on parle (même si on ne le re-précise pas) est Chemin.
Tout est bien qui finit bien. 
I.

micherac · Answer

bonjour

je pense avoir le même problème.

En effet, j'ai à renommer 1200 fichier pdf!!!

en fait voilà j'ai des documents word qu'il faut convertir en .pdf en les nommant FO000100.pdf, FO000200.pdf, etc..... Ce travail a dèjà été fait les 1200 fichier on été transformé. Par contre mon patron a changé sa façon de les numéroter et il vodrait que le FO000100.pdf deviennet FO100100.pdf; le FO000200.pdf deveinne FO1002.pdf et ainsi de suite. J'ai fait un tableau excel avec l'ancien non et le nouveau nom que l'on doit donner aux fichier pdf mais sans marquer l'extension, donc dan mon tableau excel la colonne B contient l'ancien nom soit FO000100 et dans la colone C le nouveau FO100100.

Je ne sais pas par quoi commencer et ce qui serait le plus rapide. Est ce que j'efface tous les anciens .pdf et je les refait à partir de mes documents .doc ou bien je pars de l'ancien nom et je les renomme grace à une macro???

Le soucis c'est que je ne sais pas faire les macro!!!! Mon patron m'a montré un peu la semaine dernière mais c'est pas encore clair du tout.

Quelqu'un pourrait m'aider???

Merci d'avance.

Sauve et renommer fichier pdf via une macro

11 réponses

Discussions similaires