Comparer des noms de fichiers

J'aimerais comparer le nom d'un fichier ouvert par "Open filename" à un autre nom de fichier.

sub Compare()
 If UCase(Left$(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".xls") - 1)) _
 	 = UCase("Dupont") Then
   MsgBox "Même fichier"
   Else: MsgBox "Fichier différents"
   End If
 end sub

Auteur :

Mots clefs associés à cette page : , ,