Discussion :

[stephane.nguessan]

Bonjour a Tous,

jai des fichiers ecxel, d'une feuille de calcul excel chacun, je voudrais rassembler ces fichiers dans un nouveau classeur excel (les fichiers excel deviendront des feuilles de calcul excel dans ce nouveau classeur). comment puis le faire avec R ?

merci d'avance

[xavier-Pierre]

bonjour , tu peux faire comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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(dplyr)
library(purrr) 
library(readxl) 
library(openxlsx) 
 
## on suppose que tous les fichiers xl sont dans 1 dossier , il n'y a que des fichiers xl et le dossier est le répertoire courant
liste_xl <- dir("dossier")  
 
## fonction qui crée une nouvelle feuille  dans l'objet wx et ajoute les données ( x la feuille, y le fichier excel , source des données à intégrer dans la nouvelle feuille)
 
ajouter <-function(x,y,wx){
 addWorksheet(wx,x) 
  writeData(wx,x,read_excel(y))
}
 
wx <- createWorkbook() ## création du fichier final xlsx
 
## fonction walk2 (voir doc du package purrr)
## on crée les feuilles et on les remplit
## premier argument nombres de 1 jusau'au  nombre de fichiers excel de départ , servira pour nommer les feuilles
## deuxième argument liste des fichiers excel
## troisième argument la fonction 
## quatrième argument le fichier final 
## la fonction parcourt les 2 premiers arguments et les appliquent à la fonction ajouter, wx étant identique
 
walk2(1:length(liste_xl),liste_xl,ajouter,wx = wx)
 
saveWorkbook(wx,'fichier_final.xlsx') ## enregistrement du fichier final

[xavier-Pierre]

un peu mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
library(stringr)
#...
wx <- createWorkbook()
## les feuilles ajoutées auront pour nom le nom du fichier moins l'extension (attention le nom du fichier ne doit pas excéder une trentaine de caractères)
ajouter <-function(x,wx){
  feuille=str_remove(x,"\\.[^\\.]+$")
  addWorksheet(wx,feuille) 
  writeData(wx,feuille,read_excel(x))
}
## maintenant on utilise la  fonction walk car il n'y a plus qu'une liste à parcourir
  walk(liste_xl,ajouter,wx = wx)
  saveWorkbook(wx,'fichier_final2.xlsx')