Bonjour,
Je travaille avec différents fichiers, et j'ai besoin que quand un utilisateur lance un fichier ou ouvre un fichier, on puisse écrire le même identifiants.
Pour être plus clair quand je lance ma macro et que je place ce code [code
]Sub Identifiants()
On Error GoTo fin
If Not SheetExists(nomREADME) Then CreateReadme nomREADME
updateReadMeWBName
'Mise a jour de la feuille readme
If SheetExists(nomREADME) Then _
Worksheets(nomREADME).Cells(8, 2) = "Le " + Str(Date) + " à " + Str(Time)
Worksheets(nomREADME).Cells(2, 2) = Environ("USERNAME") + Str(Date) + Str(Time)
fin:
End Sub
ns.Cells(2, 2) = “Identifiants”
[/code]
Ce code va permettre d'écrire l'identifiant dès le lancement de la macro dans un fichier Readme.
Avec ce code :
Worksheets(nomDEFPARAM).Cells(1, 1).Comment.delete
Worksheets(nomDEFPARAM).Cells(1, 1).AddComment
Worksheets(nomDEFPARAM).Cells(1, 1).Comment.Visible = True
Worksheets(nomDEFPARAM).Cells(1, 1).Comment.text text:=Environ("USERNAME") + Str(Date) + Str(Time)
J'écris un commentaire dans le fichier que je lance, mais j'aimerais que ce soit le même que dans le fichier ReadMe.
Des idées ?
Merci d'avance.