Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase	
	Dim doc As NotesDocument
	Dim body As NotesRichTextItem
	Dim rtnav As NotesRichTextNavigator
	Dim rtt As NotesRichTextTable
	Dim rtRangeTable As NotesRichTextRange
	Dim rtRangeCell As NotesRichTextRange
	Dim rtNavTable As NotesRichTextNavigator
	Dim rtNavCell As NotesRichTextNavigator
	
	Dim cellCounter As Integer
	
	Set db = session.CurrentDatabase
	
	Dim view As NotesView
	Set view = db.GetView("ConvertionsCat")
	Set doc = view.GetDocumentByKey("Caduciel", True)	
	
	Set body = doc.GetFirstItem("Fichiers")		
	Set rtnav = body.CreateNavigator
	Set rtRangeCell = body.CreateRange		
	cellCounter =  0 
	Call rtnav.FindFirstElement(RTELEM_TYPE_TABLECELL)
	Do		
		cellCounter = cellCounter +  1 
		If cellCounter =  5  Then			
			Call rtRangeCell.SetBegin(rtNav)			
			Call rtRangeCell.SetEnd(rtNav)
			Set rtNavCell = rtRangeCell.Navigator			
			flag =  rtNavCell.FindFirstElement(RTELEM_TYPE_FILEATTACHMENT)
			While flag								
				Dim rtobj As NotesEmbeddedObject			
				Set rtobj = rtNavCell.GetElement			
				
				If rtobj.Type = EMBED_ATTACHMENT Then	Msgbox rtobj.Source				
				flag = rtNavCell.FindNextElement(RTELEM_TYPE_FILEATTACHMENT)		
			Wend
		End If		
	Loop While rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
End Sub