Boby71C
XLDnaute Impliqué
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
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