XL 2016 Changer nom de l’éditeur des commentaires

[audureaumarc]

Bonjour,

Office 365 Business Premium

Lorsque j’ajoute des commentaires à ma feuille Excel, automatiquement le nom de mon compte Windows est associé comme auteur du commentaire (la partie noircie sur mon image)

J’aimerais pouvoir changer ce nom pour la totalité des commentaires déjà en place,sans à avoir à changer mon compte Windows, comment procéder ?

Merci, bon dimanche

 

[piga25]

Bonjour,

Voir ici : https://www.extendoffice.com/fr/documents/excel/678-excel-change-comment-author.html

 

[audureaumarc]

Bonjour,

J’ai utilisé le script du lien

Sub ChangeCommentName()
'Updateby20140509
Dim xWs As Worksheet
Dim xComment As Comment
Dim oldName As String
Dim newName As String
xTitleId = "KutoolsforExcel"
oldName = InputBox("Old Name", xTitleId, Application.UserName)
newName = InputBox("New Name", xTitleId, "")
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xComment In xWs.Comments
        xComment.Text (Replace(xComment.Text, oldName, newName))
    Next
Next
End Sub

puis entré ancien nom d’utilisateur, enfin le nouveau ...mais ça ne fonctionne pas, rien de changé

PS: j’ai Office 365 Business Premium et il me semble que la gestion des commentaires a changé depuis MS Excel 2016

 

[mapomme]

Bonsoir @audureaumarc, à tous,

Testez:

Sub ChangeCommentName()
Dim xWs As Worksheet, xComment As Comment, oldName As String
Dim newName As String, xTitleId, x
xTitleId = "KutoolsforExcel"
  oldName = InputBox("Old Name", xTitleId, Application.UserName)
  newName = InputBox("New Name", xTitleId, "")
  For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xComment In xWs.Comments
      x = xComment.Shape.TextFrame.Characters.Text
      x = Replace(x, oldName, newName, , 1, vbTextCompare)
      xComment.Text x
    Next
  Next
End Sub

 

[VIARD]

Bonsoir Audureaumarc, Piga, MaPomme et à tous

J'ai fait ceci sous excel 2007

Option Explicit
'====================
'====================
Sub Changement_Nom_Editeur_Commentaire()
Dim AncienNom$, NouveauNom$
Dim Commentaire As Object

AncienNom = Application.UserName
NouveauNom = InputBox("Nouveau Nom", "Changement Nom Commentaire", "")
Application.UserName = Replace(AncienNom, AncienNom, NouveauNom)
MsgBox NouveauNom
End Sub
'====================
Sub Changement_Nom_Commentaire()
Dim NomEditCom$, VComment As Object
Dim SCH As Worksheet, Info$

NomEditCom = Application.UserName
For Each SCH In ActiveWorkbook.Worksheets
    For Each VComment In SCH.Comments
        Info = VComment.Text
        Info = NomEditCom & ":" & vbNewLine & Info
        VComment.Text Info
    Next VComment
Next SCH
End Sub
'====================

à tester.

A+ Jean-Paul

 

[audureaumarc]

Bonsoir, merci pour vos scripts. Malheureusement, aucun n’a d’effet chez moi :/

 

[Amilo]

Bonsoir le forum, Piga25, mapomme, VIARD, audureaumarc,

@audureaumarc, lorsque vous parlez de compte Windows, vous pensiez à cette fenêtre en pièce jointe ?

Cordialement

 

[audureaumarc]

Oui, c’est celà

Je l’ai modifié et donc le nouveau compte est pris en compte pour les nouveaux commentaires mais pas pour les anciens

Et vos scripts bien que semblant fonctionnels, n’ont aucune incidence. Modification indiquée pas prise en compte

 

[Amilo]

Bonsoir à tous,
@audureaumarc, j'ai office 2019 et le code que vous avez testé fonctionne très bien dans mon cas
Je ne sais pas si c'est lié à Office 365

Bonne soirée

 

[eriiic]

Bonjour,

dans les dernières versions (que je n'ai pas), il me semble que les commentaires ancienne version sont devenus des 'Notes' et les (nouveaux) commentaires de nouveaux objet avec plus de propriétés (commentaires multiples de plusieurs utilisateurs qui communiquent etc)
Quelqu'un avec une de ces version devrait regarder ce nouvel objet, voir ses propriétés.
Et les anciens commentaires devenus des notes ont peut-être changé de collection (?) Ou un micmac approchant...
eric

 

[audureaumarc]

En effet, ça m’a l’air venir de là !