Discussion :

[noftal]

Bonjour,
J'ai une fonction dans un module VBA d'un fichier qui est censée récupérer l'année à 4 chiffres qui se trouve dans le nom du dit fichier.
PAr exemple, si mon fichier s'appelle "Relevé 2022.xlsm" alors la fonction RenvoieNomFichier donne "2022".
Et pour que ce nombre puisse être traité comme un nombre, je déclare la fonction comme integer

Code :

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

1
2
3
4
5
6
7
8
 
Function RenvoieNomFichier() As Integer
' Sans l'extension (4 derniers caractères)
Dim temp As String
temp = ThisWorkbook.Name
RenvoieNomFichier = Mid(temp, 8, Len(temp) - 12)
 
End Function

Dans une cellule j'ai écrit la formule

Code :

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

1
2
 
="Réalisé " & RenvoieNomFichier()

Quand je tape la formule et que je la valide j'obtiens bien "Réalisé 2022"

Mais si je quitte la fichier après l'avoir enregistré et que je le rouvre, alors j'obtiens "Réalisé Relevé2022." (avec un point) dans la cellule où se trouve la formule
Si je double-clique sur la cellule et que je valide, alors le résultat correct s'affiche.

Comment faire en sorte que le résultat correct s'affiche dès l'ouverture du fichier ?

[Philippe Tulliez]

Bonjour,
C'est curieux car je ne vois pas où se situe le problème. J'ai testé votre fonction et cela fonctionne parfaitement. J'ai également testé en désactivant le calcul automatique.
Ceci étant dit, il est possible de faire cette extraction sans passer par du VBA. La fonction CELLULE avec comme le paramètre nomfichier renvoie le nom et le chemin complet du fichier. C'est un peut plus long à extraire mais cela fonctionne parfaitement

Exemple

Code :

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

=CELLULE("nomfichier";A1)

[noftal]

Merci pour votre réponse.
Votre réponse m'a permis de comprendre que mon problème est lié à l'existence d'un fichier de macro complémentaire .XLA que je charge à chaque utilisation d'Excel (ce fichier comporte des macros VBA que j'utilise souvent). En plus, ce fichier comportait une ancienne version de ma macro RenvoieNomFichier ce qui explique l'affichage "Réalisé Relevé2022." à l'ouverture du fichier
Si je désactive ce complément alors pas de problème
En résumé, il suffisait que je supprime la fonction du fichier XLA et ça marche.

Merci aussi pour le tuyau sur la fonction cellule("nomfichier") que je ne connaissais pas et qui va aussi me permettre de simplifier un certain nombre de choses.