Forcer l'option Enregistrer sous

Le
Claire
Bonjour,

J'ai créé un modèle et j'aimerais qu'une fois qu'un fichier est créé à
partir de ce modèle, il soit possible de l'enregistrer une seule fois. Si des
modifications doivent être apportées au fichier par la suite, j'aimerais que
l'utilisateur soit forcé à l'enregistrer sous un autre nom.

Pouvez-vous m'aider?

Merci!

Claire
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #4441791
Dans le ThisWorkbook de ton classeur, copie ce type de procédure :
que tu peux améliorer selon tes goûts.


'-------------------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
Else
x = ThisWorkbook.FullName
Do
z = Application.InputBox(PROMPT:="Inscrivez le NOUVEAU nom du classeur.", _
Title:="Enregistrer sous", Default:="SonNom.xls", Type:=2)
If LCase(Right(z, 4)) <> ".xls" Then z = z & ".xls"
If UCase(z) = UCase(ThisWorkbook.Name) Then
If MsgBox("Ce nom existe déjà. Vous devez choisir un autre nom." & _
"Désirez-vous continuer?", vbCritical + vbYesNo, "Nouveau nom") = vbNo Then
Cancel = True
Exit Sub
End If
Else
On Error Resume Next
Application.EnableEvents = False
ThisWorkbook.SaveAs ThisWorkbook.Path & "" & z
Application.EnableEvents = True
If Err <> 0 Then
Err.Clear
MsgBox "Vous avex saisi un caractère interdit dans " & _
"le nom du fichier : |/*?:><"
Cancel = False
Else
Cancel = True
End If
End If
Loop Until Cancel = True
End If
End Sub
'-------------------------------------


"Claire"
Bonjour,

J'ai créé un modèle et j'aimerais qu'une fois qu'un fichier est créé à
partir de ce modèle, il soit possible de l'enregistrer une seule fois. Si des
modifications doivent être apportées au fichier par la suite, j'aimerais que
l'utilisateur soit forcé à l'enregistrer sous un autre nom.

Pouvez-vous m'aider?

Merci!

Claire
MichDenis
Le #4441681
Utilise plutôt cette version, une légère correction a été apportée
: à copier dans le thisWorkbook de ton classeur :

'---------------------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Z As String
If SaveAsUI = True Then
Else
Do
Z = Application.InputBox(PROMPT:="Inscrivez le NOUVEAU nom du classeur.", _
Title:="Enregistrer sous", Default:="SonNom.xls", Type:=2)
If Format(Z) = False Then Cancel = True: Exit Sub
If LCase(Right(Z, 4)) <> ".xls" Then Z = Z & ".xls"
If UCase(Z) = UCase(ThisWorkbook.Name) Then
If MsgBox("Ce nom existe déjà. Vous devez choisir un autre nom." & _
"Désirez-vous continuer?", vbCritical + vbYesNo, "Nouveau nom") = vbNo Then
Cancel = True
Exit Sub
End If
Else
On Error Resume Next
Application.EnableEvents = False
ThisWorkbook.SaveAs ThisWorkbook.Path & "" & Z
Application.EnableEvents = True
If Err <> 0 Then
Err.Clear
MsgBox "Vous avex saisi un caractère interdit dans " & _
"le nom du fichier : |/*?:><"
Cancel = False
Else
Cancel = True
End If

End If
Loop Until Cancel = True
End If
End Sub
'---------------------------------------




"Claire"
Bonjour,

J'ai créé un modèle et j'aimerais qu'une fois qu'un fichier est créé à
partir de ce modèle, il soit possible de l'enregistrer une seule fois. Si des
modifications doivent être apportées au fichier par la suite, j'aimerais que
l'utilisateur soit forcé à l'enregistrer sous un autre nom.

Pouvez-vous m'aider?

Merci!

Claire
Claire
Le #4441091
Bonjour MichDenis,

Un gros merci, c'est génial. Tout à fait ce que j'avais besoin.

Claire


Utilise plutôt cette version, une légère correction a été apportée
: à copier dans le thisWorkbook de ton classeur :

'---------------------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Z As String
If SaveAsUI = True Then
Else
Do
Z = Application.InputBox(PROMPT:="Inscrivez le NOUVEAU nom du classeur.", _
Title:="Enregistrer sous", Default:="SonNom.xls", Type:=2)
If Format(Z) = False Then Cancel = True: Exit Sub
If LCase(Right(Z, 4)) <> ".xls" Then Z = Z & ".xls"
If UCase(Z) = UCase(ThisWorkbook.Name) Then
If MsgBox("Ce nom existe déjà. Vous devez choisir un autre nom." & _
"Désirez-vous continuer?", vbCritical + vbYesNo, "Nouveau nom") = vbNo Then
Cancel = True
Exit Sub
End If
Else
On Error Resume Next
Application.EnableEvents = False
ThisWorkbook.SaveAs ThisWorkbook.Path & "" & Z
Application.EnableEvents = True
If Err <> 0 Then
Err.Clear
MsgBox "Vous avex saisi un caractère interdit dans " & _
"le nom du fichier : |/*?:><"
Cancel = False
Else
Cancel = True
End If

End If
Loop Until Cancel = True
End If
End Sub
'---------------------------------------




"Claire"
Bonjour,

J'ai créé un modèle et j'aimerais qu'une fois qu'un fichier est créé à
partir de ce modèle, il soit possible de l'enregistrer une seule fois. Si des
modifications doivent être apportées au fichier par la suite, j'aimerais que
l'utilisateur soit forcé à l'enregistrer sous un autre nom.

Pouvez-vous m'aider?

Merci!

Claire





Publicité
Poster une réponse
Anonyme