Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim TestNomFeuill As Variant
Dim nb As Integer
nb = 1
NomFeuill2 = TextBox1.Value
'Windows(NomFichier).Activate
For Each TestNomFeuill In Workbooks
If TestNomFeuill.Name = NomFeuill2 Then
MsgBox 'Ce nom n'est toujours pas valide : il est déjà utilisé', vbCritical, 'Avertissement'
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(Me.TextBox1)
GoTo fin
End If
nb = nb + 1
Next
fin:
AutreFeuill.Hide
MsgBox nb & ' feuilles testées', vbInformation, 'test effectué'
End Sub
En fait, TestNomFeuill.Name ne semble pas fonctionner dans la mesure où je n'ai jamais la valeur 'True'
Ci-joint un fichier pour ceux qui pourraient m'aider :)
Merci
A+
[file name=Classeur23_20050822202012.zip size=13710]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur23_20050822202012.zip[/file]