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 ActiveWorkbook.name

ActiveWorkbook.name

1 réponse
Avatar
Érico
Salut,

Est-ce possible d'avoir la m=EAme formule sans l'extension?
ActiveWorkbook.name

Je veux la mettre dans une macro et l'appliquer le nom du=20
fichier dans le filtre et la voici:


Range("A3").Select
Selection.Copy
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.AutoFilter Field:=3D1,=20
Criteria1:=3DActiveWorkbook.Name, Operator:=3DxlAnd
ActiveCell.Offset(2, -2).Range("A1").Select
Application.CutCopyMode =3D False
End Sub


>Bonsoir =C9rico,
>
>Toutes versions d'excel confondues !
>
>Sub test()
> Dim A as string
> A =3D ActiveWorkbook.Name
> MsgBox left(A,Len(A)-4)
>End Sub
>
>
Signaler un problème avec ce contenu

1 réponse

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
Avatar
Jean-François Aubert
Salut Erico,
Ai-je bien compris ?

Books = ActiveWorkbook.Name
Book = Left(Books, Len(Books) - 4)
Range("A3").Select
Selection.Copy
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.AutoFilter Field:=1, Criteria1:=Book , Operator:=xlAnd
ActiveCell.Offset(2, -2).Range("A1").Select
Application.CutCopyMode = False


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Érico" a écrit dans le message de
news:003d01c3463f$55f09520$
Salut,

Est-ce possible d'avoir la même formule sans l'extension?
ActiveWorkbook.name

Je veux la mettre dans une macro et l'appliquer le nom du
fichier dans le filtre et la voici:


Range("A3").Select
Selection.Copy
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.AutoFilter Field:=1,
Criteria1:¬tiveWorkbook.Name, Operator:=xlAnd
ActiveCell.Offset(2, -2).Range("A1").Select
Application.CutCopyMode = False
End Sub


Bonsoir Érico,

Toutes versions d'excel confondues !

Sub test()
Dim A as string
A = ActiveWorkbook.Name
MsgBox left(A,Len(A)-4)
End Sub