<pre data-code-wrap="r"><code class="lang-r">library(readxl)
chemin <- "fichier.xlsx"
feuilles <- excel_sheets(chemin)
liste_df <- lapply(feuilles, function(f) read_excel(chemin, sheet = f))
names(liste_df) <- feuilles
</code></pre>
<p>Ou avec openxlsx :</p>
<pre data-code-wrap="r"><code class="lang-r">library(openxlsx)
liste_df <- lapply(getSheetNames("fichier.xlsx"), function(f) read.xlsx("fichier.xlsx", sheet = f))
</code></pre>