Macro pour renommage en masse

Résolu/Fermé

Memo133 Messages postés 6 Date d'inscription mardi 23 janvier 2018 Statut Membre Dernière intervention 24 janvier 2018 - 23 janv. 2018 à 14:25
Memo133 Messages postés 6 Date d'inscription mardi 23 janvier 2018 Statut Membre Dernière intervention 24 janvier 2018 - 24 janv. 2018 à 12:35

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!

A voir également:

Macro pour renommage en masse
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Renommer fichier en masse - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Jitbit macro recorder - Télécharger - Confidentialité

1 réponse

Réponse 1 / 1

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
23 janv. 2018 à 16:18

Bonjour,

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

Memo133 Messages postés 6 Date d'inscription mardi 23 janvier 2018 Statut Membre Dernière intervention 24 janvier 2018
23 janv. 2018 à 17:51

Merci pour cette réponse, mais ça ne renomme pas les docs! ça ne met pas de message non plus...

Memo133 Messages postés 6 Date d'inscription mardi 23 janvier 2018 Statut Membre Dernière intervention 24 janvier 2018
23 janv. 2018 à 17:52

Dois je compléter quoi que ce soit à la macro que tu m'as envoyé?

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
24 janv. 2018 à 08:44

Bonjour,

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 Sub

Memo133 Messages postés 6 Date d'inscription mardi 23 janvier 2018 Statut Membre Dernière intervention 24 janvier 2018
24 janv. 2018 à 10:38

Il m'indique à présent "Fichiers non trouvés", puis le chemin vers les fichiers qu'il ne trouve pas...

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
24 janv. 2018 à 11:13

C'est le but !
Si tes chemins et / ou noms de fichiers ne sont pas corrects, il ne risque pas de les renommer .

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

faire une boucle sans VBA

recup couleur de cellule sans macro

Nommer des fichiers en masse à partir d'une liste