Re : Demande de nom de projet sur modele
Bonjour,
Positionner le curseur sur l'onglet de la feuille model, puis bouton droit/visualiser le code Double click sur ThisWorbook
Ajoute la macro suivante
Private Sub Workbook_Open()
Response = InputBox("Nom du projet ?")
If Response <> "" Then
fichier = ActiveWorkbook.Name
' enlever l'extension
For I = Len(fichier) To 1 Step -1
If Mid$(fichier, I, 1) = "." Then
FichierNouveau = Mid$(fichier, 1, I - 1)
Exit For
End If
Next
FichierNouveau = FichierNouveau & Response
ActiveWorkbook.SaveAs Filename:= _
FichierNouveau, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
'suppression macro de création
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else
MsgBox ("Pas de nom de projet, abandon du traitemen")
End If
End Sub
Et voila
GIBI