Erreur affichage N° semaines

[Boby71C]

Bonsoir
J'ai un fichier Excel sur lequel apparaissent les N° de semaines.
Il arrive qu'il fonctionne bien et lorsqu'il est ouvert sur un autre PC, quand je le réutilise sur le mien ou tout allait bien, il affiche le message d'erreur suivant:
#NOM?
Je sui contraint d'aller sur un autre ordi, l'ouvri et l'enregistrer et ensuite tout va bien à nouveau sur mon PC.

Que se passe t'il ?


Ci dessous la macro pour afficher la semaine.
Sub Semaines()
'
' Semaines Macro
' Macro enregistrée le 20/01/2005 par Robert Philippe
'
'joura = Cells(3, jjj).Value
'NoSem = CInt(Format(joura, 'ww', vbMonday, vbFirstFourDays))
'Cells(1, jjj).Value = NoSem

Sheets('calcul').Select
joura = Cells(1, 3).Value
NoSem = CInt(Format(joura, 'ww', vbMonday, vbFirstFourDays))
Cells(2, 3).Value = NoSem

End Sub

Merci de votre aide.
@+ Robert

 

[Philippe NOSS]

Bonjour,
Cette histoire de sauvegarde sur un autre PC me semble Bizarre !!😱hmy:
ou est ce qu'apparait #NOM?
est ce que la macro se plante

Ce n'est certainment pas la cause de l'erreur mais il est peut etre mieux d'ajouter le test is date
If IsDate(Cells(1, 3).Value) Then
Cells(1, 3).Value
NoSem = CInt(Format(joura, 'ww', vbMonday, vbFirstFourDays))
Cells(2, 3).Value = NoSem
Else
Cells(2, 3).Value = ''
End If

Philippe

 

[Gael]

Bonsoir Bobby, bonsoir Philippe,

J'ai eu ce problème sur une application et il faut vérifier sur les postes qui affichent #NOM? ce qui est coché dans outils macros complémentaires.

En ajoutant certaines macros complémentaires (mais je ne me souviens plus lesquelles) cela résoud le problème.

De toutes façons, c'est assez facile puisque l'effet est immédiat, il suffit de cocher une case ou deux puis de faire OK, XL en tient compte sans devoir redémarrer. Si le pb persiste, on recommence jusqu'à déterminer la bonne macro.

@+

Gael

 

[Boby71C]

Bonsoir Gael Noss et le Forum
Il s'agissait bien de macros complèmentaires qui manquaient.
J'ai rajouté :
Microsoft ODBC
et tout fonctionne.
Merci pour le conseil
@+ Robert