Discussion :

[Invité]

Bonsoir,

J'essaye désespérément d'utiliser la fonction Workday sous Excel 2007, j'ai lu pleins de topics disant qu'il y avait eu des fonctions autrefois non native qui ont été automatiquement intégré et que du coup ça ne fonctionne plus comme ça fonctionnait avant mais n'ayant pas eu l'occasion de travailler sur Excel 2003 et de constater cela, toutes les explications qui sont données me semble bien flou et au final bah j'arrive juste pas à ce que je veux.

Concrètement, j'aimerai pouvoir utiliser workday ou une fonction du même type qui me permettrait de calculer les retards ou jours d'avances avec des jours ouvrables. J'aimerais pouvoir utiliser le code dans mes macros et non taper les formules dans la feuille. Enfin il serait préférable que cela soit compatible aussi bien avec 2007 que 2003.

Première question est-ce possible?
Si oui comment m'y prendre?

J'ai pu lire une histoire de WorksheetsFonction pour que ça fonctionne directement dans la macro sous 2007, ce qui répondrait à mes attentes mais ça n'est pas compatible 2003...

[Philippe Tulliez]

Bonjour,
WorkDay est à utiliser avec WorksheetFunction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 MsgBox Format(WorksheetFunction.WorkDay(Date, 15), "dddd d, mmmm yyyy")

Fonctionne sous 2010 (j'ai testé) et normalement sous 2007 mais pas certain en 2003 parce-que cette fonction était utilisable avec l'utilitaire d'analyse sous cette version.
[EDIT]
Je confirme que cela fonctionne en 2007 et pas en 2003 (avec WorksheetFunction). Il y a peut-être un add-on a activer parce-qu'effectivement d'autres se plaignent du même problème (fonctionne en 2003 et pas en 2007)
Toutefois regarde cette discussion sur le même sujet, sans doute une piste

[Invité]

Punaise c'est bien ce que je pensais, autant l'utiliser indépendamment ce serait pas un problème mais étant donné leur fonctionnement totalement différent faire en sorte que ce soit compatible sur les deux c'est autre chose :/

[Philippe Tulliez]

Bonjour,

Tu peux écrire une fonction qui utilise la fonction adéquate suivant le numéro de version.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Select Case Int(Val(Application.Version))
  Case Is >= 12 ' 2007-2010
   MsgBox "Version supérieure à 2003"
  Case Else
   MsgBox "Version 2003 ou inférieure"
 End Select

[Invité]

Ok merci, avec ça je devrais pouvoir bidouiller un truc qui marche

Encore merci