Aide à l'exemplarisation

'(Declarations)
Dim Code_barre
Dim Cote
Dim k
Dim QuestionL035
Dim L035
Dim Retro
'End of (Declarations)

Function InsereExemplaire(num)
	Application.ActiveWindow.NoviceMode False
	Application.ActiveWindow.Command "cre e0" & num + 1
	Application.ActiveWindow.Title.InsertText "e0" & num + 1 & "$bx" & vbCrLf
	Application.ActiveWindow.Title.InsertText "915 ##$b" & Code_barre & vbCrLf
	Application.ActiveWindow.Title.InsertText "930 ##$b830622101$dEspace Lettres$a" & Cote &"$ju" & vbCrLf
	If Retro = vbYes Then
   Application.ActiveWindow.Title.InsertText "991 ##$aRetroToulonCentrale"
	End If
	Application.ActiveWindow.SimulateIBWKey "FR"
End Function

Sub PC_ChercheNbreExemplaires()

 Code_barre = InputBox("Entrez le code barre", "Code barre")
 
 If Code_barre =vbCancel Then
	MsgBox "Vous avez choisi de ne pas mettre de code barre." & Chr(13) & "Le programme va se terminer.", "Abandon"
	Application.activeWindow.command "aff unm"
	Exit Sub
 End If
 
 Cote = InputBox("Entrez la cote", "Cote")
 
 If Cote =vbCancel Then
	MsgBox "Vous avez choisi de ne pas mettre de cote." & Chr(13) & "Le programme va se terminer.", "Abandon"
	Application.activeWindow.command "aff unm"
	Exit Sub
 End If
 
 QuestionL035 = MsgBox("Avez-vous besoin d'un L035 ?",292,"L035")
 If QuestionL035 = vbYes Then
  L035 = InputBox("Entrez le L035", "L035")
 End If
  
 Retro = MsgBox("RetroToulonCentrale : cliquez Oui si nécessaire",292,"991")

 If Application.ActiveWindow.Title Is Nothing Then
  Application.ActiveWindow.Command "mod",False
 End If
 
 Exemplaire = Application.ActiveWindow.Title.FindTag("E0")
 If Exemplaire = "" Then
 Call InsereExemplaire(0)
 Else
  For k = 1 To 99
   If k < 10 Then
	  Exemplaire = Application.ActiveWindow.Title.FindTag("e0" & k)
	  If Not Exemplaire = "" Then
	   Call InsereExemplaire(k)
	   Exit For
	  End If
	 Else
	  Exemplaire = Application.ActiveWindow.Title.FindTag("e" & k)
	  If Not Exemplaire = "" Then
	   Call InsereExemplaire(k)
	   Exit For
	  End If
	 End If
 Next
 End If

End Sub