Sauve et renommer fichier pdf via une macro

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...

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.

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.

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.

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

Une petite question

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

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.

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.

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.

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.

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.