Erreur #NOM? avec VBA chronomètre

[Boby71C]

Bonjour à tous
J'ai emprunté une excellente macro pour faire du chronomètrage. J'en remerci d'ailleur son élaborateur.
Elle fonctionne parfaitement sur le fichier d'origine mais dès que je procède à la compie de la feuille dans un autre classeur ainsi que son module VBA, elle me déclare une erreur #NOM?
Les formats de cellules sont les mêmes, les Noms également.

Ci-dessous le code
Sub Chrono()
ActiveCell.FormulaR1C1 = '=MAINTENANT()'
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

ActiveCell.Offset(1, 0).Range('A1').Select
ActiveCell.FormulaR1C1 = '=MAINTENANT()'
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

ActiveCell.Offset(0, -1).Range('A1').Select
ActiveCell.FormulaR1C1 = '=LC(1)-Chrono'
Calculate
ActiveCell.Offset(0, 1).Range('A1').Select
End Sub

Pouvez-vous me venir en aide.
Ci-joint fichier allègé
Merci pour votre nouvelle aide
@+

Message édité par: Boby71C, à: 27/12/2005 10:58

 

[Boby71C]

Re
Fichier allègé avec toutes mes excuses.
@+
Désolé, il y avait un éspace [file name=essaichrono.zip size=28255]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaichrono.zip[/file]

Message édité par: Boby71C, à: 27/12/2005 11:04

 

[PascalXLD]

Bonjour

Ton fichier modifié [file name=essaichrono_20051227112124.zip size=28952]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaichrono_20051227112124.zip[/file]

 

[Charly2]

Bonjour Robert, bonjour à toutes et à tous

Apparemment, il te suffit d'utiliser la syntaxe anglaise pour que ton chrono fonctionne :

Sub Chronomètre()
ActiveCell.FormulaR1C1 = '=NOW()'
  Selection.Copy
  Selection.PasteSpecial Paste:=xlValues, Operation:= _
     xlNone, SkipBlanks:=False, Transpose:=False

  ActiveCell.Offset(1, 0).Range('A1').Select
  ActiveCell.FormulaR1C1 = '=NOW()'
  Selection.Copy
  Selection.PasteSpecial Paste:=xlValues, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False

  ActiveCell.Offset(0, -1).Range('A1').Select
  ActiveCell.FormulaR1C1 = '=RC[1]-Chrono'
  Calculate
  ActiveCell.Offset(0, 1).Range('A1').Select
End Sub

Amicalement
Charly

 

[Charly2]

Oups ! Je ne t'avais pas vu Pascal... Salut et joyeuses fêtes

 

[PascalXLD]

RE

Tiens une autre version un peu épurée qui evite la majorité des select et copy [file name=essaichrono_20051227114828.zip size=28057]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaichrono_20051227114828.zip[/file]

 

[Boby71C]

Merci beaucoup les amis
Très bonne fin d'année et que 2006 vous apporte toutes vos espérances.
@+