Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Nom de fichier dans celulle

Nom de fichier dans celulle

18 réponses
Avatar
Cepat
Bonsoir à toute la communauté Excel

Mon Pb est: comment récupérer en VBA le nom du classeur actif dans une
cellule A1 en enlevant le .XLS

Merci par avance @+
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Dédé
Salut Cepat !
Sans passer par VBA, essaie cette formule :
=GAUCHE(STXT(CELLULE("nomfichier";A1);TROUVE("[";CELLULE("nomfichier";A1))+1
;99);NBCAR(STXT(CELLULE("nomfichier";A1);TROUVE("[";CELLULE("nomfichier";A1)
)+1;99))-(NBCAR(STXT(CELLULE("nomfichier";A1);TROUVE("[";CELLULE("nomfichier
";A1))+1;99))-TROUVE("]";STXT(CELLULE("nomfichier";A1);TROUVE("[";CELLULE("n
omfichier";A1))+6;99))))

à copier sur une seule ligne !

"Cepat" a écrit dans le message de
news:
Bonsoir à toute la communauté Excel

Mon Pb est: comment récupérer en VBA le nom du classeur actif dans une
cellule A1 en enlevant le .XLS

Merci par avance @+




Avatar
Dédé
Autre solution de Chris !

=STXT(CELLULE("filename");TROUVE("[";CELLULE("filename"))+1;SOMME(TROUVE({"[
";"]"};CELLULE("filename"))*{-1;1})-5)

A copier aussi sur une seule ligne ...

Dédé
"Cepat" a écrit dans le message de
news:
Bonsoir à toute la communauté Excel

Mon Pb est: comment récupérer en VBA le nom du classeur actif dans une
cellule A1 en enlevant le .XLS

Merci par avance @+




Avatar
Dédé
Ou bien par VBA ...
Private Sub Worksheet_SelectionChange(ByVal Dédé As Range)
[A1].Value = ActiveWorkbook.Name
End Sub

Est-ce que toutes ces solutions te conviennent ?

Dédé (qui ne manque pas de te faire part de ses salutations ;-)))
"Dédé" a écrit dans le message de
news:
Salut Cepat !
Sans passer par VBA, essaie cette formule :

=GAUCHE(STXT(CELLULE("nomfichier";A1);TROUVE("[";CELLULE("nomfichier";A1))+1


;99);NBCAR(STXT(CELLULE("nomfichier";A1);TROUVE("[";CELLULE("nomfichier";A1)

)+1;99))-(NBCAR(STXT(CELLULE("nomfichier";A1);TROUVE("[";CELLULE("nomfichi
er


";A1))+1;99))-TROUVE("]";STXT(CELLULE("nomfichier";A1);TROUVE("[";CELLULE("n

omfichier";A1))+6;99))))

à copier sur une seule ligne !

"Cepat" a écrit dans le message de
news:
Bonsoir à toute la communauté Excel

Mon Pb est: comment récupérer en VBA le nom du classeur actif dans une
cellule A1 en enlevant le .XLS

Merci par avance @+








Avatar
RaMA
Bonsoir
[A1] = ThisWorkbook.Name
Salutations
RaMa
--
.
"Cepat" a écrit dans le message de news:

Bonsoir à toute la communauté Excel

Mon Pb est: comment récupérer en VBA le nom du classeur actif dans une
cellule A1 en enlevant le .XLS

Merci par avance @+



Avatar
LeSteph
Bonsoir Cepat,

Donc en VBA:
'*******
Sub metlnom()

Dim awbn As String

awbn = ActiveWorkbook.Name
[a1] = Mid(awbn, 1, Len(awbn) - 4)

End Sub
'*******
'ou bien en fonction
'**********
Function lenom()
Dim awbn As String

awbn = ActiveWorkbook.Name
lenom = Mid(awbn, 1, Len(awbn) - 4)
End Function
'*******
'lSteph
"Cepat" a écrit dans le message de news:

Bonsoir à toute la communauté Excel

Mon Pb est: comment récupérer en VBA le nom du classeur actif dans une
cellule A1 en enlevant le .XLS

Merci par avance @+



Avatar
Cepat
Merci LeSteph c'est parfait pour moi @+

"LeSteph" a écrit dans le message de news:
%
Bonsoir Cepat,

Donc en VBA:
'*******
Sub metlnom()

Dim awbn As String

awbn = ActiveWorkbook.Name
[a1] = Mid(awbn, 1, Len(awbn) - 4)

End Sub
'*******
'ou bien en fonction
'**********
Function lenom()
Dim awbn As String

awbn = ActiveWorkbook.Name
lenom = Mid(awbn, 1, Len(awbn) - 4)
End Function
'*******
'lSteph
"Cepat" a écrit dans le message de news:

Bonsoir à toute la communauté Excel

Mon Pb est: comment récupérer en VBA le nom du classeur actif dans une
cellule A1 en enlevant le .XLS

Merci par avance @+







Avatar
jps
le monsieur, il avait dit sans xls, Rama...
pas normal ça de ne pas mieux suivre...
heureusement que LeSteph et moi veillons

[A1] = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)


"RaMA" a écrit dans le message de
news:
Bonsoir
[A1] = ThisWorkbook.Name
Salutations
RaMa
--
.
"Cepat" a écrit dans le message de news:

Bonsoir à toute la communauté Excel

Mon Pb est: comment récupérer en VBA le nom du classeur actif dans une
cellule A1 en enlevant le .XLS

Merci par avance @+







Avatar
RaMA
tu as raison
c'est pas une mais deux fautes que j'ai commises
faute de jeunesse ou mon beaujolais qui était trop nouveau

--
.
"jps" a écrit dans le message de
news:
le monsieur, il avait dit sans xls, Rama...
pas normal ça de ne pas mieux suivre...
heureusement que LeSteph et moi veillons

[A1] = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)


"RaMA" a écrit dans le message de
news:
Bonsoir
[A1] = ThisWorkbook.Name
Salutations
RaMa
--
.
"Cepat" a écrit dans le message de news:

Bonsoir à toute la communauté Excel

Mon Pb est: comment récupérer en VBA le nom du classeur actif dans une
cellule A1 en enlevant le .XLS

Merci par avance @+










Avatar
jps
:-))))))
jps

"RaMA" a écrit dans le message de
news:
tu as raison
c'est pas une mais deux fautes que j'ai commises
faute de jeunesse ou mon beaujolais qui était trop nouveau

--
.
"jps" a écrit dans le message de
news:
le monsieur, il avait dit sans xls, Rama...
pas normal ça de ne pas mieux suivre...
heureusement que LeSteph et moi veillons

[A1] = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)


"RaMA" a écrit dans le message de
news:
Bonsoir
[A1] = ThisWorkbook.Name
Salutations
RaMa
--
.
"Cepat" a écrit dans le message de news:

Bonsoir à toute la communauté Excel

Mon Pb est: comment récupérer en VBA le nom du classeur actif dans
une




cellule A1 en enlevant le .XLS

Merci par avance @+














Avatar
LeSteph
;-) à bientôt

"Cepat" a écrit dans le message de news:

Merci LeSteph c'est parfait pour moi @+

"LeSteph" a écrit dans le message de news:
%
Bonsoir Cepat,

Donc en VBA:
'*******
Sub metlnom()

Dim awbn As String

awbn = ActiveWorkbook.Name
[a1] = Mid(awbn, 1, Len(awbn) - 4)

End Sub
'*******
'ou bien en fonction
'**********
Function lenom()
Dim awbn As String

awbn = ActiveWorkbook.Name
lenom = Mid(awbn, 1, Len(awbn) - 4)
End Function
'*******
'lSteph
"Cepat" a écrit dans le message de news:

Bonsoir à toute la communauté Excel

Mon Pb est: comment récupérer en VBA le nom du classeur actif dans une
cellule A1 en enlevant le .XLS

Merci par avance @+











1 2