Macro Renommer des fichiers
Résolu/Fermé
catlea
Messages postés
1
Date d'inscription
mercredi 9 février 2011
Statut
Membre
Dernière intervention
9 février 2011
-
9 févr. 2011 à 15:40
Binzen - 25 févr. 2014 à 11:20
Binzen - 25 févr. 2014 à 11:20
A voir également:
- Renommer des fichiers en masse avec excel
- Renommer des fichiers en masse - Guide
- Liste déroulante excel - Guide
- Mise en forme conditionnelle excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
5 réponses
Bonjour
J'ai voulu utilisé cette macro mais j'avoue que n'y connaissant rien j'ai un peu de mal.
J'ai dans un tableau excel une colonne ancien nom et une colonne nouveau nom
J'ai repris la macro comme suit:
Sub Ed()
Dim Chemin As String, Fichier As Variant, Ligne As Integer
Dim AncienNom As String, nouveaunom As String
Dim Source As String, Destination As String
Dim objFSO As Object
Dim CheminCourt As String
Chemin = "C:\Dossier1"
CheminCourt = "C:\Dossier1"
ChDrive "C"
ChDir CheminCourt
Set objFSO = CreateObject("Scripting.FileSystemObject")
With Sheets("Feuil1")
'For Ligne = 2 To 402
For Ligne = 2 To 62
AncienNom = .Range("A" & Ligne).Value
nouveaunom = .Range("B" & Ligne).Value
Fichier = Dir(Chemin & AncienNom, 6)
If Fichier = Empty Then
MsgBox "le fichier " & AncienNom & " n'a pas été trouvé"
Else
Source = Chemin & Fichier: Destination = Chemin & nouveaunom
objFSO.CopyFile Source, Destination
Kill (Chemin & AncienNom)
End If
Next Ligne
End With
Set objFSO = Nothing
End Sub
La macro me retourne l'ancien nom de fichier n'a pas été trouvé
Mes fichiers sont dans c:\Dossier1
Merci de votre aide
Phil
J'ai voulu utilisé cette macro mais j'avoue que n'y connaissant rien j'ai un peu de mal.
J'ai dans un tableau excel une colonne ancien nom et une colonne nouveau nom
J'ai repris la macro comme suit:
Sub Ed()
Dim Chemin As String, Fichier As Variant, Ligne As Integer
Dim AncienNom As String, nouveaunom As String
Dim Source As String, Destination As String
Dim objFSO As Object
Dim CheminCourt As String
Chemin = "C:\Dossier1"
CheminCourt = "C:\Dossier1"
ChDrive "C"
ChDir CheminCourt
Set objFSO = CreateObject("Scripting.FileSystemObject")
With Sheets("Feuil1")
'For Ligne = 2 To 402
For Ligne = 2 To 62
AncienNom = .Range("A" & Ligne).Value
nouveaunom = .Range("B" & Ligne).Value
Fichier = Dir(Chemin & AncienNom, 6)
If Fichier = Empty Then
MsgBox "le fichier " & AncienNom & " n'a pas été trouvé"
Else
Source = Chemin & Fichier: Destination = Chemin & nouveaunom
objFSO.CopyFile Source, Destination
Kill (Chemin & AncienNom)
End If
Next Ligne
End With
Set objFSO = Nothing
End Sub
La macro me retourne l'ancien nom de fichier n'a pas été trouvé
Mes fichiers sont dans c:\Dossier1
Merci de votre aide
Phil
7 juin 2011 à 07:21
j'ai coché "ne plus suivre"