diff --git a/01_extract_data.R b/01_extract_data.R
index 708e31a..776576a 100644
--- a/01_extract_data.R
+++ b/01_extract_data.R
@@ -165,7 +165,7 @@ full <- do.call("rbind", lapply(seq_len(nrow(indices_texte_ine)), function(idx)
 write.csv(full,
     file.path(
         here(), "data",
-        "aggregated_dataframe_suppdiplome.csv"
+        "01_aggregated_dataframe_suppdiplome.csv"
     ),
     row.names = FALSE
 )
\ No newline at end of file