Renommer un fichier Office à l'aide d'un fichier Excel

LeeDongGook Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour à toutes et à tous,

Mon problème parait simple au premier abord mais malheureusement mon niveau en programmation ne me permet pas de réaliser cela. De plus je n'ai rien trouver qui répondait à ma problématique.

J'aimerai pouvoir renommer 5 fichiers (2 Excel et 3 Word) en utilisant un fichier source Excel.
L'idée serai que je n'ai qu'à rentrer le nom dans une cellule du fichier source pour qu'il se répercute sur les autres fichiers...

Exemple:
Fichier source, cellule A1 correspond à la cellule source ou je dois entrer le nom. Je met "CCM c'est génial", je fais entrer et la le nom de mes 5 fichiers devient "CCM c'est génial-1xls", "CCM c'est génial-2xls", "CCM c'est génial-1wrd", "CCM c'est génial-2wrd", "CCM c'est génial-3wrd".

J'espère avoir était clair. N'hésitez pas à me poser vos questions.

Très bonne journée à tous et vive vous :)

Maxime


A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

Voir ceci pour renommer un fichier:

http://www.info-3000.com/vbvba/fichiers/#RenommageFichier 

 Dim GestionFichier As Object
    Set GestionFichier = CreateObject("Scripting.FileSystemObject")
GestionFichier.MoveFile "C:\chemin classeur.xls", "C:\chemin\" & Range("A1").Value & ".xls" ' adapter le chemin et l'extension
Set GestionFichier = Nothing

0