Assembler plusieurs fichiers xlsx en un seul

Bonjour,

Je dispose de plusieurs fichiers XLSX contenant chacun une image et un tableau. Je souhaiterais assembler ces fichiers en un seul fichier avec R, en conservant bien sûr le nom des feuillets, l'encodage et le contenu de la feuille . J'utilise habituellement le package openxlsx. J'ai essayé plusieurs choses sans succès avec d'autres packages (xlsx, XLConnect).
Voici en exemple un bout de code pour créer les fichiers XLSX :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

library(openxlsx) library(datasets)   ddf=airquality colnames(ddf)=c("Ozone (µg/m³)","Insolation","Vitesse vent","Température","Mois","Jour") img <- system.file("einstein.jpg", package = "openxlsx")     for (i in 1:3) { wb <- createWorkbook() addWorksheet(wb, sheetName=paste0("tab",i), gridLines = TRUE)   openxlsx::writeData(wb, sheet=paste0("tab",i), x=ddf, startCol = i, startRow = i, xy = NULL, colNames = TRUE, rowNames = FALSE)   insertImage(wb, sheet=paste0("tab",i), img, startRow = 10, startCol = 10, width = 6, height = 6)   saveWorkbook(wb, paste0("Fichier_",i,".xlsx"), overwrite = TRUE) }

---

En vous remerciant de vos réponses,

Je n'utilise pas encore cette librairie, mais ton problème ne me semble pas trop compliqué.
Il suffit de créer une feuille vierge dans laquelle tu viens greffer les données présentes dans les autres feuilles.
Il faut également t'assurer que les différentes données ne se chevauchent pas.
Quel problème rencontres-tu avec ton code?

Bonjour,

Au départ, je souhaitais créer un fichiers xlsx à partir de 3 fichiers existants. J'ai finalement résolu ce petit souci, en créant d'abord un fichier vide, puis en incrémentant les feuillets avec leurs données/images.
Merci,

Bonjour,

il existe une fonction pour compiler plusieurs sorties R en un fichier Excel.
Une sortie par onglet

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

# Fonction permettant de faire plusieurs sorties de données, un fichier excel (une sortie par feuille) # demande la library(xlsx)   save.xlsx <- function (file, ...) { require(xlsx, quietly = TRUE) objects <- list(...) fargs <- as.list(match.call(expand.dots = TRUE)) objnames <- as.character(fargs)[-c(1, 2)] nobjects <- length(objects) for (i in 1:nobjects) { if (i == 1) write.xlsx(objects[[i]], file, sheetName = objnames[i]) else write.xlsx(objects[[i]], file, sheetName = objnames[i], append = TRUE) } print(paste("Workbook", file, "has", nobjects, "worksheets.")) }   # exporte les données dans 1 seul fichier excel save.xlsx("titrefichier.xlsx",les donnéesR)

---