Nom classeur

[bernoto]

Y a t-il possibilité de donner automatiquement à une cellule le nom du classeur dans lequel je travaille ?

 

[Ti]

copie cette fonction dans un module de ton fichier, puis appelle-là ainsi depuis une cellule :
=nomfichier()

Function NomFichier() As String
Application.Volatile
NomFichier = ThisWorkbook.Name
End Function

 

[bernoto]

Que veux tu dire par copier la fonction dans un module du fichier ? Merci pour ta premiere reponse

 

[Vériland]

vite fait avant de repartir...je t'ai mis dans le fichier joint tout ce que Ti t'a expliqué ...tout y est...yapluka...hi hi hi

 

[Jean-Marie]

Bonjour tout le monde

Pas besoin de recette VBA, mais le classeur doit être composé de plusieurs feuilles.

@+Jean-Marie

 

[Ti]

comme tu le dis J-M, ça ne marche pas dans toutes les situations. J'avais pour ma part déjà essayé INFO, mais si ça renvoie le chemin du fichier, ça ne renvoie pas son nom.

 

[GM]

copie cette Procédure dans un module de ton fichier, puis appelle-là

Sub ConcatenerLesChaines()
Dim Message As String, Boutons As Single, Titre As String
Message = "Le nom du document actif est " & Chr(34) & _
ActiveWorkbook.Name & Chr(34) & "."
Boutons = vbInformation + vbOKOnly
Titre = "Concaténation de chaînes"
MsgBox Message, Boutons, Titre
End Sub

 

[Jean-Marie]

Bonjour Ti,

Ce n'est pas dans ta solution avec une fonction VBA, mais dans ma solution avec la fonction excel =cellule("adresse";feuil1!a1), mais cette solution ne nécessite aucune macro.

@+Jean-marie

 

[Ti]

évidemment, je l'entendais bien ainsi : Ma solution a l'avantage de fonctionner dans toutes les situations contrairement à la tienne. Mais j'avais comme toi déjà commencé à chercher une fonction Excel sans succès.

 

[Jean-Marie]

Salut Ti,

Pour moi, je préfère avoir deux feuilles dans mon classeur, et éviter la boîte de dialogue d'ouverture de fichiers avec macros.

Je sais, je sais on peut mettre la protection au mini, mais bon...


@+Jean-marie

 

[Jean-Marie]

Salut Bernoto

Dans les deux cas, soit par la fonction cellule ou par la fontion VBA, il faut relancer un calcul de la feuille en appuyant sur touche F9.

@+Jean-Marie

 

[Vériland]

Bon c'est bien tout çà...mais pour l'instant Bernoto n'a pas encore donné de réponse quant à savoir laquelle des solutions était la mieux concernant sa demande initiale...ce serait bien qu'il donne un avis car à ce rythme va bientôt y avoir une autre solution...pour ma part vos réponses sont correctes....mais je privilégie davantage la réponse de Ti qui dans son principe donne automatiquement le nom dans la cellule...je n'appelle pas cela une macro, mais plutôt une fonction...bien sûr c'est inscrit dans VBA, mais c'est pas une macro "à la dure"...c'est actif dès l'ouverture c'est tout...sont pas si dangereuses que ça les macros...

 

[Ti]

Vous avez remarqué, ces jours-ci, pratiquement tous ceux qui ont récemment posé des questions auxquelles on a répondu, n'ont jamais donné signe de vie depuis. Par contre les commentaires vont bon train entre les différentes solutions (et c'est très bien ainsi, on voit au moins qu'il n'existe pas qu'une seule solution pour un problème donné), n'est-ce pas Vincent ;-))
Pour en revenir à la question ci-dessus, moi je garderais pour le cas présent ma solution, mais j'ai mis dans un petit coin de ma tête celle de Jean-Marie qui pourra resservir à l'occasion. Moi aussi, j'aime bien faire des trucs sans macro chaque fois que je le peux

 

[Vériland]

Oui oui...Thierry...Ephemere60...j'attends toujours...lol...

 

[bernoto]

j'ai utilisé la formule =DROITE(cellule("nomfichier");6) qui semblait le mieux convenir à ma question, mais elle ne marche plus lorsque je duplique les classeurs.
Les solutions de Jean-marie,GM et TI fonctionnent et me conviennent.
Je ne peux que les remercier de m'avoir repondu aussi vite et efficacement.
Salut à tous