nommé classeur via un autre classeur

[Ilino]

Bonjour Forum
J’ai un classeur qui est nommé « pondération Etudes 2013 » je l’utilise comme model
J’ai un 2 eme classeur qui est nommé « Les contrats »
Je souhaiterai que a chaque fois je fais rentrer dans la celle de la colonne A du classeur « Les contrats » un N° du contrat , il vas renommer automatiquement le classeur model « pondération Etudes 2013 » pra le nom rqui a été saisie dans la celle A du classeur « Les contrats »
Exemple : je saisie dans la cellule C2 de la feuille 1 du classeur « Les contrats » un N° du contrat (2013/ITA/11)
Je souhaiterai avoir une copie du classeur« pondération Etudes 2013 » mais nommé « 2013/ITA/11)
A+

 

[Ilino]

Re : nommé classeur via un autre classeur

Bonjour Forum
puis je avoir votre aides
merci

 

[Ilino]

Re : nommé classeur via un autre classeur

Re

Option Explicit
Sub EnregistrerClasseurs()
Dim Repertoire As String, NomClasseur As String
Dim Derlig As Integer, i As Integer, Chemin As String
' Désactivation de l'affichage
Application.ScreenUpdating = False
' Ici chemin du classeur actif contenant la macro
Repertoire = ThisWorkbook.Path & "\"
' Boucle sur les noms contenus dans la colonne A
With Sheets("Base")
Derlig = .Range("A65536").End(xlUp).Row
For i = 1 To Derlig
' Définition du nom du classeur
NomClasseur = .Cells(i, 1) & ".xls"
' Création du classeur d'après la feuille "modèle"
With Sheets("Modele")
.Copy
End With
'Enregistrement du classeur
Chemin = Repertoire & NomClasseur
ActiveWorkbook.SaveAs Filename:=Chemin
ActiveWorkbook.Close
Next i
End With
End Sub

Ci dessus un model (trouvé dans ce fameux forum) de code mas je souhaiterai copie le classeur et ces feuille et ses codes ?
A+

 

[Ilino]

Re : nommé classeur via un autre classeur

Re sorry j'ai oublié le fichier