Lier deux fichiers Excel

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.

Bonjour,

Essaie ça :

Worksheets(nomDEFPARAM).Cells(1, 1).Comment.text text:=Worksheets(nomREADME).Cells(2, 2)

Bonjour Oxydum,

Et merci pour ta réponse, dans l'idée c'est ce que je recherchais donc merci beaucoup !

Cependant j'ai un retour d'erreur : "L'indice n'appartient pas à la section".

J'ai essayé de changer le nom de l'objet, mais sans succès...

As tu des idées ?

Sub Test()
On Error Resume Next
nomDEFPARAM = "Feuil1"
nomREADME = "Feuil2"

Worksheets(nomDEFPARAM).Cells(1, 1).Comment.Delete
Worksheets(nomDEFPARAM).Cells(1, 1).AddComment
Worksheets(nomDEFPARAM).Cells(1, 1).Comment.Visible = True
Debug.Print Worksheets(nomREADME).Cells(2, 2)
Worksheets(nomDEFPARAM).Cells(1, 1).Comment.Text CStr(Worksheets(nomREADME).Cells(2, 2))

End Sub

Merci beaucoup !

Je vais continuer à creuser de mon coté.

Rechercher des sujets similaires à "lier deux fichiers"