Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour C'est possible avec VBA. Voici une manière de procéder Clic droit sur l'icône d'Excel située à gauche du menu Fichier, option "Visualiser le code" et placer le code suivant en adaptant : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI <> False Then Exit Sub Dim LeNom$ LeNom = Application.InputBox("Nom de l'auteur ?", "A fournir") Select Case LeNom Case Is = False MsgBox "il faut donner un nom d'auteur avant l'enregistrement", vbExclamation, "Erreur" Cancel = True Exit Sub Case Else: ThisWorkbook.BuiltinDocumentProperties("Author").Value = LeNom End Select End Sub
Cordialement Pascal
"moa" a écrit dans le message de news:
Bonjour,
Existe t il une option dans Excel pour que le nom de l'utilisateur soit automatiquement modifié à chaque enregistrement ?
Bonjour
C'est possible avec VBA.
Voici une manière de procéder
Clic droit sur l'icône d'Excel située à gauche du menu Fichier, option
"Visualiser le code" et placer le code suivant en adaptant :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If SaveAsUI <> False Then Exit Sub
Dim LeNom$
LeNom = Application.InputBox("Nom de l'auteur ?", "A fournir")
Select Case LeNom
Case Is = False
MsgBox "il faut donner un nom d'auteur avant l'enregistrement",
vbExclamation, "Erreur"
Cancel = True
Exit Sub
Case Else: ThisWorkbook.BuiltinDocumentProperties("Author").Value = LeNom
End Select
End Sub
Cordialement
Pascal
"moa" <moa@mail.com> a écrit dans le message de
news:eF376ZkmEHA.3988@tk2msftngp13.phx.gbl...
Bonjour,
Existe t il une option dans Excel pour que le nom de l'utilisateur soit
automatiquement modifié à chaque enregistrement ?
Bonjour C'est possible avec VBA. Voici une manière de procéder Clic droit sur l'icône d'Excel située à gauche du menu Fichier, option "Visualiser le code" et placer le code suivant en adaptant : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI <> False Then Exit Sub Dim LeNom$ LeNom = Application.InputBox("Nom de l'auteur ?", "A fournir") Select Case LeNom Case Is = False MsgBox "il faut donner un nom d'auteur avant l'enregistrement", vbExclamation, "Erreur" Cancel = True Exit Sub Case Else: ThisWorkbook.BuiltinDocumentProperties("Author").Value = LeNom End Select End Sub
Cordialement Pascal
"moa" a écrit dans le message de news:
Bonjour,
Existe t il une option dans Excel pour que le nom de l'utilisateur soit automatiquement modifié à chaque enregistrement ?
