diff --git a/panels/dataInput.R b/panels/dataInput.R
index 7879eb61c200cf36b1b0dcd39f126a183391b686..8e1bf22830f2dc0bb313455f50295ed92e008ef5 100644
--- a/panels/dataInput.R
+++ b/panels/dataInput.R
@@ -118,12 +118,14 @@ observeEvent(input$okData, {
         input$dataset,
         "demo" =
           {
+            message <- as.character(input$demo)
             data(GlobalPatterns)
             load("demo/demo.RData")
             get(input$demo)
           },
         "input" =
           {
+            message <- as.character(input$fileBiom$name)
             d <- .import_biom(input)
             ## Format tax table
             tax_table(d) <- .format_tax_table(tax_table(d))
@@ -145,6 +147,7 @@ observeEvent(input$okData, {
           },
         "rdata" =
           {
+            message <- as.character(input$fileRData$name)
             ne <- new.env()
             if (!is.null(input$fileRData))
               {load(input$fileRData$datapath, envir = ne)}
@@ -157,6 +160,7 @@ observeEvent(input$okData, {
     )
   
   if (class(physeq()) == "phyloseq") {
+    message(paste("[Easy16S] Correct upload with", input$dataset, "mode :", message))
     removeModal()
   } else {
     showModal(dataInput(failed = TRUE))