XL 2019 Problème de Noms

ThierryP · 1 Juin 2024

Bonsoir le forum,

Un truc étrange vient de me tomber dessus et je n'arrive pas à comprendre, donc me voici en train d'appeler au secours !
Dans un fichier sur lequel je travaille depuis quelques jours, j'ai un certain nombre de plages / cellules nommées sur différents onglets, que j'utilise dans diverses macros. Jusqu'à il y 1 heure environ, tout se passait bien.... Maintenant, chaque fois que je fais un appel type Range("Truc"), j'ai un beau message d'erreur "Variable objet ou etc....".
Pourtant, si je fais un debug.print des noms de mon fichier, ils sont tous là, avec leur adresse et tout et tout......

Si quelqu'un a un bout de début de commencement d'idée, qu'il en soit remercié !!!

ThierryP · 2 Juin 2024

Finalement, j'ai reconstruit mes tables de noms, tout re-fonctionne mais je ne m'explique toujours pas ce qui a pu se produire.... Il n'est pas non plus exclu que le problème ait été quelque part entre la chaise et l'écran....

Merci à tous ceux qui se sont penchés sur mon souci (et encore une fois désolé Bernard !)

Cousinhub · 1 Juin 2024

Bonsoir,
Regarde au niveau des références dans le VBE, s'il n'y a pas un "Manquant"

Dranreb · 1 Juin 2024

Bonjour.
Nous on le trouverait, très probablement, ce qui ne va pas, si vous nous en donniez la possibilité …

ThierryP · 2 Juin 2024

Cousinhub à dit:
Bonsoir,
Regarde au niveau des références dans le VBE, s'il n'y a pas un "Manquant"

Bonjour Cousinhub,

Merci pour ton retour,.... malheureusement ça aurait été trop simple, rien ne manque

ThierryP · 2 Juin 2024

Dranreb à dit:
Bonjour.
Nous on le trouverait, très probablement, ce qui ne va pas, si vous nous en donniez la possibilité …

Bonjour Bernard,

je sais... mais je ne l'ai pas fait pour deux raisons, un le temps d'anonymiser le fichier et deux quand je viens sur le forum, c'est plus pour apprendre à pêcher que pour avoir un poisson et je me suis dit qu'il pouvait y avoir une raison "générique" et pas spécialement liée à mon fichier...

Encore plus étrange...... Hier soir, j'avais cette liste de noms dans mon fichier :
Admin1 - =Parametres!$L$3 -
Admin2 - =Parametres!$L$4 -
Adresse - =Parametres!$L$2 -
Agents - =OFFSET(Parametres!$A$2,,,COUNTA(Parametres!$A$2:$A$999998)) -
Domaine - =Parametres!$N$2 -
Initialisation - =Parametres!$TP$1 -
Jour - =Parametres!$Z$2:$Z$7 -
Securite - =Parametres!$TP$2 -
Statut - =OFFSET(Parametres!$G$2,,,COUNTA(Parametres!$A$2:$A$999998)) -
User - =Log!$TP$1952 -

Ce matin, j'ouvre le fichier et voici ce que j'ai comme noms :
Suivi Pointage 2024.xlsm
Admin1 - =Parametres!$L$3 - 00:00:00
Admin2 - =Parametres!$L$4 - 00:00:00
Adresse - =Parametres!$L$2 - 00:00:00
Domaine - =Parametres!$N$2 - 00:00:00

Je ferme le fichier sans sauvegarder, je l'ouvre à nouveau et là je n'ai plus aucun nom
Du coup, mon fichier en P.J. (ou du moins ce qu'il en reste !!)

Si quelqu'un a une idée, parce que là le peu de neurones qui me reste est train de surchauffer !!!

Merci d'avance !

Dranreb · 2 Juin 2024

En essayant d'ouvrir votre fichier, non seulement il ne s'est pas ouvert mais en plus un autre classeur ouvert n'ayant rien à voir s'est fermé sans enregistrer les modifications.

ThierryP · 2 Juin 2024

Je comprends l'emoji..... mais pas le phénomène ! Dans le WorkBook_Open, il y a ceci :

VB:

Private Sub Workbook_Open()
Call ControleUtilisateur
Application.ScreenUpdating = False
Application.EnableEvents = False
Bouge_Enter = Application.MoveAfterReturn
Application.MoveAfterReturn = False
ThisWorkbook.Unprotect
'''''' If Month(Date) =12 Then Feuil1.CB_New_Year.Visible = true Else Feuil1.CB_New_Year.Visible = false
Feuil1.Activate
Feuil2.Visible = xlSheetVeryHidden
Feuil3.Visible = xlSheetVeryHidden
If Feuil1.Range("Initialisation") = "VRAI" Then
    Call Initialisation
    With Feuil3
        .Visible = xlSheetVisible
        .Select
        .Unprotect Feuil1.Range("Securite")
        With .Range("B3")
            .Select
            .Value = Premier_Janvier_Ouvrable(Year(Date))
            Call Calendrier(Year(Date))
        End With
        Feuil1.Activate
        .Visible = xlSheetVeryHidden
    End With
    If Feuil1.Range("A" & Feuil1.Cells.Rows.Count).End(xlUp).Row = 1 Then
        MsgBox "Vous devez maintenant créer la liste des agents."
        Feuil1.Range("A2").Select
        GoTo suite
    End If
End If
suite:
'ThisWorkbook.Protect structure:=True
Application.EnableEvents = True
End Sub

A aucun moment je ne ferme Excel...
Dans la macro ControleUtilisateur, il y a ceci :

Code:

Sub ControleUtilisateur()
Dim NomUser As String
NomUser = String(100, Chr$(0))
GetUserName NomUser, 100
Utilisateur = UCase(Left$(NomUser, InStr(NomUser, Chr$(0)) - 1))
Application.EnableEvents = False
Range("User") = Utilisateur
Application.EnableEvents = True
End Sub

La macro "Initialisation" est un peu longue, je ne la mets pas dans ce message, mais en tous cas Excel ne devrait pas se fermer !

job75 · 2 Juin 2024

Bonjour à tous,

ThierryP à dit:
je n'ai plus aucun nom

Ils sont masqués, probablement par une de vos nombreuses macros.

Pour les afficher exécutez ce code :

VB:

Sub a()
Dim nom As Name
For Each nom In ThisWorkbook.Names
nom.Visible = True
Next
End Sub

Je n'ai pas eu le problème de Dranreb mais la macro Workbook_Open plante sur le nom "Initialisation" qui est défini sur un autre classeur.

A+

ThierryP · 2 Juin 2024

PS : la macro Calendrier ne fait que créer un calendrier dans l'onglet "Modele", mais rine de plus !

ThierryP · 2 Juin 2024

job75 à dit:
Bonjour à tous,

Ils sont masqués, probablement par une de vos nombreuses macros.

Pour les afficher exécutez ce code :

VB:

Sub a() Dim nom As Name For Each nom In ThisWorkbook.Names nom.Visible = True Next End Sub

Je n'ai pas eu le problème de Dranreb mais la macro Workbook_Open plante sur le nom "Initialisation" qui est défini sur un autre classeur.

A+

Bonjour Job75,
Oui tous ces noms sont masqués, c'est normal... Ce qui l'est moins c'est de les voir en faisant un debug.print, mais que mes macros plantent en faisant appel à ces noms !

job75 · 2 Juin 2024

Dans la feuille "Parametres", macro Worksheet_BeforeDoubleClick :

- Range doit obligatoirement définir une plage dans cette feuille

- or pour Range("Initialisation") le nom est défini dans un autre classeur => bug

- or pour Range("User") le nom est défini dans la feuille "Log" => bug.

Il faut donc préciser le classeur et la feuille, éventuellement utiliser Evaluate.

ThierryP · 2 Juin 2024

Finalement, j'ai reconstruit mes tables de noms, tout re-fonctionne mais je ne m'explique toujours pas ce qui a pu se produire.... Il n'est pas non plus exclu que le problème ait été quelque part entre la chaise et l'écran....

Merci à tous ceux qui se sont penchés sur mon souci (et encore une fois désolé Bernard !)

ThierryP · 2 Juin 2024

job75 à dit:
Dans la feuille "Parametres", macro Worksheet_BeforeDoubleClick :

- Range doit obligatoirement définir une plage dans cette feuille

- or pour Range("Initialisation") le nom est défini dans un autre classeur => bug

- or pour Range("User") le nom est défini dans la feuille "Log" => bug.

Il faut donc préciser le classeur et la feuille, éventuellement utiliser Evaluate.

Merci pour le retour Job75 !
Oui, je m'étais aperçu du souci mais j'avais déjà publié mon classeur.
toujours tourner 7 fois sa souris sur le tapis avant de cliquer !!

XL 2019 Problème de Noms

ThierryP

XLDnaute Occasionnel

ThierryP

Cousinhub

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

ThierryP

XLDnaute Occasionnel

ThierryP

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

ThierryP

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

ThierryP

XLDnaute Occasionnel

ThierryP

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

ThierryP

XLDnaute Occasionnel

ThierryP

XLDnaute Occasionnel

Discussions similaires