Discussion :

[ESVBA]

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 :

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

  ? Range("_Annee").Value

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

Code :

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

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

[Philippe Tulliez]

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 :

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

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

[ESVBA]

Bonjour Philippe,

merci de te pencher sur le problème.

le code de "NumWeek()" est :

Code :

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

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 :

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

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

provoque une "erreur 400".

L'erreur est aussi sur la ligne

Code :

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

 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

[Nain porte koi]

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 ?

[tototiti2008]

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

[ESVBA]

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

c'est une seule cellule qui est référencée dans une feuille paramétrage comme ceci :


Bonjour tototiti2008,
rien de manquant.


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

[Nain porte koi]

OK, mais vous avez oublié une question

Y'a quoi exactement dans "_Annee" ?

[tototiti2008]

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

[ESVBA]

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

[Nain porte koi]

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