XL 2016 Changer nom de l’éditeur des commentaires

audureaumarc

XLDnaute Nouveau
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)

1026015

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
 

audureaumarc

XLDnaute Nouveau
Bonjour,

J’ai utilisé le script du lien

VB:
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

XLDnaute Barbatruc
Supporter XLD
Bonsoir @audureaumarc, à tous,

Testez:
VB:
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

XLDnaute Occasionnel
Bonsoir Audureaumarc, Piga, MaPomme et à tous

J'ai fait ceci sous excel 2007

VB:
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

XLDnaute Nouveau
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
 

eriiiic

XLDnaute Barbatruc
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
 

Discussions similaires


Haut Bas