Observatoire des Entreprises - DIREN

Données - BDF

🇬🇧 English version

Last observation: juil. 2026 (N = 497) · Q2 2026 (N = 282) · 2024 (N = 402) · 30 déc. 2023 (N = 1)

First observation: janv. 1990 (N = 13) · Q1 1990 (N = 282) · 2007 (N = 45) · 7 janv. 2018 (N = 1)

Last data update: 14 sept. 2026, 22:11

Last compile: 14 sept. 2026, 23:23

Structure

FREQ

REF_AREA

DIREN_THECO

DIREN_NATURE

DIREN_OBJET

DIREN_MESURE

ADJUSTMENT

DIREN_SECTACT

DIREN_TAILLENT

UNIT

UNIT_MULT

DECIMALS

Méthodologie

ig_b("bdf", "methode_stat_info_defaillances_9-juin-2016", "taille")

Suivi mensuel des défaillances

• Juin 2023. html / pdf

• Mars 2023. html / pdf

décembre 2021

ig_b("bdf", "def_ent_2244_fr_si_defaillances_202112_fr_vfinale", "defaillances-par-secteur")

Par mois (02)

PE, TP, GE

DIREN |>
  filter(variable %in% c("DIREN.M.FR.DE.UL.DF.02.Y.ZZ.TP",
                         "DIREN.M.FR.DE.UL.DF.02.Y.ZZ.PM",
                         "DIREN.M.FR.DE.UL.DF.02.Y.ZZ.GE",
                         "DIREN.M.FR.DE.UL.DF.02.Y.ZZ.PE")) |>
  ggplot() + geom_line(aes(x = date, y = value, color = variable)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.2, 0.2),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(0, 10000, 1000))

PE - Petites entreprises

DIREN |>
  filter(variable %in% c("DIREN.M.FR.DE.UL.DF.02.Y.ZZ.PE")) |>
  ggplot() + geom_line(aes(x = date, y = value)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 500, 20))

TP - Très petites entreprises

DIREN |>
  filter(variable %in% c("DIREN.M.FR.DE.UL.DF.02.Y.ZZ.TP")) |>
  ggplot() + geom_line(aes(x = date, y = value)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 500, 20))

PC - Poids économique des défaillances en termes de crédits mobilisés

DIREN |>
  
  filter(DIREN_OBJET == "PC",
         !(DIREN_TAILLENT %in% c("NP", "PG", "PY", "GE"))) %>%
  select(where(~ n_distinct(.) > 1) | any_of(c("date", "value", "DIREN_TAILLENT", "Diren_taillent", "Diren_sectact", "DIREN_SECTACT"))) |>
  arrange(desc(date)) |>
  mutate(Diren_taillent = str_wrap(Diren_taillent, width = 35)) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Diren_taillent)) +
  theme_minimal() + xlab("") + ylab("Poids économique des défaillances\nen termes de crédits mobilisés") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 2, 0.1)) +
  theme(legend.position = "bottom",
        legend.title = element_blank()) + guides(color = guide_legend(ncol = 2)) +
  geom_label_repel(data = . %>% group_by(Diren_taillent) %>% filter(date == max(date)),
                   aes(x = date, y = value, color = Diren_taillent, label = DIREN_TAILLENT))

Cumul sur 12 mois (03)

Tous

Hors toutes

DIREN |>
  
  filter(REF_AREA == "FR",
         DIREN_THECO == "DE",
         DIREN_MESURE == "03",
         DIREN_SECTACT == "ZZ",
         DIREN_OBJET == "DF") %>%
  select(where(~ n_distinct(.) > 1) | any_of(c("date", "value", "DIREN_TAILLENT", "Diren_taillent", "Diren_sectact", "DIREN_SECTACT"))) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Diren_taillent)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.3),
        legend.title = element_blank())

Hors microentreprises

data_TTMI <- DIREN |>
  
  filter(REF_AREA == "FR",
         DIREN_THECO == "DE",
         DIREN_MESURE == "03",
         DIREN_SECTACT == "ZZ",
         DIREN_OBJET == "DF",
         DIREN_TAILLENT %in% c("TT", "MI")) %>%
  select(where(~ n_distinct(.) > 1) | any_of(c("date", "value", "DIREN_TAILLENT", "Diren_taillent", "Diren_sectact", "DIREN_SECTACT"))) |>
  select(DIREN_TAILLENT, date, value) |>
  spread(DIREN_TAILLENT, value) |>
  na.omit() |>
  mutate(value = `TT` - `MI`) |>
  select(-`TT`, -`MI`) |>
  mutate(DIREN_TAILLENT = "TT-MI", Diren_taillent = "Ensemble (hors microentreprises)")

data_TTMI |>
  ggplot() + geom_line(aes(x = date, y = value)) +
  theme_minimal() + xlab("") + ylab("Cumul sur 12 mois\nDéfaillances d'entreprises hors microentreprises") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 10000, 200)) +
  geom_label_repel(data = . %>% arrange(-value) %>% head(3), aes(x = date, y = value, label = value))

Nombre défaillances

DIREN |>
  
  filter(REF_AREA == "FR",
         DIREN_THECO == "DE",
         DIREN_MESURE == "03",
         DIREN_SECTACT == "ZZ",
         DIREN_OBJET == "DF",
         !(DIREN_TAILLENT %in% c("TT", "MI", "PM"))) %>%
  select(where(~ n_distinct(.) > 1) | any_of(c("date", "value", "DIREN_TAILLENT", "Diren_taillent", "Diren_sectact", "DIREN_SECTACT"))) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Diren_taillent)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.4),
        legend.title = element_blank())

Nombre défaillances

Pourquoi l’arrêt du calcul PME hors microentreprises ?

DIREN |>
  
  filter(REF_AREA == "FR",
         DIREN_THECO == "DE",
         DIREN_MESURE == "03",
         DIREN_SECTACT == "ZZ",
         DIREN_OBJET == "DF",
         !(DIREN_TAILLENT %in% c("TT"))) %>%
  select(where(~ n_distinct(.) > 1) | any_of(c("date", "value", "DIREN_TAILLENT", "Diren_taillent", "Diren_sectact", "DIREN_SECTACT"))) |>
  select(DIREN_TAILLENT, Diren_taillent, date, value) |>
  group_by(DIREN_TAILLENT) |>
  arrange(date) |>
  mutate(value = 100*value/value[date == as.Date("2009-10-31")]) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Diren_taillent)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.4),
        legend.title = element_blank())

PE

DIREN |>
  filter(variable %in% c("DIREN.M.FR.DE.UL.DF.03.N.ZZ.PE")) |>
  ggplot() + geom_line(aes(x = date, y = value)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 10000, 100))

ME

DIREN |>
  filter(variable %in% c("DIREN.M.FR.DE.UL.DF.03.N.ZZ.ME")) |>
  ggplot() + geom_line(aes(x = date, y = value)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 10000, 100))

IG - Entreprises de taille intermédiaire et grandes entreprises

DIREN |>
  filter(variable %in% c("DIREN.M.FR.DE.UL.DF.03.N.ZZ.IG")) |>
  ggplot() + geom_line(aes(x = date, y = value)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 10000, 5))

TP - TPE

DIREN |>
  filter(variable %in% c("DIREN.M.FR.DE.UL.DF.03.N.ZZ.TP")) |>
  ggplot() + geom_line(aes(x = date, y = value)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 10000, 200))

Facet wrap

Option 1

DIREN |>
  
  filter(REF_AREA == "FR",
         DIREN_THECO == "DE",
         DIREN_MESURE == "03",
         DIREN_SECTACT == "ZZ",
         DIREN_OBJET == "DF",
         DIREN_TAILLENT %in% c("PE", "IG", "TP")) %>%
  select(where(~ n_distinct(.) > 1) | any_of(c("date", "value", "DIREN_TAILLENT", "Diren_taillent", "Diren_sectact", "DIREN_SECTACT"))) |>
  select(DIREN_TAILLENT, Diren_taillent, date, value) |>
  bind_rows(data_TTMI) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Diren_taillent)) +
  theme_minimal() + xlab("") + ylab("Cumul sur 12 mois\nDéfaillances d'entreprises hors microentreprises") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.9),
        legend.title = element_blank()) +
  geom_label_repel(data = . %>%
                     filter(date %in% c(as.Date("2024-03-01"),
                                        as.Date("2024-02-01"),
                                        as.Date("2009-09-01"))), aes(x = date, y = value, label = value, color = Diren_taillent))

Option 2

DIREN |>
  
  filter(REF_AREA == "FR",
         DIREN_THECO == "DE",
         DIREN_MESURE == "03",
         DIREN_SECTACT == "ZZ",
         DIREN_OBJET == "DF",
         DIREN_TAILLENT %in% c("PE", "IG", "TP")) %>%
  select(where(~ n_distinct(.) > 1) | any_of(c("date", "value", "DIREN_TAILLENT", "Diren_taillent", "Diren_sectact", "DIREN_SECTACT"))) |>
  select(DIREN_TAILLENT, Diren_taillent, date, value) |>
  bind_rows(data_TTMI) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Diren_taillent)) +
  theme_minimal() + xlab("") + ylab("Cumul sur 12 mois\nDéfaillances d'entreprises hors microentreprises") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.9),
        legend.title = element_blank()) +
  geom_label_repel(data = . %>%
                    group_by(DIREN_TAILLENT) %>%
                     arrange(-value) %>%
                     slice(1:3), aes(x = date, y = value, label = value, color = Diren_taillent))

Option 3

DIREN |>
  
  filter(REF_AREA == "FR",
         DIREN_THECO == "DE",
         DIREN_MESURE == "03",
         DIREN_SECTACT == "ZZ",
         DIREN_OBJET == "DF",
         DIREN_TAILLENT %in% c("PE", "IG", "TP")) %>%
  select(where(~ n_distinct(.) > 1) | any_of(c("date", "value", "DIREN_TAILLENT", "Diren_taillent", "Diren_sectact", "DIREN_SECTACT"))) |>
  select(DIREN_TAILLENT, Diren_taillent, date, value) |>
  bind_rows(data_TTMI) |>
  arrange(desc(date)) |>
  ggplot() + geom_line(aes(x = date, y = value)) +
  theme_minimal() + xlab("") + ylab("Cumul sur 12 mois\nDéfaillances d'entreprises hors microentreprises") +
  scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.9),
        legend.title = element_blank()) +
  geom_label_repel(data = . %>%
                     group_by(DIREN_TAILLENT) %>%
                     filter(date == max(date)), aes(x = date, y = value, label = value)) +
  facet_wrap(~ Diren_taillent, scales = "free")

Related Data

Analyse de la Conjoncture Économique en France

source	dataset	Title	Updated
bdf	DIREN	Observatoire des Entreprises - DIREN	2026-09-12
insee	CLIMAT-AFFAIRES	Indicateurs synthétiques du climat des affaires - CLIMAT-AFFAIRES	2026-09-12
insee	IPI-2021	Indice de la production industrielle - IPI-2021	2026-09-12