Mon Workbook_open ne fonctionne pas

re,

j'ai fait comme tu m'as dit, çà marche mais sans avoir remis les 2 fonctions.

j'ai donc remis les fonctions, et là "patatra", çà recommence à ne plus fonctionner.

il y a donc bien un rapport avec les fonctions.

je m"en suis apperçu en créant un nouveau classeur, et en recopiant les modules 1 à 1

et en vérifiant à chaque fois !

tout allait bien j'usqu'à ce fameux module qui contient les fonctions.

j'ai besoin de récupérer une date en N° de semaine

l'autre fonction "lundi_suivant", je peux me débrouillé autrement.

une idée ??

Claude.

re,

pour le N° semaine c'est réglé, j'ai supprimer la fonction et utiliser la fonction "Morefunc"

NUN.semaine , çà marche.

reste" Lundi-suivant" on devrait trouvé une formule sans fonction. non ?

à suivre

Claude.

Bonjour au forum,

Pour information : toujours sur le même fichier avec les fonctions,

si j'ouvre un autre fichier, son thisworkbook ne fonctionne pas non plus.

et tout fonctionne trés bien avec les fonctions supprimées !

si vous avez une explication !!!

amicalement

Claude.

Salut le forum

Dur dur de te suivre Claude ! ! !

(Une ficelle ici, une autre ficelle par là)

Les fonctions étant recalculées à l'ouverture, je verrais un contournement

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox ("fermeture")
Application.Calculation = xlManual
End Sub

Private Sub Workbook_Open()
MsgBox ("ouverture")
Application.Calculation = xlAutomatic
End Sub

A te relire

Mytå

Bonjour Mytå et au forum,

Le meilleur contournement,c'est de supprimer là ou çà fait mal !!

C'est ce que Mytå a réussi à faire avec =JOURSEM() pour trouver "Lundi_suivant"

Maintenant, tout est rentré dans l'ordre et mon "ThisWorkbook" fonctionne.

Merci à tous,

Claude.