Macro pour renommage en masse
Résolu
Memo133
Messages postés
7
Statut
Membre
-
Memo133 Messages postés 7 Statut Membre -
Memo133 Messages postés 7 Statut Membre -
Bonjour à tous,
J'essaie depuis trois jours de créer une macro excel de renommage de fichier afin de renommer des pdf en masse. Mais voilà, je ne parviens pas à la faire fonctionner. J'ai écrit cette macro ci-après :
Sub Renommer()
On Error Resume Next
Dim i As Integer
i = 1
While Cells(i, 1) <> 0
i = i + 1
Cells(i, 1).Select
Name "C:\Users\Documents\Financier\2018\Procedure_Rib\" & Range("A" & i) As "C:\Users\Documents\Financier\2018\Procedure_Rib\" & "\" & Range("B" & i)
Wend
Range("A2").Select
End Sub
et les docs sont dans le dossier "Procedure_Rib". Est-ce que quelqu'un pourrait m'expliquer ce que j'oublie ou ce que je fais mal?
Par avance un grand merci!
J'essaie depuis trois jours de créer une macro excel de renommage de fichier afin de renommer des pdf en masse. Mais voilà, je ne parviens pas à la faire fonctionner. J'ai écrit cette macro ci-après :
Sub Renommer()
On Error Resume Next
Dim i As Integer
i = 1
While Cells(i, 1) <> 0
i = i + 1
Cells(i, 1).Select
Name "C:\Users\Documents\Financier\2018\Procedure_Rib\" & Range("A" & i) As "C:\Users\Documents\Financier\2018\Procedure_Rib\" & "\" & Range("B" & i)
Wend
Range("A2").Select
End Sub
et les docs sont dans le dossier "Procedure_Rib". Est-ce que quelqu'un pourrait m'expliquer ce que j'oublie ou ce que je fais mal?
Par avance un grand merci!
A voir également:
- Macro pour renommage en masse
- Renommer des fichiers en masse - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Renommage de fichier - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
1 réponse
Bonjour,
Essaies :
Essaies :
Option Explicit
Sub Renommer()
Dim c As String
Dim f As String
Dim i As Integer
c = "C:\Users\Documents\Financier\2018\Procedure_Rib\"
i = 1
With ActiveSheet
Do While .Cells(i, "A").Value <> ""
f = c & .Cells(i, "A").Value
If Dir(f) <> "" Then
Name f As c & .Cells(i, "B").Value
End If
i = i + 1
Loop
End With
End Sub
Une petite amélioration :
Option Explicit Sub Renommer() Dim c As String Dim f As String Dim i As Integer Dim m As String c = "C:\Users\Documents\Financier\2018\Procedure_Rib\" i = 1 With ActiveSheet Do While .Cells(i, "A").Value <> "" f = c & .Cells(i, "A").Value If Dir(f) <> "" Then Name f As c & .Cells(i, "B").Value Else m = m & vbCrLf & f End If i = i + 1 Loop End With If m > "" Then m = "Fichiers non trouvés :" & m MsgBox m, vbCritical End If End SubSi tes chemins et / ou noms de fichiers ne sont pas corrects, il ne risque pas de les renommer .