Discussion :

[Arkning]

Bonjour,

J'ai un fichier excel que nous allons nommé "Base" qui contient des données qui sont dans l'ordre alphabétique :

Code :

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

1
2
3
4
 
df <- data.frame("Base" = c("A", "B"))
f1 <- data.frame("A" = "1", "B" = "2", "C" = "3")
f2 <- data.frame("A" = "9", "B" = "8", "C" = "7")

Voici ce que je fait et j'aimerais savoir comment je pouvais l'optimiser pour ne pas traiter chaque fichier un par un mais tous en même temps.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
library(readxl)
library(tibble)
library(xlsx)
 
base <- read_excel("./Classeur2.xlsx", sheet = 1)
f1 <- read_excel("./Classeur_A.xlsx", sheet = 1)
f2 <- read_excel("./Classeur_B.xlsx", sheet = 1)
 
f1 <- add_column(f1, RETOUR = NA, .before = "A")
f2 <- add_column(f2, RETOUR = NA, .before = "A")
write.xlsx2(as.data.frame(f1), "./Classeur2.xlsx", row.names = FALSE, append = TRUE, sheetName = "A")
write.xlsx2(as.data.frame(f2), "./Classeur2.xlsx", row.names = FALSE, append = TRUE, sheetName = "B")
sheetname <- "Feuil1"
file <- "./Classeur2.xlsx"
wb <- loadWorkbook(file)
sheets <- getSheets(wb)
sheet <- sheets[[sheetname]]
rows <- getRows(sheet, rowIndex = 2:(nrow(base) + 1))
cells <- getCells(rows, colIndex = 1:ncol(base))
print(cells)
addHyperlink(cells[[1]], "A!A1", linkType="DOCUMENT")
addHyperlink(cells[[2]], "B!A1", linkType="DOCUMENT")
saveWorkbook(wb, file)
 
sheetname <- "A"
file <- "./Classeur2.xlsx"
wb <- loadWorkbook(file)
sheets <- getSheets(wb)
sheet <- sheets[[sheetname]]
rows <- getRows(sheet, rowIndex = 1:(nrow(f1) + 1))
cells <- getCells(rows, colIndex = 1:ncol(f1))
addHyperlink(cells[[1]], "Feuil1!A1", linkType="DOCUMENT")
saveWorkbook(wb, file)
 
sheetname <- "B"
file <- "./Classeur2.xlsx"
wb <- loadWorkbook(file)
sheets <- getSheets(wb)
sheet <- sheets[[sheetname]]
rows <- getRows(sheet, rowIndex = 1:(nrow(f2) + 1))
cells <- getCells(rows, colIndex = 1:ncol(f2))
addHyperlink(cells[[1]], "Feuil1!A1", linkType="DOCUMENT")
saveWorkbook(wb, file)

Cordialement,

Arkning

[mgdondon]

Bonjour,

Votre programme fonctionne très bien. Vous pouvez l'automatiser en définissant une ou plusieurs fonctions.

Voici un exemple pour l'ajout des fichiers.

Code :

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

1
2
3
library(readxl)
library(tibble)
library(xlsx)

En me calquant sur votre programme :

Code :

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

1
2
3
4
5
6
7
8
ajout <- function(fic){
  assign(paste0("f_",fic), read_excel(paste0("./Classeur_",fic,".xlsx"), sheet = 1))
  assign(paste0("f_",fic), add_column(get(paste0("f_",fic)), RETOUR = NA, .before = "A"))
  write.xlsx2(as.data.frame(get(paste0("f_",fic))), "./Classeur2.xlsx", row.names = FALSE, append = TRUE, sheetName = fic)
  }
 
ajout("A")
ajout("B")

Ou plus simplement si vous ne souhaitez pas conserver les objets f_A, f_B :

Code :

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

1
2
3
4
5
6
7
8
ajout <- function(fic){
  f <- read_excel(paste0("./Classeur_",fic,".xlsx"), sheet = 1)
  f <- add_column(f, RETOUR = NA, .before = "A")
  write.xlsx2(as.data.frame(f), "./Classeur2.xlsx", row.names = FALSE, append = TRUE, sheetName = fic)
  }
 
ajout("A")
ajout("B")

Je vous laisse faire de même pour la suite de votre programme.

Vous pourrez ensuite appliquer ces fonctions à tous les fichiers d'un répertoire (voir cette discussion).

Cordialement,