Discussion :

[MPaco]

Bonjour à tous,

J’ai un souci avec une procédure qui me génère une erreur 1004. En revanche au pas à pas ça passe sans problème.

Je souhaite mettre à jour deux champs nommés à la fermeture du fichier.
Pour ce faire, je lance la procédure suivante à la fermeture

Code :

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

1
2
3
4
5
 
Public Sub Update()
    	ActiveWorkbook.Names.Add Name:="Liste_1", RefersToR1C1:="='[Macros_Support.xla]Feuil1'!R1C2:R1C5"
   	ActiveWorkbook.Names.Add Name:="Liste_2", RefersToR1C1:="=OFFSET('[Macros_Support.xla]Feuil1!R1C1,1,MATCH(Option!R1C1, Liste_1,0),OFFSET('[Macros_Support.xla]Feuil1!R10C1,0,MATCH(Option!R1C1,Liste_1,0),1,1),1)"
End Sub

A la fermeture, VBA bloque sur le deuxième nom (erreur 1004). Une petite pression sur F8 et ça passe.

J’ai essayé plusieurs modifications qui n’ont rien solutionnées ; j’ai même essayé de mettre une pose de 10sec, juste après l’assignation du premier nom, sans succès.

Es-ce que quelqu’un a des idées sur la cause de cette erreur 1004.
Je sèche complètement

Merci d’avance

[pgz]

Bonjour.

Question bête, puisque c'est une mise à jour, tu supprimes les anciens noms avant de les ajouter?

PGZ

[MPaco]

bonjour,

Oui j'ai au préalable supprimé les deux champs nommés.

[pgz]

Re,

Essaie avec des expressions RefersTo plus simples pour voir si le pb vient d'une difficulté à les évaluer.

PGZ

[MPaco]

J'ai déjà testé, l'erreur est toujours présente.
J'avais aussi testé en remplaçant les noms des feuilles par des variables string, mais ça n'a rien donnée.

[MPaco]

Il semblerai que le problème proviendrait de la fonction "OFFSET" mais je ne sais pas ce qui cloche.

[Pierre Fauconnier]

bonjour

A tout le moins, il manque l'apostrophe fermante avant le point d'exclamation qui suit le nom de la feuille...

Code :

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

ActiveWorkbook.Names.Add Name:="Liste_2", RefersToR1C1:="=OFFSET('[Macros_Support.xla]Feuil1'!R1C1,1,MATCH(Option!R1C1, Liste_1,0),OFFSET('[Macros_Support.xla]Feuil1'!R10C1,0,MATCH(Option!R1C1,Liste_1,0),1,1),1)"

[MPaco]

Merci, j'ai rajouté les apostrophes, mais ça ne change rien.

[MPaco]

Merci à tous pour votre aide, et en particulier à Pierre

En fait l'apostrophe était bien une des erreurs.
Cepedant le problème de fond était que Excel cherchait à faire le calcul de la formule et du fait retournait une erreur.

J'ai résolu le problème de la façon suivante:

Code :

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

1
2
3
4
5
6
7
8
 
Public Sub Update()
        Application.Calculation = xlCalculationManual
        ActiveWorkbook.Names.Add Name:="Liste_1", RefersToR1C1:="='[Macros_Support.xla]Feuil1'!R1C2:R1C5"
        Application.Calculate  	
        ActiveWorkbook.Names.Add Name:="Liste_2", RefersToR1C1:="=OFFSET('[Macros_Support.xla]Feuil1!R1C1,1,MATCH('Option'!R1C1, Liste_1,0),OFFSET('[Macros_Support.xla]Feuil1!R10C1,0,MATCH('Option'!R1C1,Liste_1,0),1,1),1)"
        Application.Calculation = xlCalculationAutomatic
End Sub

En espérant que cela puisse aider les futurs personnes qui rencontreront la même difficulté.