Renommer des fichiers en VBA
Résolu
Mistral_13200
Messages postés
636
Date d'inscription
Statut
Membre
Dernière intervention
-
Mistral_13200 Messages postés 636 Date d'inscription Statut Membre Dernière intervention -
Mistral_13200 Messages postés 636 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
A partir d’un fichier Excel, dans lequel j’ai :
- Colonne A le nom du répertoire d’origine qui n’est pas toujours le même.
- Colonne B le nom du fichier à déplacer.
- Colonne C le nom du répertoire de destination qui lui est identique pour tous les fichiers copiés.
Je copie le fichier xxxx.jpeg (colonne B) du répertoire d’origine vers le répertoire de destination. Pour cela j’utilise la macro suivante :
Sub Copie_Fichier ()
' Copie les fichiers des photos pour le diaporama dans le répertoire destination.
Dim fso As Object, Rep_Départ, Rep_Arrivée, Fichier_Copié
Set fso = CreateObject("Scripting.FileSystemObject")
Rep_Arrivée = Range("C2")
Range("A2").Activate
Do Until ActiveCell = ""
Rep_Départ = ActiveCell
Fichier_Copié = ActiveCell.Offset(0, 1)
fso.CopyFile Rep_Départ & "\" & Fichier_Copié, Rep_Arrivée & "\" & Fichier_Copié
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
Cela fonctionne parfaitement.
Maintenant je souhaiterais par la même occasion renommer le fichier déplacé de manière à obtenir un nom de fichier de ce type :
- Une partie fixe commune à tous les fichiers.
- Une partie variable dépendante du nombre de ligne contenu du fichier contenant les fichiers à déplacer.
- Une nouvelle partie fixe identique pour tous les fichiers.
Pour obtenir un nom de fichier ressemblante à ça : XXXXXX1Y.Jpeg
Je coince sur la boucle à mettre en place dans ma macro. Comment Faire ?
Merci d’avance à tous ceux qui se pencheront sur mon problème.
Cordialement.
Mistral
A partir d’un fichier Excel, dans lequel j’ai :
- Colonne A le nom du répertoire d’origine qui n’est pas toujours le même.
- Colonne B le nom du fichier à déplacer.
- Colonne C le nom du répertoire de destination qui lui est identique pour tous les fichiers copiés.
Je copie le fichier xxxx.jpeg (colonne B) du répertoire d’origine vers le répertoire de destination. Pour cela j’utilise la macro suivante :
Sub Copie_Fichier ()
' Copie les fichiers des photos pour le diaporama dans le répertoire destination.
Dim fso As Object, Rep_Départ, Rep_Arrivée, Fichier_Copié
Set fso = CreateObject("Scripting.FileSystemObject")
Rep_Arrivée = Range("C2")
Range("A2").Activate
Do Until ActiveCell = ""
Rep_Départ = ActiveCell
Fichier_Copié = ActiveCell.Offset(0, 1)
fso.CopyFile Rep_Départ & "\" & Fichier_Copié, Rep_Arrivée & "\" & Fichier_Copié
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
Cela fonctionne parfaitement.
Maintenant je souhaiterais par la même occasion renommer le fichier déplacé de manière à obtenir un nom de fichier de ce type :
- Une partie fixe commune à tous les fichiers.
- Une partie variable dépendante du nombre de ligne contenu du fichier contenant les fichiers à déplacer.
- Une nouvelle partie fixe identique pour tous les fichiers.
Pour obtenir un nom de fichier ressemblante à ça : XXXXXX1Y.Jpeg
Je coince sur la boucle à mettre en place dans ma macro. Comment Faire ?
Merci d’avance à tous ceux qui se pencheront sur mon problème.
Cordialement.
Mistral
A voir également:
- Renommer un fichier excel vba
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Renommer fichier en masse - Guide
- Fichier rar - Guide