Copier un fichier vers plusieurs répertoires

Dans le cadre du déploiement d’un fichi­er pour de mul­ti­ples util­isa­teurs, il est par­fois pra­tique de pou­voir copi­er celui-ci à plusieurs endroits pour que tout le monde ait une copie à jour. Évidem­ment, ca serait mieux si le fichi­er était directe­ment mul­ti-util­isa­teur, mais par­fois on n’a pas le choix ! 

Voici donc un petit fichi­er qui automa­tise ce proces­sus : CopierMultiplesFichiers.XLSM

L’essen­tiel du code est : 


Sub CopierFichier()
Dim rgeCell As Range
For Each rgeCell In Range("TableauColEmplacementFinal")
FileCopy Range("CheminCompletFichierSource"), rgeCell.Value
Next
End Sub

On a aus­si nom­mé les plages suivantes :

Et on utilise aus­si quelques for­mules pour recréer le chemin com­plet de chaque fichier.
DROITE : retourne les car­ac­tères à droite de la plage
& : per­met de con­catén­er, c’est-a-dire de com­bin­er deux chaînes de car­ac­tères ensemble.

Vous pou­vez aus­si not­er que j’u­tilise une colonne inter­mé­di­aire pour entr­er manuelle­ment des don­nées, tout en con­ser­vant une for­mule iden­tique à la colonne C. 

En espérant que ce petit fichi­er puisse vous ren­dre pleins de services !

A bien­tôt.

Gae­tan

Pour marque-pages : Permaliens.

2 réponses à Copier un fichier vers plusieurs répertoires

  1. bernard pierre dit :

    impos­si­ble d’ou­vrir le fichi­er CopierMultiplesFichiers.XLSM

  2. Gaetan Mourmant dit :

    Bon­jour;
    Vous avez quel mes­sage, je viens d’es­say­er sans problèmes.
    Gaetan

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée.

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.