Observatoire des Entreprises

Data - BDF

Author

François Geerolf

Info

source dataset Title .html .rData
bdf DIREN Observatoire des Entreprises 2025-12-20 2025-04-29

Données sur la macroéconomie en France

source dataset Title .html .rData
bdf CFT Comptes Financiers Trimestriels 2025-12-20 2025-03-09
insee CNA-2014-CONSO-SI Dépenses de consommation finale par secteur institutionnel 2025-12-23 2025-12-23
insee CNA-2014-CSI Comptes des secteurs institutionnels 2025-12-23 2025-12-23
insee CNA-2014-FBCF-BRANCHE Formation brute de capital fixe (FBCF) par branche 2025-12-23 2025-12-23
insee CNA-2014-FBCF-SI Formation brute de capital fixe (FBCF) par secteur institutionnel 2025-12-23 2025-12-23
insee CNA-2014-RDB Revenu et pouvoir d’achat des ménages 2025-12-23 2025-12-23
insee CNA-2020-CONSO-MEN Consommation des ménages 2025-12-23 2025-09-30
insee CNA-2020-PIB Produit intérieur brut (PIB) et ses composantes 2025-12-23 2025-05-28
insee CNT-2014-CB Comptes des branches 2025-12-23 2025-12-23
insee CNT-2014-CSI Comptes de secteurs institutionnels 2025-12-23 2025-12-23
insee CNT-2014-OPERATIONS Opérations sur biens et services 2025-12-23 2025-12-23
insee CNT-2014-PIB-EQB-RF Équilibre du produit intérieur brut 2025-12-23 2025-12-23
insee CONSO-MENAGES-2020 Consommation des ménages en biens 2025-12-23 2025-12-23
insee ICA-2015-IND-CONS Indices de chiffre d'affaires dans l'industrie et la construction 2025-12-23 2025-12-23
insee conso-mensuelle Consommation de biens, données mensuelles 2025-12-23 2023-07-04
insee t_1101 1.101 – Le produit intérieur brut et ses composantes à prix courants (En milliards d'euros) 2025-12-23 2022-01-02
insee t_1102 1.102 – Le produit intérieur brut et ses composantes en volume aux prix de l'année précédente chaînés (En milliards d'euros 2014) 2025-12-23 2020-10-30
insee t_1105 1.105 – Produit intérieur brut - les trois approches à prix courants (En milliards d'euros) - t_1105 2025-12-23 2020-10-30

LAST_COMPILE

LAST_COMPILE
2025-12-24

Last

date Nobs
2024-09-30 70

Méthodologie

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

Suivi mensuel des défaillances

décembre 2021

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

DIREN_THECO

Code 
DIREN %>%
  left_join(DIREN_var, by = "variable") %>%
  left_join(DIREN_THECO, by = "DIREN_THECO") %>%
  group_by(DIREN_THECO, Diren_theco) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
DIREN_THECO Diren_theco Nobs
DE Démographie d'Entreprises 255442
CR Crédits aux entreprises déclarés à la Centrale de Risques 41482
BI Bilans d'Entreprises 14496
DP Délais de Paiement 12972

DIREN_NATURE

Code 
DIREN %>%
  left_join(DIREN_var, by = "variable") %>%
  left_join(DIREN_NATURE, by = "DIREN_NATURE") %>%
  group_by(DIREN_NATURE, Diren_nature) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
DIREN_NATURE Diren_nature Nobs
UL Unités légales 273146
LME Critères de la loi de modernisation de l'économie 51246

DIREN_OBJET

Code 
DIREN %>%
  left_join(DIREN_var, by = "variable") %>%
  left_join(DIREN_OBJET, by = "DIREN_OBJET") %>%
  group_by(DIREN_OBJET, Diren_objet) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional

DIREN_MESURE

Code 
DIREN %>%
  left_join(DIREN_var, by = "variable") %>%
  left_join(DIREN_MESURE, by = "DIREN_MESURE") %>%
  group_by(DIREN_MESURE, Diren_mesure) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
DIREN_MESURE Diren_mesure Nobs
03 Cumul 12 mois 180643
19 Cumul trimestriel 59268
01 Encours 21035
05 Ratio moyen 16939
07 Taux de croissance en glissement annuel 13419
21 NA 12023
02 Cumul mensuel 6774
09 Moyenne des ratios individuels 3243
10 Médiane 3243
13 Écart-type 3243
08 Taux de croissance en glissement trimestriel 1764
06 Nombre 1042
22 NA 1026
25 NA 417
20 NA 313

ADJUSTMENT

Code 
DIREN %>%
  left_join(DIREN_var, by = "variable") %>%
  left_join(ADJUSTMENT, by = "ADJUSTMENT") %>%
  group_by(ADJUSTMENT, Adjustment) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
ADJUSTMENT Adjustment Nobs
N Brut 315854
Y CVS/CJO 8538

DIREN_SECTACT

Code 
DIREN %>%
  left_join(DIREN_var, by = "variable") %>%
  left_join(DIREN_SECTACT, by = "DIREN_SECTACT") %>%
  group_by(DIREN_SECTACT, Diren_sectact) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
DIREN_SECTACT Diren_sectact Nobs
ZZ Tous secteurs 100239
FZ Construction 19589
G Commerce et réparation automobile 19589
H Transports et entreposage 19589
I Hébergement et restauration 19589
JZ Information et communication 19589
MN Soutien aux entreprises 19589
AZ Agriculture, sylviculture et pêche 19544
LZ Activités immobilières 18856
BE Industrie 17927
PS Enseignement, santé humaine, action sociale et services aux ménages 17927
KZ Activités financières et d'assurance 15636
C Industrie manufacturière 3622
DE Industries extractives, énergie, eau, déchets 1662
RS Services aux ménages 1662
NC Non classé 1209
HS Holdings et sièges sociaux 1045
IM Activités immobilières (LZ) + promotion immobilière 1045
C1 Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 1008
C3 Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 1008
C4 Fabrication de matériel de transport 1008
C5 Fabrication d'autres produits industriels 1008
PQ Enseignement, santé humaine et action sociale 906
C2 Cokéfaction et raffinage 876
HO Activité des sociétés holdings (6420) 486
FA Activités financières et d'assurance hors holdings 184

DIREN_TAILLENT

Code 
DIREN %>%
  left_join(DIREN_var, by = "variable") %>%
  left_join(DIREN_TAILLENT, by = "DIREN_TAILLENT") %>%
  group_by(DIREN_TAILLENT, Diren_taillent) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
DIREN_TAILLENT Diren_taillent Nobs
TT Toutes tailles 284078
PM PME 16051
IG Entreprises de taille intermédiaire et grandes entreprises 4861
GE Grandes entreprises 2991
NP Taille non pertinente 2274
EI Entreprises de taille Intermédiaire 2130
TTHI Toutes tailles hors Entrepreneurs individuels 1325
ME Entreprises de taille moyenne 1234
MI Microentreprises et taille inconnue 1234
PE Petites entreprises 1234
TP Très petites entreprises 1234
SCI Société Civile Immobilière 972
T1 Total (PME ETI GE) 972
PG PME appartenant à un groupe 861
PI PME indépendantes et microentreprises 738
PH PME hors microentreprises 378
ENR Entreprises non référencées 366
PMHI PME hors Entrepreneurs individuels 340
EA Entreprises de plus de trois ans 224
EJ Entreprises de moins de trois ans 224
PA PME de plus de trois ans 224
PJ PME de moins de trois ans 224
PY PME independantes hors microentreprises 123
T1HI Total (PME ETI GE) hors Entrepreneurs individuels 100

Par mois (02)

PE, TP, GE

Code 
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

Code 
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

Code 
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

Code 
DIREN %>%
  left_join(DIREN_var, by = "variable") %>%
  filter(DIREN_OBJET == "PC",
         !(DIREN_TAILLENT %in% c("NP", "PG", "PY", "GE"))) %>%
  left_join(DIREN_TAILLENT, by = "DIREN_TAILLENT") %>%
  select_if(~ n_distinct(.) > 1) %>%
  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

Code 
DIREN %>%
  left_join(DIREN_var, by = "variable") %>%
  filter(REF_AREA == "FR",
         DIREN_THECO == "DE",
         DIREN_MESURE == "03",
         DIREN_SECTACT == "ZZ",
         DIREN_OBJET == "DF") %>%
  left_join(DIREN_TAILLENT, by = "DIREN_TAILLENT") %>%
  select_if(~ n_distinct(.) > 1) %>%
  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

Code 
data_TTMI <- DIREN %>%
  left_join(DIREN_var, by = "variable") %>%
  filter(REF_AREA == "FR",
         DIREN_THECO == "DE",
         DIREN_MESURE == "03",
         DIREN_SECTACT == "ZZ",
         DIREN_OBJET == "DF",
         DIREN_TAILLENT %in% c("TT", "MI")) %>%
  select_if(~ n_distinct(.) > 1) %>%
  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

Code 
DIREN %>%
  left_join(DIREN_var, by = "variable") %>%
  filter(REF_AREA == "FR",
         DIREN_THECO == "DE",
         DIREN_MESURE == "03",
         DIREN_SECTACT == "ZZ",
         DIREN_OBJET == "DF",
         !(DIREN_TAILLENT %in% c("TT", "MI", "PM"))) %>%
  left_join(DIREN_TAILLENT, by = "DIREN_TAILLENT") %>%
  select_if(~ n_distinct(.) > 1) %>%
  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 ?

Code 
DIREN %>%
  left_join(DIREN_var, by = "variable") %>%
  filter(REF_AREA == "FR",
         DIREN_THECO == "DE",
         DIREN_MESURE == "03",
         DIREN_SECTACT == "ZZ",
         DIREN_OBJET == "DF",
         !(DIREN_TAILLENT %in% c("TT"))) %>%
  select_if(~ n_distinct(.) > 1) %>%
  select(DIREN_TAILLENT, date, value) %>%
  left_join(DIREN_TAILLENT, by = "DIREN_TAILLENT") %>%
  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

Code 
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

Code 
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

Code 
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

Code 
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

Code 
DIREN %>%
  left_join(DIREN_var, by = "variable") %>%
  filter(REF_AREA == "FR",
         DIREN_THECO == "DE",
         DIREN_MESURE == "03",
         DIREN_SECTACT == "ZZ",
         DIREN_OBJET == "DF",
         DIREN_TAILLENT %in% c("PE", "IG", "TP")) %>%
  select_if(~ n_distinct(.) > 1) %>%
  select(DIREN_TAILLENT, date, value) %>%
  left_join(DIREN_TAILLENT, by = "DIREN_TAILLENT") %>%
  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

Code 
DIREN %>%
  left_join(DIREN_var, by = "variable") %>%
  filter(REF_AREA == "FR",
         DIREN_THECO == "DE",
         DIREN_MESURE == "03",
         DIREN_SECTACT == "ZZ",
         DIREN_OBJET == "DF",
         DIREN_TAILLENT %in% c("PE", "IG", "TP")) %>%
  select_if(~ n_distinct(.) > 1) %>%
  select(DIREN_TAILLENT, date, value) %>%
  left_join(DIREN_TAILLENT, by = "DIREN_TAILLENT") %>%
  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

Code 
DIREN %>%
  left_join(DIREN_var, by = "variable") %>%
  filter(REF_AREA == "FR",
         DIREN_THECO == "DE",
         DIREN_MESURE == "03",
         DIREN_SECTACT == "ZZ",
         DIREN_OBJET == "DF",
         DIREN_TAILLENT %in% c("PE", "IG", "TP")) %>%
  select_if(~ n_distinct(.) > 1) %>%
  select(DIREN_TAILLENT, date, value) %>%
  left_join(DIREN_TAILLENT, by = "DIREN_TAILLENT") %>%
  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")