problème langage VBA

[jojojojojojo]

Bonjour

j'ai le code suivant:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("feuil1").[A50000].End(xlUp).Offset(1, 0).Value = [F37].Value
Sheets("feuil1").[E50000].End(xlUp).Offset(1, 0).Value = [F36].Value
Sheets("feuil1").[I50000].End(xlUp).Offset(1, 0).Value = [F38].Value
Sheets("accueil").[F36].Value = Date
Sheets("accueil").[F37].Value = Application.UserName
Sheets("accueil").[F38].Value = Time

Il me permet a chaque sauvegarde de voir qui et quand on a sauvegardé et de le répertorié sur une feuille à part(ici feuille 1). La dernière sauvegarde est visible sur la page acueil et les précédente sur la feuille1.

Mon problème est le suivant, lorsque je suis sur la page accueil et que je sauvegarde, tous s'écrit normalement sur la feuille1. Mais lorsque je sauvegarde et que je suis sur une autre feuille du classeur, rien ne s'écrit sur la feuille1.

Que se passe t-il??

 

[Pierrot93]

Re : problème langage VBA

Bonjour jojo

si j'ai bien compris, il faut préciser le nom de la feuille sur laquelle tu prends les données :

Sheets("feuil1").[A50000].End(xlUp).Offset(1, 0).Value = Sheets("NOMFEUILLE").[F37].Value

bonne fin d'après midi
@+

 

[jojojojojojo]

Re : problème langage VBA

merci bcp

A+ jo