#######################################################################

nbna <- function(ldf) { # ldf : liste de fichiers

#######################################################################

library(gdata)

# si pas de paramètre, on utilise le gestionnaire de fichiers
# pour sélectionner les fichiers à utiliser

if (missing(ldf)) { ldf <- file.choose() }

# pour chacun des fichiers présents dans ld, on affiche le nombre de NA par colonne

for (fic in ldf) {
  cat("Fichier : ",fic,"\n")
  dat <- read.xls(fic)
  print( apply(X=dat,F=function(x) { return(sum(is.na(x))) },M=2) )
} # fin de boucle pour sur fic

} # fin de fonction nbna

# exemples d'utilisation :

nbna("essai.xls")
liste <- c("essai.xls","war2.xls")
nbna(liste)

# not run (comme ils disent) :
#  nbna()