Deployement d'un fichier model

Bonjour,

j'ai 30 fichier identiques que j'ai déployer sur plusieurs poste different.

Je souhaiterais trouver le moyen de modifier une feuille sur chaque fichier selon un fichier model.

Avez une idée comment je pourrais proceder ??

dans le fichier joint c'est l'onglet Model que je souhaiterais modifier

je suis ouvert a toute proposition mais j'aimerais évité le fichier partager.

merci a vous d'avance

Bonjour RYJITS

Vous ne travailler pas en réseau obligatoirement que oui, puisque vous parlez de déployer

Pourquoi ne pas avoir mis vos fichiers dans un dossier commun du serveur
\\MonServeur\Commun\Office\Modèles (par exemple)

Puis faire le paramétrage dans Word du dossier des "Modèles groupe de travail"

Comme ça un changement à faire, et ça se fait dans ce dossier

A+

Merci Bruno pour ta réponse, je suis pas sûr de tous comprendre le principe de travailler un fichier Model semble intéressant. Je vais étudier truc.

Juste une question si je veux modifier le fichier créer à partir du Model il me suffit de modifier le Model ?

Tu parle de fichier word mois je parle d’excel ça fonctionne là même manière??

Re,

Alors le fichier "Modèle" est là pour créer de nouveau fichiers basés sur la même structure,
en revanche en aucun cas, la modification du modèle apportera des modifications aux fichiers déjà créés.

Je ne parlais pas de fichier Word, le paramétrage du dossier des Modèles groupe de travail ce fait dans Word !
Demandez à Bill pour quelle raison, perso, je ne sais pas

En ce qui concerne votre problématique, essayer de lancer l'enregistreur de macro de faire l'opération à la main.

Cela vous donnera un début de code, qu'il faudra peaufiner

A+

J’ai bien penser à la vba pour faire cela, j’espérais juste qu’il existait d’autre manière.

Je vois chose comme suites

1 crêts un fichier comme Model

2 modifier une feuille au Model

3 copier la feuille

4 ouvrir le fichier 1

5 remplacer la feuille

Le problème que je vois a ça s’est que dans la feuille à remplacer il y a des formules et des mise en forme conditionnelles et liens vont rester avec le fichier Model ce qui ne faut pas. Mais pour le moment je ne vois pas d’autre solution. C’est pourquoi j’étais venus vers vous pour trouver des idées avant de commencer le projets.

Re,

Ok, moi je vois plutôt

1) Ouvrir le classeur servant de modèle (Wbk1)

2) Renommer le classeur à modifier avec "OLD" dans le nom (Wbk2)

3) Importer les feuilles Archives et Data de Wbk2 dans Wbk1

4) Fermer Wbk2

5) Enregistrer Wbk1 a l'endroit de Wbk2 avec son nom sans OLD

Voilà

Yes tu as raison ça me plais beaucoup j’attaque ça lundi, merci

voici mon code si vous avec des subjection d'amelioration je suis preneur

Option Explicit
Public CheminFichier As String
Public NomFichier As String
Public NumFichier As String
Public Lien As String
Public FichierModel As String

Sub Deployement()
'***Incremente les numero des fichier*********************************
NumFichier = NumFichier + 1
If NumFichier = 16043 Then End
Call CopyArchiveCAM
End Sub
Sub CopyArchiveCAM()
'***Desactive l'ecran + les messages d'alerte********************************
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'***Teste si s'est le premier fichier****************************************
If NumFichier = "" Then
NumFichier = 16035
Else
End If
'***Passe au fichier suivant si il est pas existant ou ouvert *****
On Error GoTo FichierSuivant
'***Deffini les chemins et noms des fichier**
CheminFichier = "\\serveur\01_STATUTS_DES_MACHINES_PRODUCTION\00_TERMINAL\01_DEC_CAM\"
NumFichier = NumFichier
NomFichier = "DEC_CAM_" & NumFichier & ".xlsm"
Lien = CheminFichier & NomFichier
FichierModel = ActiveWorkbook.Name
'****Copy onglet archives *****
Workbooks(FichierModel).SAVE
Workbooks.Open Filename:=Lien
Workbooks(NomFichier).Activate
Sheets("Archives").Select
Cells.Select
Selection.Copy
Workbooks(FichierModel).Activate
Sheets("Archives").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False
Application.CutCopyMode = False
'****Ferme et sauvegarde les fichier ***********
Workbooks(NomFichier).Close
Workbooks(FichierModel).Activate
ActiveWorkbook.SaveAs Filename:=Lien
'****Active l'ecran + les messages d'alerte****
Application.ScreenUpdating = True
Application.DisplayAlerts = True
'****Passe au fichier suivant si il est pas existant ou ouvert*****
FichierSuivant:
Call Deployement
End Sub

il me faudrait encore un bout de code pour lister les fichier ouvert une idée ??