Sub retreiverire
MsgBox ("You must choose the database Rire" )
application.Dialogs(RireMenuVConnect).Open
Sheets("Rire1" ).Select
x = RireVRetrieve("Rire1", Null, 1)
Sheets("rire2" ).Select
x = rireVRetrieve("rire2", Null, 1)
Sheets("FRONT PAGE" ).Select
Range("a1" ).Select*
end sub[fixed]] |