gclGridFS est un mongoGridFS
sFic est une chaîne = fSélecteur("", "", "Sélectionnez le fichier à envoyer dans GridFS", ...
"Tous les fichiers (*.*)" + TAB + "*.*", "", fselOuvre)
SI sFic <> "" ALORS
gclGridFS.EnvoieFichier(sFic, fExtraitChemin(sFic, fFichier + fExtension))
ToastAffiche("Envoi terminé avec succès.")
FIN