Utilisation d'une plage nommée avec un "underscore" en VBA

Bonjour,

OK, le "undescore" a un usage spécifique dans le VBE.

Mais le correcteur comprend bien le texte voulu tout comme en mode exécution directe ou l'interpréteur affiche bien la valeur.

Code:

---

? Range("_Annee").Value

---

Mais "erreur 400" lors de l’exécution de la macro.

Code:

---

1 2 3 4

Dim SemDecalage As Integer   MsgBox Range("_Annee").Value SemDecalage = NumWeek(DateSerial(Range("_Annee").Value, 9, 1)) - 1

---

Cette valeur nommée "_Année" existe dans presque tous les classeurs.

Quelle solution me proposez-vous ?
1) Changer le nom de la variable et donc aussi dans toutes les formules : un recherche & remplacer devrait suffire
2) Aller chercher la référence de la cellule contenant la plage nommée. (plus simple mais non spécifique)
3) vos solutions...

Merci à vous.

ESVBA

Bonjour,
A mon avis, le problème vient de la fonction NumWeek dont vous n'avez pas publié le code

L'essai ci-dessous ne renvoie aucune erreur

Code:

---

1 2 3 4 5

Sub t() Dim SemDecalage As Integer SemDecalage = DatePart("ww", DateSerial(Range("_Annee").Value, 1, 1), vbMonday, vbFirstFourDays) MsgBox SemDecalage End Sub

---

Bonjour Philippe,

merci de te pencher sur le problème.

le code de "NumWeek()" est :

Code:

---

1 2 3

Function NumWeek(Jour As Date) As Integer NumWeek = DatePart("ww", Jour, vbMonday, vbFirstFourDays) End Function

---

Ce qui pose problème est le contenu de "jour".

Ta formule

Code:

---

SemDecalage = DatePart("ww", DateSerial(Range("_Annee").Value, 1, 1), vbMonday, vbFirstFourDays)

---

provoque une "erreur 400".

L'erreur est aussi sur la ligne

Code:

---

MsgBox Range("_Annee").Value

---

alors que dans la fenêtre d'exécution immédiate, il n'y a pas d'erreur.

J'ai supprimé la plage nommée, fermé le classeur, ré-ouvert ce dernier et recréé la plage nommée. Toujours le même problème.

Est-ce un problème de version ?
Sous 2010, je n'avais pas ce problème. Et me souviens d'avoir déjà utilisé "_Annee" sans problème.
J'ai d'ailleurs un problème avec une plage nommée (vieille de 15 ans) qui ne fonctionne plus dans un autre classeur. Mais pour un autre post.

ESVBA

Hello,

je ne reproduis pas l'erreur avec 365, que ce soit avec votre code ou celui de Philippe.
Y'a quoi exactement dans "_Annee" ?
c'est une seule cellule ou un range ?

Bonjour,

Quand on a des erreurs bizarres en VBA (style code qui a toujours fonctionné ne fonctionnant plus) un des premiers réflexes à avoir est de vérifier ses références
dans l'éditeur Visual Basic
Menu Outils - Références
s'il y en a une marquée MANQUANT, ça peut perturber n'importe quel code basique VBA

Bonjour Nain porte quoi (porte, apporte la solution ?:D),

c'est une seule cellule qui est référencée dans une feuille paramétrage comme ceci :
Pièce jointe 660845

Bonjour tototiti2008,
rien de manquant.
Pièce jointe 660846

J'ai fait une réparation du fichier mais ça n'apporte rien.

Je pense à un bug de mon fichier.
Je me vois mal refaire le fichier sans faire de nombreuses, très nombreuses copies d'éléments et donc importer le "bug".

Le bug est de localiser le problème pour éviter de l'importer.

Si vous avez une idée.

Merci.

ESVBA

OK, mais vous avez oublié une question

Citation:

---

Y'a quoi exactement dans "_Annee" ?

---

Bonjour,

Oui, il semble que l'erreur 400 montre un fichier corrompu, d'une manière ou d'une autre
Difficile de t'aider sans disposer du fichier

je reviens sur mon problème.

Nain porte koi, c'est un nombre qui représente l'année gérée.
A partir de cette valeur de l'année, les dates sont générées et les comparaisons sont faites.


J'ai le même problème avec le fichier au format xlsx.

Maintenant, comment faire pour éviter de réimporter un bug dans un nouveau fichier ?

J'ai déjà fait cela sur un autre fichier, en réimportant des morceaux et ça n'a pas améliorer les choses. Bilan : des dizaines d'heures perdues pour rien.

ESVBA

Je tenterai un turyuc... Ouvrir avec libreoffice, l'enregistrer en .ods, l'ouvrir et faire excel et tester