demarer une macro vba si cellule A1 est égale au nom du fichier

[nicroq]

bonsoir a tous et merci pour votre aide

je souhaiterai faire un test avant que ma macro se lance,
je souhaiterai qu'elle verifie si la cellule A1 est égale au nom du fichier .xls.

Par exemple mon fichier s se nomme "test.xls"
chemin : C:\dossier\monfichier\test.xls

donc la suite de ma macro se lance si et seulement si en cellule A1 il y a écrit "test"

en vous remerciant

Cdlt

 

[Staple1600]

Re : demarer une macro vba si cellule A1 est égale au nom du fichier

Bonsoir à tous

nicroq
A tester

Sub a()
If [A1].Text = Split(ThisWorkbook.Name, ".")(0) Then
MsgBox "je lance la macro"
Else
MsgBox "Impossible de poursuivre l'éxécution de la macro!", vbCritical
Exit Sub
End If
End Sub

 

[nicroq]

Re : demarer une macro vba si cellule A1 est égale au nom du fichier

meci staple1600

ca marche nikel !!!!
bon dimanche