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

Fermé
nicroq - 8 oct. 2015 à 22:42
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 8 oct. 2015 à 23:31
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




A voir également:

1 réponse

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
8 oct. 2015 à 23:31
Bonjour,

En début de ton code tu mets :
If [A1].Value <> Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1) Then Exit Sub
0