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

8 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
jps
tu aurais quand même pu faire plus simple, LeSteph....
je dis juste ça pour que Cepat me remercie aussi...
jps

"LeSteph" a écrit dans le message de
news:eIbO$
;-) à 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 @+















Avatar
RaMA
Sub lenom()
[A1] = Replace(ActiveWorkbook.Name, ".xls", "")
End Sub

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

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

Dim awbn As String

[a1] = Mid(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
GD
Bonsour® jps
une alternative :
[A1] = Application.Substitute(ActiveWorkbook.Name, ".xls", "")
;o)))
wrote:
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
Bonsoir Jean Paul,
Pardon tu as raison cela mérite explication:
je préfère définir une variabe string (¬tiveworkbook.name)
que de laisser à l'interpréter par VBA ce qu'il doit faire de ActiveWorkbook
Cela raccourci ensuite d'ailleurs l'élément à appeler dans mid.
Sinon Thisworkbook me semble définir le classeur contenant le code et pas
forcément
celui Actif .

Mais peut-être que je complique.
;-)

@+
lSteph

"jps" a écrit dans le message de
news:
tu aurais quand même pu faire plus simple, LeSteph....
je dis juste ça pour que Cepat me remercie aussi...
jps

"LeSteph" a écrit dans le message de
news:eIbO$
;-) à 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 @+


















Avatar
Cepat
Merci aussi à jps c'est parfait pour moi @+

"jps" a écrit dans le message de
news:
tu aurais quand même pu faire plus simple, LeSteph....
je dis juste ça pour que Cepat me remercie aussi...
jps

"LeSteph" a écrit dans le message de
news:eIbO$
;-) à 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 @+


















Avatar
jps
euh....comment dit-on déjà?....attends, cepat, je demande à philippe R...
ah oui, j'y ai : with pleasure
jps

"Cepat" a écrit dans le message de
news:u9RIa%
Merci aussi à jps c'est parfait pour moi @+

"jps" a écrit dans le message de
news:
tu aurais quand même pu faire plus simple, LeSteph....
je dis juste ça pour que Cepat me remercie aussi...
jps

"LeSteph" a écrit dans le message de
news:eIbO$
;-) à 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 @+






















Avatar
Philippe.R
Meu non JP, ç a c'est ce que dit Philip.AR
;o))
--
Amicales Salutations

"jps" a écrit dans le message de news:
%
euh....comment dit-on déjà?....attends, cepat, je demande à philippe R...
ah oui, j'y ai : with pleasure
jps

"Cepat" a écrit dans le message de
news:u9RIa%
Merci aussi à jps c'est parfait pour moi @+

"jps" a écrit dans le message de
news:
tu aurais quand même pu faire plus simple, LeSteph....
je dis juste ça pour que Cepat me remercie aussi...
jps

"LeSteph" a écrit dans le message de
news:eIbO$
;-) à 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 @+

























Avatar
jps
duke of Wales? duke of Edimburgh? chaouche of mpee?
jps

"Philippe.R" a écrit dans le message de
news:eG$
Meu non JP, ç a c'est ce que dit Philip.AR
;o))
--
Amicales Salutations

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

%
euh....comment dit-on déjà?....attends, cepat, je demande à philippe
R...


ah oui, j'y ai : with pleasure
jps

"Cepat" a écrit dans le message de
news:u9RIa%
Merci aussi à jps c'est parfait pour moi @+

"jps" a écrit dans le message
de



news:
tu aurais quand même pu faire plus simple, LeSteph....
je dis juste ça pour que Cepat me remercie aussi...
jps

"LeSteph" a écrit dans le message de
news:eIbO$
;-) à 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