par Michael DELIQUE » 04 Fév 2010 à 15:13
salut
remplace
viewstring= ws.Prompt(PROMPT_OKCANCELLIST,"Liste des vues","Choisissez une
vue","",ShowView )
If Len(viewstring)=0 Then Exit Sub
Set dataview = db.getview(ViewString)
par
Set dataview = ws.currentview.view
Cordialement
Michael (SMS-Phobique)
----------------------------
"La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi."
Albert EINSTEIN